Как я могу сохранить лист как PDF и сохранить папку

Question

У меня есть код здесь, чтобы сохранить файл в формате PDF, в то же время, я хочу сделать папку с именем значения ячейки и сохранить файл в этой папке

Sub Button1_Click() 
Sheet3.ExportAsFixedFormat _ 
Type:=xlTypePDF, _ 
Filename:=ActiveWorkbook.Path & "\" & Sheet1.Range("A2").Value & "-" & Sheet1.Range("B2").Value, _ 
OpenAfterPublish:=True 


End Sub 

Answer 1

чтобы создать папку, которую нужно использовать MkDir

Dim folder As String 

folder = ActiveWorkbook.Path & "\" & Sheet1.Range("A2").Value 
MkDir folder 'this makes the folder 

Sheet3.ExportAsFixedFormat _ 
Type:=xlTypePDF, _ 
Filename:=folder & "\" & Sheet1.Range("B2").Value 'saves the file in that folder 

Если есть шанс создать папку/файл с таким же названием, которое я хотел бы добавить в некоторых /, то заявления, если проверить, если папка/файл существует первым или нет.