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

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

希望本篇对你有所帮助。

1双击Access图标，打开Access这个软件。

2点“空数据库”新建一Access文档。

3先用直接导入法。在菜单栏选择“文件”—“获取外部数据”—“导入”。

4选择一个Excel文件，点“导入”。

5在“导入数据表向导里”选择一个工作表，单击“完成”。

6出现一个提示框，确认一下没错，单击“确定”完成导入。

7看一下，Access文件里已经有了刚导出的数据表。

8再用建立链接法。在菜单栏选择“文件”—“获取外部数据”—“链接表”。

9选择一个Excel文件，点“链接”。

10按5、6步骤的方法 *** 作，完成后可以看到Access文件里出现了一个Excel链接表。

工具：Access数据库

步骤：

桌面上新建Access数据库。

新建完毕后，默认名称如图。

将名称进行修改，并点击打开。

主界面如图。

点击“外部数据”。

继续点击“Excel”按钮。

d出“导入”界面，点击浏览按钮。

选中student的Excel文件，点击打开。

导入窗口中，继续点击“确定”。

没有问题，点击下一步。选择“我自己选择主键”，点击下一步。

确定表名称，点击完成。

继续点击“关闭”按钮。导入的表成功，出现在左侧，点开它，验证一下。

数据无误，成功导入。

1双击Access图标，打开Access这个软件。

2点“空数据库”新建一Access文档。

3先用直接导入法。在菜单栏选择“文件”—“获取外部数据”—“导入”。

4选择一个Excel文件，点“导入”。

5在“导入数据表向导里”选择一个工作表，单击“完成”。

6出现一个提示框，确认一下没错，单击“确定”完成导入。

7看一下，Access文件里已经有了刚导出的数据表。

8再用建立链接法。在菜单栏选择“文件”—“获取外部数据”—“链接表”。

9选择一个Excel文件，点“链接”。

10按5、6步骤的方法 *** 作，完成后可以看到Access文件里出现了一个Excel链接表。

1、先启动Access，并打开你的mdb文件，在数据库窗口的“表”那个标签窗口中单击鼠标右键，选择“导入”菜单项

2、现在将打开“导入”对话窗口，在这个窗口中选择“文件类型”为Excel，并指定要导入的文件，再点“导入”

3、导入过程的对话窗口可能要问你一些问题，我想这你能应付

4、导入的结果会在数据库中成为一张数据表，与excel文件名相同。打开这个数据表，再打开你原来的数据表，看看两表的结构是不是相同，如果不相同，要对导入的表的结构进行适当的改造，以确保两者完全相同

5、现在在你打开的导入的数据表中，选择全部记录，Ctrl+C

6、再打开你原来的数据表，卷到最后一行上，光标放进去，Ctrl+V

事情就这么简单。如果用程序也可以，只是一年一次好像不值得编程

实现你的要求有编程和非编程两种办法

先说编程的方法：

可以在数据库端编写程序，每当ACCESS数据库表发生变化时同时将变更写入EXCEL文档中；也可在电子表格端用EXCEL工作表显示来自ACCESS数据库某张表的内容，并用VBA编写代码每隔一段时间自动刷新其数据源。编程的方法说起来简单但是实施起来涉及的技术细节很多、工作量不小，尤其是数据库端编程更是如此，挺费事的，就不提供具体程序了。

再说非编程方法，以你的程度来看这种方法也许更加适合：

打开EXCEL文档选择其中一个工作表，点击 数据——导入外部数据——新建数据库查询 打开 选择数据源对话框 在数据库选项卡选择“MS Access Database”点击确定按钮 打开选择数据库对话框 选择要连接的ACCESS数据库文件所在的驱动器、文件夹和数据库文件名 点击确定按钮 打开 查询向导 - 选择列 对话框 双击 左边“可用的表和列” 中的某张表 点击 “>”按钮将需要输出的字段送到右边“查询结果中的列”之中，连续点击“下一步”直到“完成”按钮 出现 选择 “将数据返回Microsoft Office Excel”点击“完成”按钮 打开 导入数据对话框 选择 “现有工作表”点击“确定”按钮后 系统会将ACCESS表中的数据导入到EXCEL工作表中。

