VBScript просит меня перезаписать файл Excel, несмотря на DisplayAlerts = False

Question

Я хочу запустить макрос из файла Excel через VBScript, чтобы я мог запустить этот скрипт через планировщик задач.

Эта часть работает, но когда она пытается сохранить файл, она всегда запрашивает "Файл"уже существует, хотите перезаписать? Да, Нет, Отмена ".

Во время исследования каждый поток говорит, что установите DisplayAlerts в False, что я уже сделал, но это не работает.Если я использую только .Save, то он сохраняет его в моем каталоге документов по умолчанию, а не на общем ресурсе.

strPath = "\\ecs.zspi.company.de@SSL\DavWWWRoot\Folder\Test.xlsm" 

strMacro = "VV.VVImport2" '  

Set objApp = CreateObject("Excel.Application") 
objApp.Visible = True   
objApp.DisplayAlerts = False
objApp.AskToUpdateLinks = False
objApp.AlertBeforeOverwriting = False
objApp.FeatureInstall = msoFeatureInstallNone

Set wbToRun = objApp.Workbooks.Open(strPath) 
objApp.Run strMacro 
wbToRun.SaveAs "\\ecs.zspi.company.de@SSL\DavWWWRoot\Folder\Test.xlsm" 
wbToRun.Close False
objApp.Quit 

Он должен сохранить файл в исходное местоположение без предупреждения.Но я всегда получаю окно с предупреждением «Файл уже существует, хотите перезаписать? Да, Нет, Отмена».

Answer 1

Вам необходимо установить свойство .Saved книги на True

...
wbToRun.SaveAs "\\ecs.zspi.company.de@SSL\DavWWWRoot\Folder\Test.xlsm" 
wbToRun.Saved = True
wbToRun.Close False
objApp.Quit 

Похоже, что метод SaveAs не устанавливает свойство на True, я имеюЯ сталкивался с этой проблемой раньше, и это исправило ее для меня.