如何将Excel表单数据自动导入导出Access数据库

如何将Excel表单数据自动导入导出Access数据库~

方法/步骤


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、选择“关闭”键，面板设置完成。

鼠标双击左键窗体中的”切换面板“出现如图界面，只要点击图中的红色圈中的按键，就会自动完成数据的导入、导出和数据库的关闭。
希望本篇对你有所帮助。

将excel中的数据自动导入数据库方法详见：https://zhidao.baidu.com/question/1768949163774290300.html

用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、选择“关闭”键，面板设置完成。
鼠标双击左键窗体中的”切换面板“出现如图界面，只要点击图中的红色圈中的按键，就会自动完成数据的导入、导出和数据库的关闭。
希望本篇对你有所帮助。

---

北道区19483471757： 如何将多个excel文件中数据自动导入另外一个excel文档? - ？
犁叛双灵： 如何将多个excel文件中数据自动导入另外一个excel文档的方法.如下参考:1.计算机打开要移动的工作簿,如下所示.2.右击要移动的工作表,然后单击“移动”或“要求复制”.3.进入移动或拷贝页面,选择工作簿要导入的工作簿,如果只是拷贝就设置一个拷贝,如果是要移动的版本就不设置一个拷贝.4.单击ok将所有工作表移动到一个工作簿.

北道区19483471757： excel怎么导入另一个表格数据? - ？
犁叛双灵： 将Excel中一个表格的数据导入到另一个表格,可使用数据链接实现. 方法步骤如下: 1、打开需要操作的EXCEL表格,在数据标签页点击“获取外部数据”>“现有连接”.2、在弹出的窗口中点击浏览更多.3、找到需要导入的数据表格,然后点击右下角的打开.4、在弹出的数据选择中,点击需要导入的工作簿并确认.5、弹出的导入数据对话框中,可根据需要选择导入数据位置,然后点击确定即可.6、返回EXCEL表格,发现将Excel中一个表格的数据导入到另一个表格操作完成.

北道区19483471757： 如何将一个excel中的数据自动导入到另一个excel - ？
犁叛双灵： 两个报表假设为甲和乙 甲报表中的B列要同时出现在乙报表中的C列,两个报表必须各有一列完全唯一的标识(主键),就像人的身份证号一样,唯一且两个表都有这一列,在这里咱们假设甲乙两个表相同的列都是A列.这时在乙表中的C列第一个单元格中,选用VLOOKUP函数,四个表达式: lookup_value:选中乙表中的A列 table_array:选中甲表中的A、B列 col_index_num:直接输入2(代表要返回甲表中的第二列) range_lookup:直接输入false(表示模糊查询) 确定即可

北道区19483471757： excel怎么样自动导入数据 - ？
犁叛双灵： 按Alt+F11进入VBA编辑复器,新建模块输入下面代码: Sub Macro1()Dim i As Integer, A As IntegerA = Sheets(＂sheet2＂).Cells(65536, 1).End(3).RowIf Sheets(＂sheet2＂).Cells(1, 1) <> ＂＂ Then A = A + 1For i = 1 To 4Sheets(＂sheet2...

北道区19483471757： excel 怎么把一个表的数据自动引入到另一个表里面? - ？
犁叛双灵： 可以在表2里面做一个vlookup之类的公式,填完表1后,打开表2刷新一下数据~

北道区19483471757： 如何将Excel表单数据自动导入导出Access数据库 - ？
犁叛双灵： 方法/步骤Excel表单数据与Access之间的转换主要通过宏来实现.首先打开数据库,在工具栏中查找到“创建-宏”点击宏,出现图2的界面.创建Excel表单数据导入宏:点击工具栏中的“设计-显示所有操作”,点击宏的选择菜单(下图2),选...

北道区19483471757： excel如何自动导入另外一个表格里面的相关对应数据 - ？
犁叛双灵： 表1的B1中输入: =VLOOKUP(A1,SHEET2!A:B,2,) 往下拉就可以了.

北道区19483471757： 如何将一个Excel表中的数据自动导入另一表中?？
犁叛双灵： 用引用.例如在要填数据的表的单元格中输入 =sheet1!a1,表示当前格的内容等于表sheet1中的a1单元格的内容.这样sheet1的a1单元格内容变化,当前单元格内容也自动变化也可用其他公式,例如加减乘除等,跨表进行计算引用

北道区19483471757： Excel如何将一个工作表的数据自动填充(导入)到 - ？
犁叛双灵： 这个很简单啊,你直接用“极速点击虎”这样的脚本模拟软件就行了,能让全自动办公操作.极速点击虎支持自动录入输入大量数据,循环执行各种日常繁琐的办公操作的,提高工作效率!

北道区19483471757： 如何将excel数据自动导入Toad for Oracle - ？
犁叛双灵： 1.连接想要导入的数据库 ,然后Database->Import->Table Data打开了导入窗口,选择一个数据库表,点击Show Data按钮,可以显示表中的内容 2.点击“Execute Wizard”按钮,弹出“Import Wizard”窗口 3.选择导入数据文件的类型,“...