数据导入工作表后，如要反映ACCESS数据表的最新变动情况，请右击其中一个有数据的单元在d出菜单中选择点击“刷新数据”即可。

你还可以随时调整“数据区域属性”以便实现“自动刷新数据”等功能，办法如下：

右击其中一个有数据的单元在d出菜单中选择点击“数据区域属性”打开 外部数据区域属性 对话框 设置适合自己要求的属性后 点击“确定”按钮即可

涉及的较多，这里只给出“数据区域属性”对话框截图供参考

2使用非编程方法虽然可以自动刷新跟进数据库的变动情况，但是其刷新频率最短只能设定为1分钟，如果需要将刷新频率缩短至秒级则需要编写VBA程序。下面是相关VBA代码：

首先导入数据库表的方法请参照上列手动非编程方法之说明

导入数据后请右击其中一个有数据的单元格，在d出菜单中选择点击“数据区域属性”打开 外部数据区域属性 对话框（见附图） 修改外部数据区域的各个属性如下，然后点击确定

名称：QuertTbl

允许后台刷新复选框：不勾选

刷新频率复选框：不勾选

打开工作簿时，自动刷新复选框：勾选

第二步 编写VBA程序

1）使用快捷键Alt+F11 打开VBE(Visual Basic Editor)编辑器

2）单击菜单 插入——模块，打开模块代码窗口

3）在右边代码窗口输入以下代码：

'这段代码执行刷新数据源动作

Sub AutoRefresh()

Sheets("sheet1")QueryTables("QueryTbl")Refresh

Call AUTO_OPEN

End Sub

'这段代码设定刷新频率为10秒。注意刷新频率越高系统开销越大在数据量较大时更要注意这个问题，请尽量设定较长的刷新时间间隔。

Sub AUTO_OPEN()

ApplicationOnTime Now + TimeValue("00:00:10"), "AutoRefresh"

End Sub

4)在左边对象窗口，双击Microsoft Excel对象下的 Sheet1(Sheet1)，在右边代码窗口输入以下代码：

'这段代码，令每次从其他工作表转到工作表1时刷新数据源

Private Sub Worksheet_Activate()

Sheets("sheet1")QueryTables("QueryTbl")Refresh

End Sub

第三步退出VBE编辑器，关闭工作簿，记得保存修改。

重新打开工作簿后，系统会提示安全警告，请点击“启用宏按钮”，跟着系统会提示查询刷新，请点击“启用自动刷新”按钮。之后工作簿就会每5秒自动刷新数据源，当你从其他工作表跳回工作表1时，即使未到刷新时间系统也会立即刷新数据。

附：用代码创建新的工作表并写入值的函数使用方法。

Dim xlapp As ExcelApplication

Dim xlbook As ExcelWorkbook

Dim xlsheet As ExcelWorksheet

Set xlapp = CreateObject("excelapplication")

Set xlbook = xlappWorkbooksAdd

xlbookSaveas "c:\aaaxls"'你要保存的文件路径

xlappVisible = True '设置EXCEL对象可见（或不可见）

Set xlsheet = xlbookWorksheets(1) '设置活动工作表

xlsheetCells(1, 1) = "aa" '给单元格（row,col）赋值

xlsheetCells(1, 2) = "bb"

xlbookClose (True) '关闭工作簿

xlappQuit '结束EXCEL对象

Set xlapp = Nothing '释放xlApp对象

以上就是关于如何将Excel表单数据自动导入导出Access数据库全部的内容，包括:如何将Excel表单数据自动导入导出Access数据库、如何将Excel中的数据导入到Access数据库中、如何将access数据导入excel中等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！