ExcelファイルをHTMLファイルにコンバートする

COMスクリプティングが貧弱 - PowerShell Memoで、「ExcelファイルをHTMLファイルにコンバートする」スクリプトを紹介しましたが、
Monad Beta2ではExcelファイルのオープンに失敗するため動作しませんでした。


Beta3で実行してみると、なんと、正しく動作するじゃないですか。
COM周りも改善しているのかな?


というわけで、再度紹介しますね。

ExcelファイルをHTMLファイルにコンバートする
param([string] $xlsFilePath)

# Excelファイルをオープンする
$excel    = new-object -com Excel.Application
$workbook = $excel.Workbooks.Open($xlsFilePath)

# 出力するHTMLファイル名が存在する場合は削除する
$htmlPath  = [System.IO.Path]::ChangeExtension($xlsFilePath,".html")
$filesPath = $htmlPath + ".files"
remove-item $htmlPath  -ea SilentlyContinue
remove-item $filesPath -ea SilentlyContinue

# ExcelファイルをHTMLファイルにコンバートする
# Const xlHtml = 44 (&H2C)
$workbook.SaveAs($htmlPath, 44)

# HTMLファイルが出力されるまでウェイト
while(test-path $htmlPath -eq $False)
{
    start-sleep -m 100
}

# Excelファイルをクローズし、Excelを終了する
$workbook.Close()
$excel.Quit()

# オブジェクト破棄
$excel = $null
$workbook = $null