WPS会员功能免费用，会VBA就是爽！

??????????????????????PDF????WPS????????

?????WPS???????????VBA???????????

????

????

1.?????????????PDF

Sub ???PDF()

strPath = ThisWorkbook.Path & "\"

For Each s In Sheets

s.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & s.Name & ".pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Next

End Sub

2.??????????????PDF

???IF?????????????Excel????????????????????????????

Sub ???PDF1()

strPath = ThisWorkbook.Path & "\"

For Each s In Sheets

If s.Name <> "Excel???" Then

s.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & s.Name & ".pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End If

Next

End Sub

???????VB??????????????????????

??????????????????????????

??????VBA???????????????????

??????VIP???????????????????+????????????888???????

????????chenxilu2021????????????

??????????????VBA??

??????????????Excel????????

??????????????

01 ????????????????????????????????????

02 ????????????????????????????????????????

??

???????????????Excel???? ??????????????????????Excel????ID?Excelbujiaban?

??????????

???Excel??????????????