vba 将html转换excel,使用VBA将Excel文档转换为PDF

试试这个:

Sub ExportAsPDF()

Dim Worksheet1 As Worksheet

Dim Worksheet2 As Worksheet

Dim Worksheet1_Name As String

Dim Worksheet2_Name As String

Worksheet1_Name = "Sheet1" ' Replace this with the name of the first sheet you want to export

Worksheet2_Name = "Sheet2" ' Replace this with the name of the second sheet you want to export

Set Worksheet1 = ThisWorkbook.Worksheets(Worksheet1_Name)

Set Worksheet2 = ThisWorkbook.Worksheets(Worksheet2_Name)

Dim Write_Directory As String

Dim Worksheet1_Path As String

Dim Worksheet2_Path As String

Write_Directory = "C:\Users\YOUR_USERNAME\Documents" ' Replace this with the full path of the directory you want to save to

Worksheet1_Path = Write_Directory & "\" & Worksheet1_Name

Worksheet2_Path = Write_Directory & "\" & Worksheet2_Name

Worksheet1.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=Worksheet1_Path, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Worksheet2.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=Worksheet2_Path, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Application.StatusBar = "Exported " & Worksheet1_Name & " & " & Worksheet2_Name & " to PDF!"

End Sub