如何成功执行vbscript？

我有一个包含macros的Excel文件。 该macros是在开发人员选项卡的ThisWorkbook中编写的。 我想通过在Windows任务计划程序中安排它来自动运行macros。

我做了一些研究，发现我必须为此编写一个VBScript并运行VB脚本来运行macros。

这是VB脚本。 vbscript应该：

1. 打开excel文件
2. 运行macros
3. closuresexcel文件

这应该在预定的时间自动完成，每天使用Windows任务计划程序。

到目前为止，这是VB脚本：

'Script to start my filter.xls program with named macro 'MsgBox "In RunExcel" ' Create an Excel instance Dim myExcelWorker Set myExcelWorker = CreateObject("Excel.Application") ' Disable Excel UI elements myExcelWorker.DisplayAlerts = False myExcelWorker.AskToUpdateLinks = False myExcelWorker.AlertBeforeOverwriting = False myExcelWorker.FeatureInstall = msoFeatureInstallNone ' Open the Workbook Dim oWorkBook Dim strWorkerWB strWorkerWB = "C:\Users\Desktop\service calibration details\CC.xlsm" 'MsgBox "Opening filter" on error resume next Set oWorkBook = myExcelWorker.Workbooks.Open(strWorkerWB) if err.number <> 0 Then ' Error occurred - just close it down. MsgBox "open Error occurred" End If err.clear on error goto 0 'MsgBox "Running macro" Dim strMacroName strMacroName = "CCA" on error resume next ' Run the macro myExcelWorker.Run strMacroName if err.number <> 0 Then ' Error occurred - just close it down. MsgBox "run macro Error occurred" End If err.clear on error goto 0 ' Clean up and shut down Set oWorkBook = Nothing myExcelWorker.Quit Set myExcelWorker = Nothing Set WshShell = Nothing 

我试图运行这个使用基于微软Windows脚本主机。 但是我得到错误“运行macros发生错误”。

我在网上search。 但是我找不到解决办法。

什么是造成这个问题？

我写的vbscript有没有错误？

我如何成功地执行此操作？

Answer 1

作为这个问题的替代方法，你可以只需要一个简单的VB脚本文件来打开电子表格。 像这样的东西：

 Set xl = CreateObject("Excel.application") xl.Application.Workbooks.Open "C:\Users\Desktop\service calibration details\CC.xlsm" xl.Application.Visible = True Set xl = Nothing 

然后将您的Excelmacros放入Workbook_Open子，以便在打开工作簿时执行。 在macros的末尾添加行：

 ActiveWorkbook.Close False 'false prevents it from saving any changes Application.Quit 

或者如果你想保存

 ActiveWorkbook.Save Application.Quit 

这应该有希望做的伎俩！ 祝你好运。