Сохранение листа в отдельный файл

[barbus]

Помогите знатоки.
Есть книга Excel-а и лист с данными, данный лист надо каждый раз сохранить в отдельный файл не сохраняя другие листи книги.

Применил такой код

ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("hajt").Range("AD2") & ".xls"

Книга сохраняется целиком.

[EducatedFool]

Private Sub CommandButton1_Click()
    Sheets("hajt").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("AD2") & ".xls"
    ActiveWorkbook.Close False
End Sub

[Aent]

Надо использовать SaveAs метод для объекта коллекции WorkSheets а не

WorkBooks как у вас
With ThisWorkbook
     .Worksheets("hajt").SaveAs .Path & "\" & .Worksheets("hajt").Range("AD2") & ".xls"
End With

[barbus]

Сообщение от Aent

Надо использовать SaveAs метод для объекта коллекции WorkSheets а не

WorkBooks как у вас
With ThisWorkbook
     .Worksheets("hajt").SaveAs .Path & "\" & .Worksheets("hajt").Range("AD2") & ".xls"
End With

Спосибо.
Я так пробивал сохраняет (копирует) книгу со всеми листами а не один лист.

[barbus]

Сообщение от EducatedFool

Private Sub CommandButton1_Click()
    Sheets("hajt").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("AD2") & ".xls"
    ActiveWorkbook.Close False
End Sub

Спасибо код работает, но есть диалоговое окно, так говоря нежелательное.

[Dophin]

точно в xls сохраняете? не в xlsx ?

Application.displayalerts отключили?

[barbus]

Сообщение от Dophin

точно в xls сохраняете? не в xlsx ?

да нужно в xls

Сообщение от Dophin

Application.displayalerts отключили?

нет, подскажете как.

[The_Prist]

Сообщение от barbus

нет, подскажете как.

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    Sheets("hajt").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("AD2") & ".xls"
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True
End Sub

[Aent]

Если вы сохраняете файл в EXCEL 2003 (не в 2007!) то для сохранения
отдельной страницы достаточно добавить параметр FileFormat:=xlExcel4.
Естественно, предполагается, что на сохраняемом листе нет неподдерживаемых в формате EXCEL4 объектов. В 2007 этот формат не поддерживается.
http://support.microsoft.com/kb/157568

[barbus]

Сообщение от The_Prist

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    Sheets("hajt").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("AD2") & ".xls"
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True
End Sub

Спасибо.

При открытии выдает сообщение, может это из за того что открываю в Word 2007?.
Посмотрите.