Доброго денёчка, помогите чайнику.
Записал макрос (все что умею) но ни как не могу сделать так что бы имя файла при сохранении перетягивалось из ячейки либо (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
[ФАЙЛЫ ВАШИ ПОЛУЧЕНЫ - НЕТ НЕОБХОДИМОСТИ ВЫКЛАДЫВАТЬ ИХ ПОВТОРНО]
Цитата:
перетягивалось из ячейки либо (B1 лист2) либо же из (G3 лист 1)
Вы примите решение, из какой ячейки надо извлекать, и сообщите.
Пусть будет из этой (B1 лист2). Данные одни и те же в каждой ячейке, поэтому так написал.
Написал вам два письма на почту с заголовком "Письмо с Форума по 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
Добрый день, все работает, спасибо.