Метод Workbook.Save (Excel)

Сохраняет изменения в указанной книге.

Синтаксис

expression. Спасать

выражение Переменная, представляющая объект Workbook .

Замечания

Чтобы открыть файл книги, используйте метод Open .

Чтобы пометить книгу как сохраненную, не записывая ее на диск, задайте для свойства Сохранено значение True.

При первом сохранении книги используйте метод SaveAs , чтобы указать имя файла.

Пример

В этом примере сохраняется активная книга.

ActiveWorkbook.Save

В этом примере сохраняются все открытые книги, а затем закрывается Microsoft Excel.

For Each w In Application.Workbooks 
    w.Save 
Next w 
Application.Quit

В этом примере событие BeforeSave используется, чтобы убедиться, что определенные ячейки содержат данные перед сохранением книги. Книгу нельзя сохранить, пока не будут содержаться данные в каждой из следующих ячеек: D5, D7, D9, D11, D13 и D15.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   'If the six specified cells don't contain data, then display a message box with an error
   'and cancel the attempt to save.
   If WorksheetFunction.CountA(Worksheets("Sheet1").Range("D5,D7,D9,D11,D13,D15")) < 6 Then
      MsgBox "Workbook will not be saved unless" & vbCrLf & _
      "All required fields have been filled in!"
      Cancel = True
   End If
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.