Здравствуйте. Есть код, создающий книгу. Как можно его модернизировать, чтоб созданная книга перезаписывала уже имеющуюся в каталоге, если таковая там имеется с таким же именем и чтоб это не сопровождалось диалоговыми окнами?
Dim pch As Range
Set pch = Worksheets("Итог").Range("A6")
Workbooks.Add (xlWBATWorksheet)
ActiveWorkbook.SaveAs Filename:= _
"C:\Form_nestb_and_raspred_bi\Сформированные ведомости\Распределение износа на кривых\ПЧ_" & pch & "_Распределение износа по кривым.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveSheet.Name = pch
Dim pch As Range
Set pch = Worksheets("Итог").Range("A6")
Workbooks.Add (xlWBATWorksheet)
ActiveWorkbook.SaveAs Filename:= _
"C:\Form_nestb_and_raspred_bi\Сформированные ведомости\Распределение износа на кривых\ПЧ_" & pch & "_Распределение износа по кривым.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveSheet.Name = pch