作者stacyl (可)
看板Visual_Basic
标题[VBA ] refresh 资料未更新的问题
时间Wed Dec 28 00:17:16 2011
大家好
想请问一个困扰已久的问题
就是在写巨集的时候
需要从access更新资料到excel ( refresh )
但是有一个问题碰到很多次
就是
更新完若立刻存档（如最後附的程式码）
则储存格的值都不会刷新
一定要等到巨集跑完
储存格的值才会刷新
如果不存档 或是手动更新
都不会有这样的问题
想请问如何解决这个问题
（除了现在都只能分成两个巨集分开执行）
以及之後要如何避免这样的情形发生
以下是我的VBA
----------------------------------------------------------------------
Sub 资料更新()
Application.DisplayAlerts = False
For Each filename In Array("上月", "上周", "本月", "本周")
Workbooks.Open "D:\日报\" & filename & ".xls"
Workbooks(filename).Activate
Workbooks(filename).RefreshAll
Workbooks(filename).save
Next
Application.DisplayAlerts = True
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.165.174.6
※ 编辑: stacyl 来自: 118.165.172.157 (12/28 22:22)