Следующий код продолжает сбой в строке 15 (т. Е. Макрос не выполняется). Именованный макрос работает нормально, если я открываю Excel вручную и запускаю его, и я смог запустить его ранее, но не смог сохранить файл для сохранения. Мне кажется, что я пропускаю несколько очевидную ошибку кодирования, но у меня возникают проблемы при ее отладке.
РЕДАКТИРОВАТЬ: ошибка, которую я получаю, находится в строке xlApp.Run, говорящей о том, что сервер бросил исключение.
Option Explicit
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.visible = True
xlApp.DisplayAlerts = False
set xlBook = xlApp.Workbooks.Open ("N:\FILEPATHHIDDEN\SPREADSHEET.xlsm", 1, False)
xlApp.Run "RefreshPQ"
xlBook.Save
xlBook.Close
xlApp.Quit()
xlBook = Nothing
xlApp = Nothing
'Leaves an onscreen message!
MsgBox dataCalc & " vbs successfully completed!", vbInformation
'