Сохранить и заменить название файла

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сохранить и заменить название файла (Макросы/Sub)

Крутыш

Дата: Среда, 29.10.2014, 18:53 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 60% ±

Excel 2010

Есть макрос, который в конце земеняет старый файл новый, но выдает сообщение по типу - заменить файл - Да, Нет, Отмена

Что написать, дабы нажималась кнопка ОК ?

Вот отрывок кода макроса:
[vba]

Код

Sub bla()
...

      Sheets("Восток").Select
      Sheets("Восток").Move

      ChDir "C:\Users\User\Desktop\Еркин\АКБ и продажи"
      ActiveWorkbook.SaveAs Filename:= _
          "C:\Users\User\Desktop\Еркин\АКБ и продажи\АКБ и продажи ВОСТОК.xlsx", _
          FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

      ActiveWorkbook.Close

End Sub

[/vba]

Сообщение отредактировал Крутыш - Среда, 29.10.2014, 18:53

Ответить

AndreTM

Дата: Среда, 29.10.2014, 19:18 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

[vba]

Код

    Application.DisplayAlerts = False

     ActiveWorkbook.SaveAs Filename:= _
          "C:\Users\User\Desktop\Еркин\АКБ и продажи\АКБ и продажи ВОСТОК.xlsx", _
          FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

     Application.DisplayAlerts = True

[/vba]