エクセルを開かずにファイルの拡張子を変更する。

Question

VBAにてエクセルファイルをhtml形式に変換することを目指しています。

Sub toHtml()
    Dim book1 As Workbook

    Set book1 = Workbooks("Sample1.xls")

    book1.SaveAs Filename:="C:\Temp\Sample1.htm", FileFormat:=xlHtml
End Sub

上記でSample1.xlsをhtml形式に変換することはできたのですが
Sample1.xlsを開いている状態でないとエラーとなります。
Sample1.xlsを開かずにhtmlに変換することはできますでしょうか。

Comments

[maisumakun]

えっと、どうしても「開かずに」実行しなければならないのでしょうか（「プログラムでExcelを開く」、という手法では問題がありますでしょうか）。

[popchan]

もとのsample1.xlsにグラフが用意されていて
javaの機能でエクセルの値を変更し、グラフの値を変更してます。
そこからエクセルをhtmlに変換した際にできるグラフのイメージファイルを
必要としています。

Answer 1

コードを拝見した感じでは、自動で開いて処理するのは問題ないと思われましたので、次のようにしてみてはいかがでしょうか。

Sub toHtml()
    Dim book1 As Workbook

    Set book1 = Workbooks.Open("Sample1.xls") ' ブックを開く

    book1.SaveAs Filename:="C:\Temp\Sample1.htm", FileFormat:=xlHtml

    book1.Close                               ' ブックを閉じる

End Sub

当然ですが、Openメソッドに指定するファイル名は、絶対パスなり相対パスなりで参照できるパスを指定してくださいね。
マクロを置くブックと同じフォルダにあるなら、パスの指定は不要ですけど。

Answer 2

エクセルの機能を使ってHTMLに変換してるのだから、エクセルを実行してないとそもそも無理な話でしょうね

Answer 3

開かずに変換できたら神技だね。

エクセルファイルの拡張子（例：.xls） を.zip に変えて、
そのZipファイルを展開するとエクセルファイルの本当の姿が見えるから、
理解できると思うよ~