本文介绍了一段VBA代码，该代码在工作簿保存后自动将活动工作表导出为PDF格式。代码首先定义了一个子过程Workbook_AfterSave，用于在工作簿保存后执行。然后使用Scripting.FileSystemObject对象读取指定文件路径的文本文件，获取文件名。最后，使用ActiveSheet.ExportAsFixedFormat方法将活动工作表导出为PDF。
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim fso
Dim f
Dim readText As String
filepath = "C:\temp\FileName.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filepath)
readText = f.ReadAll
readText = Replace(readText, vbCrLf, "")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=readText
End Sub
扫一扫
4245
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
