Здравствуйте! Ребята нашел код, в котором сохраняется текущий лист с автоматическим вводом имени данными из ячеек и с ручным выбором директории для сохранения, подстроил сохранение в формат pdf, но в дальнейшем при попытке открыть файл в adobe reader определяется как неподдерживаемый формат или поврежденный. Подскажите где чем дополнить или где что исправить?
Здравствуйте! Ребята нашел код, в котором сохраняется текущий лист с автоматическим вводом имени данными из ячеек и с ручным выбором директории для сохранения, подстроил сохранение в формат pdf, но в дальнейшем при попытке открыть файл в adobe reader определяется как неподдерживаемый формат или поврежденный. Подскажите где чем дополнить или где что исправить?Сергей13
On Error Resume Next If ActiveSheet Is Nothing Then Exit Sub NewFileName = GetNewFileName4 If NewFileName <> "" Then ActiveSheet.ExportAsFixedFormat 0, NewFileName
End Sub
[/vba]
Здравствуйте! [vba]
Код
Sub SaveActiveSheet4() 'Процедура сохранения
Dim NewFileName
On Error Resume Next If ActiveSheet Is Nothing Then Exit Sub NewFileName = GetNewFileName4 If NewFileName <> "" Then ActiveSheet.ExportAsFixedFormat 0, NewFileName
krosav4ig, а подскажите пожалуйста а можно сделать что бы с листа где применяется макрос, все сводные таблицы сохранялись в пдф файле с названием СВОДНЫЕ (и датА СОЗДАНИЯ ПДФ ФАЙЛА в определенной папке) и отправлялись на печать)
krosav4ig, а подскажите пожалуйста а можно сделать что бы с листа где применяется макрос, все сводные таблицы сохранялись в пдф файле с названием СВОДНЫЕ (и датА СОЗДАНИЯ ПДФ ФАЙЛА в определенной папке) и отправлялись на печать)Extybr
krosav4ig, Сохраняет весь файл, если применить код в рабочем файле то pdf на выходе тяжеловатый. Не изменяя добавил только строку ActiveSheet.ExportAsFixedFormat 0, NewFileName [vba]
Код
Sub SaveActiveSheet4() 'Процедура сохранения
Dim NewFileName
On Error Resume Next If ActiveSheet Is Nothing Then Exit Sub NewFileName = GetNewFileName4 If Len(NewFileName) > 0 Then ActiveSheet.Copy ActiveWorkbook.SaveAs NewFileName ActiveWorkbook.Close False ActiveSheet.ExportAsFixedFormat 0, NewFileName End If End Sub
[/vba] Пока сохраняет, и сохраняет именно лист и файл pdf открывается корректно, завтра проверю на другой версии. Благодарю!
krosav4ig, Сохраняет весь файл, если применить код в рабочем файле то pdf на выходе тяжеловатый. Не изменяя добавил только строку ActiveSheet.ExportAsFixedFormat 0, NewFileName [vba]
Код
Sub SaveActiveSheet4() 'Процедура сохранения
Dim NewFileName
On Error Resume Next If ActiveSheet Is Nothing Then Exit Sub NewFileName = GetNewFileName4 If Len(NewFileName) > 0 Then ActiveSheet.Copy ActiveWorkbook.SaveAs NewFileName ActiveWorkbook.Close False ActiveSheet.ExportAsFixedFormat 0, NewFileName End If End Sub
[/vba] Пока сохраняет, и сохраняет именно лист и файл pdf открывается корректно, завтра проверю на другой версии. Благодарю!Сергей13
Сообщение отредактировал Сергей13 - Четверг, 20.08.2020, 01:06
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
