工作表是通过网站导入外部数据的，以分钟为频率刷新无法得到及时数据，所以请教高手帮忙，谢谢啊！... 工作表是通过网站导入外部数据的，以分钟为频率刷新无法得到及时数据，所以请教高手帮忙，谢谢啊！ 1、插入模块输入以下代码
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
Sub 定时刷新MSGBox3()
ActiveWorkbook.RefreshAll
Call 定时刷新
End Sub
Sub 定时刷新()
Application.OnTime Now + TimeValue("00:01:15"), "定时刷新MSGBox3" '75秒刷新一次
End Sub
2、工作薄打开事件 call 定时刷新