用vba可以实现。
下面提供我给客户写的程序一部分，你可以参考。
Sub FYMXDL() ‘这个是导入数据库的
Dim XQID As Integer
Dim JZID As Integer
Dim FYID As Integer
Dim FBXZ As String '分包性质
Dim DW As String
Dim SARR(1 To 31) As Double
Dim rst As New ADODB.Recordset
mYpath = ThisWorkbook.Path & "\jzfydata.accdb"
Set cONn = CreateObject("ADODB.Connection")
cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath
cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "
cONn.Open
XQID = Cells(3, 2).Value
JZID = Cells(3, 5).Value
'清空改小区-建筑的费用明细
Sql = "delete from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID
cONn.Execute Sql
Const kshh = 7
hh = kshh
Do While Cells(hh, 3).Value > 0
FYID = Cells(hh, 3).Value
FBXZ = Cells(hh, 11).Text
For i = 1 To 31
SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)
Next i
Sql = "INSERT INTO fymxb(小区ID,建筑ID,费用ID,分包性质,工作量,单价合计_中标,人工费_中标, 主材费_中标, 辅材费_中标, 机械费_中标, 管理费_中标, 利润_中标,规费_中标,税金_中标,合价_中标,单价合计_标准成本,人工费_标准成本,主材费_标准成本,辅材费_标准成本,机械费_标准成本,管理费_标准成本,利润_标准成本,规费_标准成本,税金_标准成本,合价_标准成本,单价合计_实际成本,人工费_实际成本,主材费_实际成本,辅材费_实际成本,机械费_实际成本,管理费_实际成本,利润_实际成本,规费_实际成本,税金_实际成本,合价_实际成本) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"
For i = 1 To 31
Sql = Sql & "," & SARR(i)
Next i
Sql = Sql & " )"
cONn.Execute Sql
hh = hh + 1
Loop
End Sub
Sub FYMXDc() '导出费用明细
Dim jgarr(1 To 5, 1 To 2) As String '存放各级名称:1-id 2-名称
Dim XQID As Integer
Dim JZID As Integer
Dim FYID As Integer
Dim FBXZ As String '分包性质
Dim DW As String
Dim SARR(1 To 31) As Double
Dim rst As New ADODB.Recordset
Const kshh = 7
mYpath = ThisWorkbook.Path & "\jzfydata.accdb"
Set cONn = CreateObject("ADODB.Connection")
cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath
cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "
cONn.Open
XQID = Cells(3, 2).Value
JZID = Cells(3, 5).Value
'清空EXCEL
Range("A7：AQ1000").ClearContents
Sql = "SELECT * from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID
rst.Open Sql, cONn, adopenkeyset, adlockoptimistic
If rst.RecordCount > 0 Then
ARR = rst.GetRows
Else
Exit Sub
End If
rst.Close
Set rst = Nothing
hh = UBound(ARR, 2)
lh = UBound(ARR, 1)
For i = 0 To hh
Cells(kshh + i, 2) = ARR(0, i) 'ID
Cells(kshh + i, 3) = ARR(3, i) '费用ID
myid = ARR(3, i)
For j = 4 To 36
Cells(kshh + i, j + 7) = ARR(j, i) '分包性质后
Next j
'rst.Close
'Set rst = Nothing
Sql = "select 名称,fid,SID,LEV,特征描述 from kmmxb where id = " & myid
rst.Open Sql, cONn, adopenkeyset, adlockoptimistic
ARR2 = rst.GetRows
myfid = ARR2(1, 0)
mysid = ARR2(2, 0)
mylev = ARR2(3, 0)
mytzms = ARR2(4, 0)
MYSIDARR = Split(mysid, "-")
For k = 1 To mylev
jgarr(k, 1) = MYSIDARR(k - 1)
Next k
rst.Close
For k = 1 To mylev
Sql = "select 名称 from kmmxb where id = " & jgarr(k, 1)
rst.Open Sql, cONn, adopenkeyset, adlockoptimistic
ARR2 = rst.GetRows
jgarr(k, 2) = ARR2(0, 0)
rst.Close
Next k
HH2 = kshh + i
'Cells(hh2, 3) = myid
Cells(HH2, 1) = myfid
For k = 1 To mylev
Cells(HH2, 4 + k - 1) = jgarr(k, 2)
Next k
Cells(HH2, 9) = mytzms
Next i
Call gs
End Sub
方法/步骤
Excel表单数据与Access之间的转换主要通过宏来实现。首先打开数据库，在工具栏中查找到“创建-宏”点击宏，出现图2的界面。
创建Excel表单数据导入宏：点击工具栏中的“设计-显示所有操作”，点击宏的选择菜单（下图2），选择“TransferSpreadsheet”；
数据导入设置（下图3）：
1、迁移类型选择“导入”
2、电子表格类型选择“Microsoft
Excel
97
-
Excel
2003
Workbook”
3、表名称：如果你要输入到Access已有表中，就输入现有表的名称，如果要新建表，就输入所要新建表的名称，导入后会自动生成新表。
4、文件名称：也就是你所需要导入的Excel表的完整路径和表单名。
5、带有字段名称选择”是“。
6、范围可以不选择。
设置完成后，点击左上角的保存图标，输入自己定义的宏的名称后”确认“，Excel导入的宏创建完成（下图2）。如果运行，就用鼠标左键双击，就会将数据导入所需要的表中或者自动生成新表（下图3)。
创建Excel表单数据导出宏：步骤基本同于第二步，选择“TransferSpreadsheet”，只是在导出设置时有一点区别。
数据导入设置（下图）：
1、迁移类型选择“导出”
2、电子表格类型选择“Microsoft
Excel
97
-
Excel
2003
Workbook”
3、表名称：是指Access数据库中需要导出的表的名称。
4、文件名称：是指从数据库中导出到目标Excel表的完整路径和表名。
5、带有字段名称选择”是“。
6、范围可以不选择。
保存和运行方式如第三步。
创建操作面板：工具栏中”数据库工具-切换面板管理器“。
面板管理器设置：
1、选择”主切换面板“点击编辑（下图1）；
2、点击”新建“出现（图3）的界面”编辑切换面板项目“；
3、编辑切换面板项目的设置：
1、文本：就是你所需要创建的项目名称，如将名字设为“生产报表导
入”；
2、命令：数据库内表单的方式，选择“运行宏”；
3、宏：选择需要运行的宏，如上已经创建好的宏“生产报表导入”；
4、按”确定“完成设置。
5、按以上步骤完成”生产报表导出“的面板设置。
6、关闭数据库面板设置：选择”新建“-文本命名为”关闭数据库“-命令选择“退出应用程序”-“确定”（如下图4)。
4、选择“关闭”键，面板设置完成。
鼠标双击左键窗体中的”切换面板“出现如图界面，只要点击图中的红色圈中的按键，就会自动完成数据的导入、导出和数据库的关闭。
希望本篇对你有所帮助。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024