Страницы: 1
RSS
Сохранение выбранного листа в формате PDF c выбором пользователем конечной папки хранения
 
Добрый день, помогите, пожалуйста, справиться со следующей задачей.

В файле 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)

Помогите поправить код или порекомендуйте, пожалуйста, другой.

Заранее благодарю.
Страницы: 1
Наверх