保存时自动执行此操作

-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

保存时自动执行此操作

回答

相关问题