Добрый день, помогите, пожалуйста, справиться со следующей задачей.
В файле Excel формируются дашборды по странам, необходимо сохранять лист с дашбордом как pdf в той же папке, где лежит Excel файл c указанием в названии страны(берется из ячейки I2), типа дашборда и текущей даты.
Знаю, что в Приемах есть статья на эту тему, по мотивам которой я составил вот такой макрос:
Данный макрос отлично работает на моем компьютере, но при попытке выполнить его на другом компе вылазит ошибка (прилагается, файл ОШИБКА 1).
Поэтому решил переформулировать задачу: сохранять выделенный лист в формате pdf в папку, определяемую пользователем, c указанием в названии страны(берется из ячейки I2), типа дашборда и текущей даты.
Попробовал переписать код под это дело:
но выдает ошибку (прилагается, файл ОШИБКА 2)
Помогите поправить код или порекомендуйте, пожалуйста, другой.
Заранее благодарю.
В файле Excel формируются дашборды по странам, необходимо сохранять лист с дашбордом как pdf в той же папке, где лежит Excel файл c указанием в названии страны(берется из ячейки I2), типа дашборда и текущей даты.
Знаю, что в Приемах есть статья на эту тему, по мотивам которой я составил вот такой макрос:
Код |
---|
Sub SplitSheets6() Dim AW As Window Set AW = ActiveWindow For Each s In AW.SelectedSheets s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & "\" & s.Range("I2") & "_snapshot (1 page)" & "_" & Date & ".pdf", Type:=xlTypePDF Next End Sub |
Данный макрос отлично работает на моем компьютере, но при попытке выполнить его на другом компе вылазит ошибка (прилагается, файл ОШИБКА 1).
Поэтому решил переформулировать задачу: сохранять выделенный лист в формате pdf в папку, определяемую пользователем, c указанием в названии страны(берется из ячейки I2), типа дашборда и текущей даты.
Попробовал переписать код под это дело:
Код |
---|
Sub SplitSheets15() Dim AW As Window Set AW = ActiveWindow For Each s In AW.SelectedSheets s.ExportAsFixedFormat Type = xlTypePDF Filename = Application.GetSaveAsFilename( _ s.Range("I2") & "_snapshot (1 page)" & Date, _ "PDF (*.pdf),", , "Please select the appropriate folder to save the snapshot", "Save") Quality = xlQualityStandard DisplayFileAfterPublish = True Next End Sub |
но выдает ошибку (прилагается, файл ОШИБКА 2)
Помогите поправить код или порекомендуйте, пожалуйста, другой.
Заранее благодарю.