使用脚本打开Excel时，Excel宏未运行

Question

我正在尝试运行宏代码，这将在Excel工作簿打开时调用。我正在使用脚本打开Excel文件，该脚本又执行宏。这在许多机器中都按预期工作。但在少数机器中，我遇到了一个问题。所有计算机中的Excel安全设置都相同。还需要考虑其他任何设置吗？在Excel工作簿打开时，您能否建议一些其他方法来运行宏。我尝试过Workbook_Open和Auto_Open模块，两者都没有在少数几台机器上运行。任何想法或建议都非常有价值。

以下是我的剧本......

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Wscript.ScriptFullName)
strFolder = objFSO.GetParentFolderName(objFile)

Set app = CreateObject("Excel.Application")
app.Visible = False
app.EnableEvents = True
app.DisplayAlerts = False
app.ScreenUpdating = True
Set wb = app.Workbooks.Open(strFolder &"\EDWIPD_Pressure - SIMPLE.xls")
' WScript.Echo "[" & wb.Sheets("Sheet1").Range("A1").Value & "]"
If wb.Sheets("Sheet1").Range("A1").Value = 99 Then
    WScript.Echo "Excel seems to be working fine."
Else
    WScript.Echo "*** EXCEL MACRO PROBLEM. ***"
    WScript.Echo "Press [ENTER] to continue..."
    WScript.StdIn.ReadLine
End If
'app.Visible = True
wb.Close False
app.Quit

在我的宏代码中，我试图将单元格A1值设置为99.如果宏运行精细单元格值等于99，它会说Excel似乎工作正常，否则它会说Excel宏问题。它显示了Excel宏问题。

我想在这里添加一件事，如果用户手动打开Excel工作簿，它会按预期工作。宏正在成功运行。我们尝试使用脚本代码打开Excel时唯一的问题是没有运行。