Здравствуйте. Есть макрос, который сохраняет выбранный диапазон в pdf на рабочем столе. Хотелось бы, чтобы макрос спрашивал место сохранения. Помогите, пожалуйста дописать
Код |
---|
Sub сохранить_накладную_в_pdf()
'
' сохранить Макрос
'
Dim a
a = Sheets("Накладная").[b5].Value
Sheets(Array("Накладная")).Select
Sheets("Накладная").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\1\Desktop\" & a & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("Накладная").Select
Range("A1:G63").Select
End Sub
|