使用VBA将excel工作簿里的所有工作表按工作表名称分别另存为PDF文档

你可以使用以下VBA代码将Excel工作簿中的所有工作表分别另存为PDF文档：

Sub SaveWorksheetsAsPDFs()
    Dim sht As Worksheet
    Dim folderPath As String
    Dim filePath As String
    
    '设置文件夹路径
    folderPath = "C:\Users\UserName\Documents\PDFs\"
    
    '循环处理每个工作表
    For Each sht In ActiveWorkbook.Worksheets
        '生成文件路径和名称
        filePath = folderPath & sht.Name & ".pdf"
        
        '另存为PDF
        sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next sht
End Sub

在上面的示例代码中，你需要替换“C:\Users\UserName\Documents\PDFs\"为你要保存PDF文件的文件夹路径。这个路径可以根据你的需要进行更改。

相关问题

VBA将当前工作簿所有工作表按工作表名称分别另存为PDF文档

以下是实现将当前工作簿所有工作表按工作表名称分别另存为PDF文档的 VBA 代码：

Sub ExportWorksheetsAsPDF()
    Dim ws As Worksheet
    Dim path As String
    Dim file As String
    
    '获取当前工作簿路径
    path = ThisWorkbook.path & "\"
    
    '循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        '获取工作表名称
        file = ws.Name & ".pdf"
        '另存为PDF文档
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & file, Quality:=xlQualityStandard
    Next ws
End Sub

你可以将这段代码复制到 VBA 编辑器中，或者按下 `Alt` + `F11` 打开 VBA 编辑器，插入一个新模块，然后将代码复制进去。接着，你可以在 Excel 中按下 `Alt` + `F8`，选择 `ExportWorksheetsAsPDF` 宏并运行它，即可将当前工作簿所有工作表按工作表名称分别另存为 PDF 文档。

excelvba另存工作簿之后删除按钮及宏代码

在Excel VBA中，我们可以使用宏代码来实现另存工作簿和删除按钮的功能。以下是实现该功能的步骤：

1. 首先，在工作簿中插入一个按钮。选择“开发工具”选项卡，点击“插入”按钮下的“按钮”控件，然后在工作表上绘制一个按钮。

2. 右键单击按钮，选择“编辑代码”，进入VBA编辑器。

3. 在VBA编辑器中，找到按钮所在的工作表文件夹，双击打开该文件夹，在其中插入一个新的模块。

4. 在新的模块中编写宏代码实现另存工作簿的功能。可以使用"SaveAs"方法来保存工作簿，指定另存的路径和文件名。

5. 在按钮所在的工作表文件夹中找到该按钮对象，使用它的“Click”事件，在其中调用刚刚写好的宏代码。

6. 在按钮所在的工作表文件夹中找到该按钮对象，对应的外观设置为“删除”。

这样，当我们点击该按钮时，工作簿将被另存到指定路径，然后按钮本身也会被删除。

请注意，以上描述是一种常见的实现方式，但实际操作可能会因具体情况而有所不同。因此，在编写和调试代码时，请参考VBA官方文档和相关教程，以确保正确实现所需的功能。