请问如果导入两个access到一个Excel，10秒刷新一次。VBA代码该怎么写？

发布网友发布时间：2022-04-30 04:14

共2个回答

热心网友时间：2023-10-11 20:05

改写如下

Sub AutoRefresh()

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

Sheets("sheet1").QueryTables("QueryTbl2").Refresh

Call AUTO_OPEN

End Sub

说明：请预先定义两个以ACCESS表为数据源的外部数据区域，分别命名为QueryTbl和QueryTbl2，这两个外部数据区域应横向放置，而不应纵向放置以免上面的数据记录多时可能导致两个数据区域发生叠加。其它细节请参考本人以前的知道回答（你提问中的那个链接）。

顺便提供一些附图供参考

来自：求助得到的回答

热心网友时间：2023-10-11 20:05

AutoRefresh()事件，存放刷新时执行的代码，表格刷新时触发。

Worksheet_Activate()事件，存放表格被激活时执行的代码，激活为当前表格时触发
Sub AUTO_OPEN()，应是用户自定义方法，用来修改刷新时间