ExcelからPDFを作成

ExcelからPDFを作成するWebアプリを作成することになった。
Excel2010をサーバ側で、Excelオートメーションを利用して
PDF出力すれば良いのだが、何故かサンプルがうまく動作しない。
IISで作成したxlsxファイルを、直ぐに読み込む為にファイルロックがかかっているようだ。
※単体テストの場合、すんなり動作してくれる。

VBScriptから、Excelを起動してＰＤＦ作成するように修正。

VBScriptのソース
Set xl=CreateObject("Excel.Application")
xl.AutomationSecurity=2
Set bk=xl.WorkBooks.Open(WScript.Arguments.Item(0))
bk.ExportAsFixedFormat xlTypePDF, WScript.Arguments.Item(0) & ".pdf", xlQualityStandard, _
True, False, 1, 1, False
bk.Close
Set bk=Nothing
xl.Quit
Set xl=Nothing

bk.ExportAsFixedFormatがミソ