【发布时间】:2019-06-27 14:35:47
【问题描述】:
我正在尝试创建并运行一个 VBScript 来运行我在 Excel 文件上创建的宏 (PVT_Paste_Macro.xlsm),而无需打开每个单独的 Excel 文件(我有 528 个文件!)这是我的代码:
Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Run "'C:\Users\Owner\Desktop\PVT_Paste_Macro.xlsm'!Module1.PVT_Paste_Macro"
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Set objExcel = Nothing
运行代码后出现如下错误:
Script: C:\Users\Owner\Desktop\VBA for macros - PVT.vbs
Line: 2
Char: 1
Error: Unknown runtime error
Code: 800A03EC
Source: Microsoft VBScript runtime error
我在宏文件打开时运行脚本。宏文件、我想在其上运行宏的(测试)Excel 文件和 VBS 脚本都位于桌面上。
有人可以帮忙吗?谢谢。
【问题讨论】:
-
这是您正在运行的确切代码吗(我认为不是因为您有 528 个文件,每个文件都没有一个 vbs 脚本,是吗)?如果它不是你实际运行的代码,你是不是和here有同样的问题?
-
可能是位数的问题。尝试在控制台中运行
%WINDIR%\wscript.exe "C:\Users\Owner\Desktop\VBA for macros - PVT.vbs"或%WINDIR%\SysWOW64\wscript.exe "C:\Users\Owner\Desktop\VBA for macros - PVT.vbs"(cmd) -
您也可以尝试在单独的调用中打开工作簿:
objExcel.Workbooks.Open "C:\Users\Owner\Desktop\PVT_Paste_Macro.xlsm,然后是objExcel.Run "Module1.PVT_Paste_Macro"。