Question

我已经尝试过并尝试过，并且接近我的极限。最初我试图从PERSONAL.XLSB运行一个宏，并继续运行到＆＃39;宏可能在此工作簿中不可用，或宏未启用代码：800A03EC。＆＃39;所以我转到了一个简单的测试工作簿.xlsm，在开发人员中添加了Module1。（假设PERSONAL存在问题。）我仍然遇到同样的错误。

工作簿打开正常，它总是出现错误。运行。

在下面的代码中，我已经包含了我尝试过的各种变体。运行，毫无疑问，我做了一些非常愚蠢的事情，问题很明显。

工作簿很好。

'On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
sFolder = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\"))
Set folder = fso.GetFolder(sFolder)
Set file = folder.Files


'edit excel csv file.
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
filePath = SFolder & "MMFILE_2ndWave_20161205_CUSTOMER.xlsm"
Set xlBook = objExcel.Workbooks.Open(filePath, 0, True)

objExcel.Visible = True



objExcel.Run filePath & "!Module1"
'objExcel.Run "Module1"
'objExcel.Run "'MMFILE_2ndWave_20161205_CUSTOMER.xlsm'!Module1"
'objExcel.Application.Run "Module1"
'objExcel.Application.Run filePath & "!Module1"
'objExcel.Application.Run "'" & xlBook1.Name & "'!Module.Module3"   

msgbox "finished"

VBScript并从excel spreadshet运行宏

0 个答案: