需要傳兩個(gè)參數(shù)，excel路徑和pdf路徑。
代碼可以做成wsf文件，通過(guò)C語(yǔ)言或者java調(diào)用

<job id="etop"> <reference guid="{00020813-0000-0000-C000-000000000046}" comment="MSExcel 2000 tag library, under HKEY_CLASSES_ROOT\TypeLib\"/> <script language="VBScript">Option ExplicitDim excel_file Dim pdf_file 'If WScript.Arguments.Count < 2 Then ' MsgBox "Usage: t1 <excel_file> <pdf_file> " ' WScript.Quit 'End Ifexcel_file = WScript.Arguments(0) pdf_file= WScript.Arguments(1)Dim ExcelApp Set ExcelApp = CreateObject("Excel.Application")With ExcelApp.Visible = False '設(shè)置excel為可見(jiàn)'With .Options' .CheckSpellingAsYouType = False '不檢查拼寫(xiě)' .CheckGrammarAsYouType = False '不檢查語(yǔ)法'End With'打開(kāi)模板文件.Workbooks.Open(excel_file).Workbooks(1).Activate '激活文檔Dim docSet doc = .ActiveWorkbook '得到這個(gè)使用中的文件doc.ExportAsFixedFormat 0,pdf_file,xlQualityStandard,True,True'pdf_file, 17, False, 0, 0, 1, 1, 0, True, True, 0, True, True, Falsedoc.Close False'With .Options' .CheckSpellingAsYouType = True' .CheckGrammarAsYouType = True'End With.QuitEnd With </script> </job>

總結(jié)

以上是生活随笔為你收集整理的通过vba代码将excel转换为PDF的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。