Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель 20.05.2024 от 20 мая 2024, 17:04

Название: Присвоение имени файла из ячейки.
Отправлено: Посетитель 20.05.2024 от 20 мая 2024, 17:04
Доброго денёчка, помогите чайнику.
Записал макрос (все что умею) но ни как не могу сделать так что бы имя файла при сохранении перетягивалось из ячейки либо (B1 лист2) либо же из (G3 лист 1). Прикрепил сам файл и код ниже указал.
Сам код:
Sub PDF()
'
' PDF Макрос
'

'
    Sheets("Лист1").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\User\Desktop\Файл.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

[ФАЙЛЫ ВАШИ ПОЛУЧЕНЫ - НЕТ НЕОБХОДИМОСТИ ВЫКЛАДЫВАТЬ ИХ ПОВТОРНО]
Название: Присвоение имени файла из ячейки.
Отправлено: Администратор от 20 мая 2024, 17:07
Цитата:
перетягивалось из ячейки либо (B1 лист2) либо же из (G3 лист 1)

Вы примите решение, из какой ячейки надо извлекать, и сообщите.
Название: Присвоение имени файла из ячейки.
Отправлено: Посетитель 20.05.2024 от 20 мая 2024, 17:10
Пусть будет из этой (B1 лист2). Данные одни и те же в каждой ячейке, поэтому так написал.
Название: Присвоение имени файла из ячейки.
Отправлено: Администратор от 20 мая 2024, 17:17
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Путь укажите свой, я изменил ваш путь.

Sub PDF()
    Sheets("Лист1").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\User\Desktop\" & Worksheets("Лист2").Range("B1").Value & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub
Название: Присвоение имени файла из ячейки.
Отправлено: Посетитель 20.05.2024 от 21 мая 2024, 10:13
Добрый день, все работает, спасибо.