Доброй ночи!!
Я добросовестный участник форума.. и прежде чем открывать тему...Внимательно 2 дня листала форум..Но так и не смогла решить до конца свою проблему. Не откажите в помощи.
Суть проблемы. Есть файл
лист 1 - исходные данные
лист сводная - на базе исходных данных строится сводная таблица
лист 2-27 - это исходная таблица разбрасывается по листам через Параметры сводной таблицы \ Отобразить страницы фильтра отчета
Дальнейшая цель - это рассылка каждого листа своему адресату (знаю, что тема избитая)
Имеется макрос, который формирует каждый лист в отдельный файл (в формате .xls)
Посоветуйте как лучше поступить:
а) возможно ли доработать макрос (выше), чтобы он каждый лист сохранял как значение в отдельный файл (без потери в форматировании)
б) доработать макрос ниже, чтобы он все листы ПООЧЕРЕДИ сохранял в формате XPS в отдельные файлы
Далее планирую использовать макрос для рассылки полученных файлов через OutLook адресатам
Заранее спасибо.
P.S. все макросы с Вашего сайта)
Я добросовестный участник форума.. и прежде чем открывать тему...Внимательно 2 дня листала форум..Но так и не смогла решить до конца свою проблему. Не откажите в помощи.
Суть проблемы. Есть файл
лист 1 - исходные данные
лист сводная - на базе исходных данных строится сводная таблица
лист 2-27 - это исходная таблица разбрасывается по листам через Параметры сводной таблицы \ Отобразить страницы фильтра отчета
Дальнейшая цель - это рассылка каждого листа своему адресату (знаю, что тема избитая)
Имеется макрос, который формирует каждый лист в отдельный файл (в формате .xls)
Код |
---|
Sub SplitSheets2() Dim s As Worksheet Dim wb As Workbook Set wb = ActiveWorkbook For Each s In wb.Worksheets s.Copy ActiveWorkbook.SaveAs wb.Path & "" & s.Name & ".xlsx" ActiveWorkbook.Close False Next End Sub |
Посоветуйте как лучше поступить:
а) возможно ли доработать макрос (выше), чтобы он каждый лист сохранял как значение в отдельный файл (без потери в форматировании)
б) доработать макрос ниже, чтобы он все листы ПООЧЕРЕДИ сохранял в формате XPS в отдельные файлы
Код |
---|
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypeXPS, Filename:= _ "C:\Договоры\Book1.xps", Quality:=xlQualityStandard, _ IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= False |
Далее планирую использовать макрос для рассылки полученных файлов через OutLook адресатам
Заранее спасибо.
P.S. все макросы с Вашего сайта)