Excel vba 怎样用定时器功能调用程序
1个回答
展开全部
参考代码：
Public dtime As Double
Sub Update()
Windows("Testrss.xls").Activate
ActiveWorkbook.XmlMaps("rss_Map").DataBinding.Refresh
Sheet2.Cells.EntireRow.AutoFit
RefreshXML
End Sub
Sub RefreshXML()
dtime = Now + TimeValue("00:05:00")
Application.OnTime dtime, "Update"
End
每隔5分调用一次Update例程
Public dtime As Double
Sub Update()
Windows("Testrss.xls").Activate
ActiveWorkbook.XmlMaps("rss_Map").DataBinding.Refresh
Sheet2.Cells.EntireRow.AutoFit
RefreshXML
End Sub
Sub RefreshXML()
dtime = Now + TimeValue("00:05:00")
Application.OnTime dtime, "Update"
End
每隔5分调用一次Update例程
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
