如何将工作表另存为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

如果有可能创建一个具有相同名称的文件夹/文件，我会在一些If / Then语句中添加以检查文件夹/文件是否首先存在。