EXCEL如何调用ACCESS数据

找到自己需要做改变的Excel和Access

1

为了避免自己以后的，所以第一个步骤看似无关重要，但是却缺一不可。确保Excel中的数据导入数据库不要出错，不然一切白费。

END

新建数据库，开始执行 *** 作

在数据库上方有一个外部数据，点击外部数据存在一个“导入Excel表格功能”，点击该功能开始执行导入 *** 作。

找到自己的Excel，明确路径，就可以开始了。点击确定进入下一个步骤

在开始导入的时候，根据自己的需要勾选第一行是否包含标题。

勾选：代表Excel中的第一栏就是数据库中的字段名

不勾选：代表Excel所有的数据会成为数据库中的数据

我以勾选状态演示

在下一个页面，可以根据自己的需要修改“字段名称”和“数据类型”。

进入下一页面，可以修改数据库中的主键，可以用Access的默认主键，也可以自定义主键，也可以不要主键。

6

完成主键的设置过后，就完成了数据的导入，但是还没有完，自己要为导入的数据命名。最后就完成了将Excel中的数据导入到Access数据库中的 *** 作。

材料/工具：Excel2003

1、首先启动access，执行新建-空数据库命令，输入名称保存在一个合适的位置上。

2、在数据库对话框中点击新建命令，调出新建表对话框，选择导入表选项，点击确定按钮。

3、在导入对话框中找到需要导入的数据表格，选中后点击导入按钮，出现导入数据表向导对话框。

4、接着根据向导提示点击下一步，在“请选择数据的保存位置”中勾选新表中。

5、在字段选项中采用默认即可，点击下一步，接着选择设置主键为“字段2”。

6、直到出现完成按钮，并点击完成后，在数据库中就会出现sheet1表，双击打开即可，接着可以进行必要的处理了。

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

先说编程的方法：

可以在数据库端编写程序，每当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()

Application.OnTime 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 Excel.Application

Dim xlbook As Excel.Workbook

Dim xlsheet As Excel.Worksheet

Set xlapp = CreateObject("excel.application")

Set xlbook = xlapp.Workbooks.Add

xlbook.Saveas "c:\aaa.xls"'你要保存的文件路径

xlapp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlsheet = xlbook.Worksheets(1) '设置活动工作表

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

xlsheet.Cells(1, 2) = "bb"

xlbook.Close (True) '关闭工作簿

xlapp.Quit '结束EXCEL对象

Set xlapp = Nothing '释放xlApp对象

---