用vba把excel文件發布轉化為pdf格式文件

 

將工作薄每一個工作表導出為PDF文件。

　

Sub PDF()
 Dim asy As Worksheet
 Dim spath As String
 spath = Excel.ThisWorkbook.Path
 For Each asy In Excel.ThisWorkbook.Worksheets
 sName = spath & "\" & asy.Name & ".pdf"
 asy.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName
 Next
End Sub

將當前工作表導出為PDF文件。

 

Sub PDF()
spatch = Excel.ThisWorkbook.Path
sName = spatch & "\" & ActiveSheet.Name & Format(Date, "yyyymmdd")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName
End Sub

 

 

 VBA 參考文檔

https://msdn.microsoft.com/zh-cn/VBA/Excel-VBA/articles/workbook-exportasfixedformat-method-excel