VBA 保存excel的第一个sheet为PDF

VBA（Visual Basic for Applications）是Excel中内置的一种宏语言，可以用来自动化工作流程。要使用VBA将Excel的第一个Sheet（通常称为Sheet1）保存为PDF格式，你可以编写如下的代码：

Sub SaveSheetAsPDF()
    ' 导入必要的库
    Dim objApp As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Set objApp = CreateObject("Excel.Application")
    Set objWorkbook = objApp.ActiveWorkbook
    Set objWorksheet = objWorkbook.Sheets(1) ' 设置为Sheet1
    
    ' 保存为PDF
    objWorksheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\YourUsername\Desktop\Sheet1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    ' 清理并关闭对象
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objApp = Nothing
End Sub

这段代码首先创建了Excel应用程序的对象，然后获取活动工作簿和第一个Sheet。接着，它使用`ExportAsFixedFormat`方法将Sheet1导出到指定路径（你需要替换为你想要保存的位置），最后记得清理资源。