通过vba代码将excel转换为PDF

需要传两个参数，excel路径和pdf路径。
代码可以做成wsf文件，通过C语言或者java调用

<job id="etop">
<reference guid="{00020813-0000-0000-C000-000000000046}"	comment="MSExcel 2000 tag library, under HKEY_CLASSES_ROOT\TypeLib\"/>
<script language="VBScript">

Option Explicit

Dim excel_file
Dim pdf_file 

'If WScript.Arguments.Count < 2 Then
'	MsgBox "Usage: t1 <excel_file> <pdf_file> "
'	WScript.Quit
'End If

excel_file = WScript.Arguments(0)
pdf_file= WScript.Arguments(1)

Dim ExcelApp
Set ExcelApp = CreateObject("Excel.Application")

With ExcelApp
	.Visible = False '设置excel为可见
	'With .Options
	'	.CheckSpellingAsYouType = False '不检查拼写
	'	.CheckGrammarAsYouType = False '不检查语法
	'End With
	'打开模板文件
	.Workbooks.Open(excel_file)
	.Workbooks(1).Activate '激活文档
	Dim doc
	Set doc = .ActiveWorkbook '得到这个使用中的文件
	
	doc.ExportAsFixedFormat 0,pdf_file,xlQualityStandard,True,True
	'pdf_file, 17, False, 0, 0, 1, 1, 0, True, True, 0, True, True, False

	doc.Close False
	'With .Options
	'	.CheckSpellingAsYouType = True
	'	.CheckGrammarAsYouType = True
	'End With
	.Quit
	
End With
</script>
</job>