難度係數:初級
系統:Windows 7
軟體:Excel 2010
新建Excel文件示例.xlsx
保存並關閉
打開示例.xlsx,並在第1個工作表A1單元格寫上測試
另存為pdf
保存並關閉示例.xlsx文件
Sub main() rootAddress = ThisWorkbook.Path excelAddress = rootAddress & "\" & "示例.xlsx" Dim wb As Workbook
Set wb = Workbooks.Add wb.SaveAs Filename:=excelAddress, FileFormat _ :=xlOpenXMLWorkbook, CreateBackup:=False wb.Save wb.Close
Set wb = Workbooks.Open(excelAddress)
Set sht = wb.Worksheets(1) sht.Range("A1") = "測試" pdfName = rootAddress & "\" & "示例.pdf" sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False wb.Save wb.Close
End Sub
在這裡使用先定義一個Workbook對象,再將其另存為需求文件。還有另外一種方法,就是採用ActiveWorkbook。推薦使用方法1
方法1:
Dim wb As WorkbookSet wb = Workbooks.Add
方法2:
Workbooks.AddActiveWorkbook.SaveAs Filename:=NewFileAddr, FileFormat _:=xlOpenXMLWorkbook, CreateBackup:=FalseSet wb = ActiveWorkbook
更多精彩,請關注微信公眾號
掃描二維碼,關注本公眾號
厲害的你