エクセルファイルの内容をHTML形式に保存する処理を行なっています。
開発環境はVB6
参照設定で[Microsoft Excel 11.0 Object Library]を設定しています。
Excel2003がインストールされたPCで実行すると、そのままHTML化されます。
Excel2007がインストールされたPCで実行すると、
HTML化されたファイルの下部分にシート見出しが表示されてしまいます。
シート見出しが表示されないようにする事は可能でしょうか?
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
'ファイルを開く
Set xlBook = xlApp.Workbooks.Open("C:\test.xls")
Set xlSheet = xlBook.Worksheets(1)
'HTML形式で保存
xlBook.SaveAs "C:\test.html", xlHtml
ツイート | ![]() |