どのように私はPDFファイルとしてシートを保存して、私は名前のセルの値を持つフォルダを作りたい、私は同時に、PDFなどのファイルを保存するために、ここでのコードを持っている

Question

フォルダを保存し、そのフォルダにファイルを保存することができます

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


End Sub 

フォルダかどうかを確認するために、私はいくつかのif/then文で追加していたものと同じ名前のフォルダ/ファイルを作成する機会があれば

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 

を使用する必要があるフォルダを作成するには/ファイルが最初に存在するかどうか。