将pdf放置在新创build的同名文件夹中

我想在Q为每个工作表生成一个名为该工作表的新文件夹，然后再次生成工作表名称的PDF。 例如，对于“ Sheet42 ”工作表，我想在文件夹Q:\ Sheet42创build一个名为“ Sheet42 ”的Q:\ Sheet42 。

我可以为Excel文件中的每个工作表生成一个PDF，以使用工作表的名称作为PDF的名称，并将其放在Q文件夹中。

如何创build新的文件夹？

 Sub createPDFfiles() Dim ws As Worksheet Dim Fname As String For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = "Q:" & ws.Name ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Fname, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False Next ws End Sub 

Answer 1

你很靠近使用mkdir，你可以创build目录（下面的代码）。 然后您只需更改Fname即可将文件分配到创build的目录。

 Sub createPDFfiles() Dim ws As Worksheet Dim Fname As String For Each ws In ActiveWorkbook.Worksheets On Error Resume Next MkDir "Q:" & ws.Name Fname = "Q:" & ws.Name & "\" & ws.Name ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ fileName:=Fname, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False Next ws End Sub 

但是你需要检查，如果目录已经存在，在MkDir之前，但它应该很容易为你解决