Сохранение листа в отдельный файл - Microsoft Office Excel - Страница 2

doober · 26.02.2010, 18:49

Добавте в код выделенное красным

Код:


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

barbus · 26.02.2010, 19:15

Цитата:

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

Добавте в код выделенное красным

Код:


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

Всем большое Спосибо заработал нормально.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблема с jQuery: Код не работает через отдельный файл	Arnezami	JavaScript, Ajax	2	17.01.2010 01:16
Обработка текста и запись результата в отдельный файл	MrakSPb	Общие вопросы C/C++	2	20.12.2009 01:41
Сохранения каждой главы в отдельный файл	mamed05	Microsoft Office Word	8	22.05.2009 16:19
Автоматическое сохранение листа в файл Csv	flylive	Microsoft Office Excel	13	02.04.2009 10:50
Сохранение текущего листа Excel в отдельный файл	IpS	Microsoft Office Excel	10	04.10.2008 13:45