syrimanskaya12 (Автор тем)

VBA рассылка данных отдельного листа как значение или в формате XPS, в каком виде лучше "выдернуть" лист из файла для дальнейшей рассылки?

syrimanskaya12

Пользователь

Сообщений: 9 Регистрация: 02.04.2015

07.04.2015 00:56:31

Доброй ночи!!
Я добросовестный участник форума.. и прежде чем открывать тему...Внимательно 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. все макросы с Вашего сайта)

Перейти