保存時自動執行此操作

-1

我該如何讓這段代碼每次運行時都保存ecxel表單？保存時自動執行此操作

Sub export_pdf() 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"E:\09-Prozessvisualisierung.pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True,IgnorePrintAreas:=False,OpenAfterPublish:=True 
End Sub

我已經試過了。但沒有奏效。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

Sub export_pdf() 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"E:\09-Prozessvisualisierung.pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False,OpenAfterPublish:=True 


End Sub

Picture of the VBA-Code

來源

2017-01-02 gpp

只需將代碼複製到'Workbook_BeforeSave'情況下，'Workbook'模塊 –

像這裏面？私人小組Workbook_BeforeSave（BYVAL SaveAsUI由於布爾，取消爲布爾）子export_pdf（） ActiveSheet.ExportAsFixedFormat類型：= xlTypePDF，文件名：= _ 「E：\ 09-Prozessvisualisierung.pdf」，質量：= xlQualityStandard，_ IncludeDocProperties：= True，IgnorePrintAreas：= False，OpenAfterPublish：= True End Sub – gpp

沒有'Sub export_pdf（）'和'End Sub'。或者你可以保留這整個Sub，並且只需在Private Sub Workbook_BeforeSave（ByVal SaveAsUI As Boolean，Cancel As Boolean）中添加'調用export_pdf'事件 - 您的選擇 –

-1

寫Workbook_BeforeSave事件中的整個代碼。

（注意：如果可以的話，我建議不要使用ActiveSheet）。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
      "E:\09-Prozessvisualisierung.pdf", Quality:=xlQualityStandard, _ 
      IncludeDocProperties:=True, IgnorePrintAreas:=False 

End Sub

來源

2017-01-02 13:14:48

我複製/粘貼了您的代碼，但它不起作用。我不知道什麼是錯的。 – gpp

你複製了我的整個代碼（只有選項1），保存了你的工作簿，什麼都沒有發生？ –

沒錯。我嘗試了第二個two.bud也沒有工作。 – gpp

保存時自動執行此操作

回答

相關問題