我如何将表格保存为pdf并保存文件夹

我有一个代码在这里将文件保存为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

要创build你需要使用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 

如果有机会创build一个名称相同的文件夹/文件，我会添加一些If / Then语句来检查文件夹/文件是否首先存在。