Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сохранение выбранного листа в формате 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)

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

Заранее благодарю.
Как сохранять копию файла в папку при открытии в название добавить дату и время сохранения
 
Добрый день, помогите, пожалуйста, справиться со следующей задачей.

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

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

Заранее благодарю.
Изменено: sig_vlad - 17 Сен 2018 12:21:23
Не работает надстройка PLEX
 
AlDan, а Вы не подскажетеЮ можно ли на форуме связаться с Николаем, Потому как в моем случае, наверное, что-то не так с самой надстройкой или ее совместимостью с моим Excel/ Потому как другие макросы все работают как часы.

Заранее благодарю
Не работает надстройка PLEX
 
К сожалению, ничего из этого не сработало..

Просто замучался уже, сделал все и все равно те же ошибки выбивает постоянно.

И начинается это все с того, что недоступен макрос ddOpsSet, я так понимаю это что-то из функционала надстройки
Изменено: sig_vlad - 12 Сен 2018 17:57:21
Не работает надстройка PLEX
 
@AlDan макросы включены. Но я не понимаю, что не так, может дело в версии Excel, как думаете?
Не работает надстройка PLEX
 
Добрый вечер!  Попытался установить надстройку, следуя всем инструкциям в соответствии с файлом "Справка о надстройке".

При этом после открытия любого файла появляются  ошибки как на приложенных фото. Сначала "permission denied", потом "не удается выполнить макрос" дважды. Вкоалка PLEX отображается стабильно, но при попытке воспользоваться любым из инструментов появляется снова ошибка "не удается выполнить макрос" с названием макроса, соответствующего выбранному инструменту.

На ноутбуке установлена версия 1808 сборка 10730.20088.

Помогите решить данную проблемуб возможно кто-то с ней уже сталкивался.

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