代碼:
選項顯式
子EtoPDFs()
'
另存為PDF
選擇所有工作表。
床單。選擇？
另存為PDF文件'此工作簿。name '部分，因為妳不知道妳的工作簿的後綴是什麽，否則妳可以通過mid或left函數修改保存的名稱。
ActiveSheet。ExportAsFixedFormat類型:=xlTypePDF，文件名:= _
此工作簿。路徑與路徑。" \ " & amp此工作簿。姓名和名稱。".pdf "，質量_
:=xlQualityStandard，IncludeDocProperties:=True，IgnorePrintAreas:=False，_
OpenAfterPublish:=True？
末端接頭