使用Windows计划程序

Question

我负责更新Excel电子表格，该电子表格每天从Access数据库中提取信息。我可以使用我的excel电子表格所需的所有数据，我需要做的就是打开文档，提供密码，启用内容并单击刷新按钮。

数据库非常庞大，在正常工作时间更新数据会导致问题，因为它会降低网络上其他用户的速度。如何在工作时间之外使用Windows Scheduler为我执行此操作？我不确定如何设置我的脚本以遵循我的步骤。

Answer 1

我最近必须做一些与此类似的事情，在这个论坛的帮助下，我发现了一些对我有用的东西，并且它的声音对你也有用！ / p>

我使用以下.vbs脚本

创建了一个记事本文件

Dim oExcel
Set oExcel = CreateObject("Excel.Application") 

oExcel.Visible = True
oExcel.DisplayAlerts = False
oExcel.AskToUpdateLinks = False
oExcel.AlertBeforeOverwriting = False

Set oWorkbook = oExcel.Workbooks.Open("Full Path of your file.xlsx")
oWorkbook.RefreshAll
oWorkbook.Save

oExcel.Quit
Set oWorkbook = Nothing
Set oExcel = Nothing

这样做，它会打开文件，刷新所有数据连接，然后保存文件并退出。

然后我把它作为计划任务在非高峰时间运行，这样当用户打开工作簿时，它就是最新的。

我希望这有帮助！

Answer 2

我设法通过VBA实现了这个目标

点击Alt - F11 右键单击ThisWorkbook并单击查看代码。

代码如下：

Private Sub Workbook_Open（）

Workbooks.Open（＆＃34;工作簿的位置＆＃34;），密码：=＆＃34;无论您的密码是什么＆＃34; ThisWorkbook.RefreshAll

End Sub

我保存此文档并要求任务计划程序在特定时间运行它。