Страницы: 1
RSS
Создание книги с заменой уже существующей
 
Здравствуйте. Есть код, создающий книгу. Как можно его модернизировать, чтоб созданная книга перезаписывала уже имеющуюся в каталоге, если таковая там имеется с таким же именем и чтоб это не сопровождалось диалоговыми окнами?

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")
   s = "C:\Form_nestb_and_raspred_bi\Сформированные ведомости\Распределение износа на кривых\ПЧ_" & pch & "_Распределение износа по кривым.xls"
   on error resume next   
   Kill s
   on error goto 0

    Workbooks.Add (xlWBATWorksheet)
    ActiveWorkbook.SaveAs Filename:= _
        s, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

   ActiveSheet.Name = pch
 
Код
Dim pch As Range, fn$
fn = "C:\Form_nestb_and_raspred_bi\Сформированные ведомости\Распределение износа на кривых\ПЧ_" & pch & "_Распределение износа по кривым.xls"
if dir(fn) <> "" then kill fn
Workbooks.Add (xlWBATWorksheet)
ActiveWorkbook.SaveAs Filename:=fn, FileFormat:= xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх