Макрос сохранения листа Excel в файл




Скачать 16.67 Kb.
НазваниеМакрос сохранения листа Excel в файл
Дата публикации03.09.2013
Размер16.67 Kb.
ТипДокументы

Макрос сохранения листа Excel в файл

Данный макрос позволяет упростить процедуру сохранения активного листа в книге Excel в отдельный файл.


Для использования этого макроса на любом листе в книге Excel создайте кнопку, и назначьте ей макрос СохранитьЛистВФайл.

При запуске макроса (нажатии кнопки) будет выведено диалоговое окно выбора имени для сохраняемого файла, после чего текущий лист будет сохранён под заданным именем в выбранной папке.


^ Сохранение производится в формате XLS (формат Excel 2003)
Если пользователь отказался от ввода имени файла (нажал клавишу ESC или кнопку «Отмена» в диалоговом окне),
то сохранения листа в файл не происходит.

Sub СохранитьЛистВФайл()
    On Error Resume Next
    ' название подпапки, в которую по-умолчанию будет предложено сохранить файл
   Const REPORTS_FOLDER = "Отчёты\"
    ' создаём папку для файла, если её ещё нет
   MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
    ' выбираем стартовую папку
   ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER

    ' вывод диалогового окна для запроса имени сохраняемого файла
   Filename = Application.GetSaveAsFilename("отчёт.xls", "Отчёты Excel (*.xls*),", , _
                                             "Введите имя файла для сохраняемого отчёта", "Сохранить")
    ' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
   If VarType(Filename) = vbBoolean Then Exit Sub

    ' копируем активный лист (при этом создаётся новая книга)
   Err.Clear: ActiveSheet.Copy: DoEvents
    If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа

    ' убеждаемся, что активной книгой является копия листа
   If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
        ' сохраняем файл под заданным именем в формате Excel 2003
       ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
       
        ' закрываем сохранённый файл
       ' (удалите следующую строку, если закрывать созданный файл не требуется)
       ActiveWorkbook.Close False
    End If
End Sub

 

PS: Кто-то может сказать, что для сохранения листа в файл в объектной модели Excel есть метод SaveAs, применимый к объекту Worksheet.

Но, как ни странно, выполнение кода ActiveSheet.SaveAs "<имя файла>" приводит к сохранению книги целиком, что равносильно использованию кода ActiveWorkbook.SaveAs "<имя файла>"

Почему этот метод сохранения работает так нелогично - лично мне не понятно (видимо, Microsoft что-то там перемудрил)

Похожие:

Макрос сохранения листа Excel в файл iconПрограмма (или просто макрос), макрос функция (или функция определённая пользователем
Отличаются они тем, что макрос-программа может выполнять любые предусмотренные vba действия, макрос-функция может только возвращать...
Макрос сохранения листа Excel в файл iconExcel-1 help Практикум Свойства аминокислотных остатков. Анализ последовательности белка
Сохранить как таблицу Excel ( Меню File [Файл]→ Save as [Сохранить как], выберать тип файла “Excel Worksheet” [Книга Microsoft Office...
Макрос сохранения листа Excel в файл iconExcel-1 help Практикум Свойства аминокислотных остатков. Анализ последовательности белка
Сохранить как таблицу Excel ( Меню File [Файл]→ Save as [Сохранить как], выберать тип файла “Excel Worksheet” [Книга Microsoft Office...
Макрос сохранения листа Excel в файл iconЗакрыть все открытые книги Excel
Эти макросы помогут вам закрыть все открытые файлы Excel, оставив лишь текущий файл
Макрос сохранения листа Excel в файл icon2-а (Excel 2007) Нажать кнопку «Microsoft office» (круглая кнопка...
Б (Excel 2010) Нажать в верхнем меню кнопку «Файл» и в открывшемся окне выбрать «Параметры»
Макрос сохранения листа Excel в файл iconФайл, которая среди прочих содержит также команды файловых операций....
Если документ сохраняется первый раз (т е он не был прочитан из файла, а формировался на основе «чистого» листа), тогда действие...
Макрос сохранения листа Excel в файл iconЗадача о раскрое Задача о смеси Задача планирования производства...
Для изготовления книжной полки требуется 3 листа древесной плиты размером 8020 см и 2 листа размером 6525 см
Макрос сохранения листа Excel в файл iconСоздание интерактивного теста в Excel
Выполните команду Сервис – Макрос – Безопасность. В открывшемся диалоговом окне Безопасность во вкладке Уровень безопасности установите...
Макрос сохранения листа Excel в файл iconУчебной дисциплинеРис пс и итдля студентов специальности «Прикладная информатика (в экономике)»
Процесс создания макросов в ms excel очень похож на создание макросов в ms word. Но есть здесь и свои тонкости. Мы создадим макрос,...
Макрос сохранения листа Excel в файл iconПрактическая работа 1 «Ввод данных и формул в ячейки электронной таблицы ms excel»
В ячейку А1 Листа 2 введите текст: "Год основания школы". Зафиксируйте данные в ячейке любым известным вам способом
Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
litcey.ru
Главная страница