我正在努力使用由按钮调用的 VBA Sub。此 Sub 从硬编码文件路径打开一个 Configuration.xls Excel 电子表格。一个 MsgBox 告诉我有关当前工作区的信息 - 工作区从当前文件更改为刚刚打开的文件。这里一切都很好。
我现在想从调用 VBS 的外部批处理执行此子，该 VBS 调用 VBA 子。打开 Configuration.xls 文件后的工作区保持不变，不会更改为 Configuration.xls。此外，当通过 VBS 调用 Sub 时，该函数会执行两次 - 不知道为什么。
所以我的问题是 - 为什么我在两种调用机制之间有不同的行为？
我简化了下面的代码，因为它显示了与我更复杂的真实代码相同的行为。
Sub ReadConfiguration()
MsgBox ActiveWorkbook.Name
FileExcel = "D:\_Trash\VBA_VBS\Configuration.xls"
Workbooks.Open Filename:=FileExcel, ReadOnly:=True, IgnoreReadOnlyRecommended:=True
strFileName = FunctionGetFileName(FileExcel)
MsgBox ActiveWorkbook.Name
On Error Resume Next
Set wBook = Workbooks(strFileName)
If Err Then
Exit Sub
End If
ActiveWorkbook.Close savechanges:=False
End Sub
'*****************************************************
Function FunctionGetFileName(FullPath As Variant)
Dim StrFind As String
Do Until Left(StrFind, 1) = "\"
iCount = iCount + 1
StrFind = Right(FullPath, iCount)
If iCount = Len(FullPath) Then Exit Do
Loop
FunctionGetFileName = Right(StrFind, Len(StrFind) - 1)
End Function
'*****************************************************
VBS 看起来像这样
Dim args, objExcel
Set args = WScript.Arguments
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open args(0)
objExcel.Visible = False
objExcel.Run "Module1.ReadConfiguration()"
objExcel.ActiveWorkbook.Close(0)
objExcel.Quit