每十分钟打开并保存一份Excel 2003表格
我正在使用Excel 2003.我的要求是每十分钟打开并保存一个Excel表格。
我的工作表使用ODBC连接来获取数据,每次打开时都会刷新数据。
我创build了一个计划任务来运行一个bat文件,该文件调用一个VB脚本,这个脚本将打开excel表并在closures之前保存它。
蝙蝠文件
C:\SaveExcel.vbs C:\MySheet.xls Exit
VB脚本:
Dim args, objExcel Set args = WScript.Arguments Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open args(0) objExcel.Visible = True objExcel.Workbooks.Open "C:\Program Files\Microsoft Office\OFFICE11\Library\Analysis\FUNCRES.XLA" objExcel.Addins("Analysis Toolpak").Installed = True objExcel.Addins("Analysis ToolPak - VBA").Installed = True objExcel.ActiveWorkbook.RefreshAll WScript.Sleep 10000 ' Waiting as refresh may take upto ten seconds objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close(0) objExcel.Quit
上面的问题是插件“分析工具包”没有加载,因此大多数的公式不工作,当我打开工作表使用上面的VB。
如果我通过CMD打开插件工程。
CMD>"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" "C:\MySheet.xls"
我从来没有用VB唤醒过,有没有办法将cmd和vb合并来满足我的要求?
谢谢
尝试加载Analysis ToolPak - VBA
也。 这可能会导致你看到的问题…
AddIns("Analysis ToolPak - VBA").Installed = True