エクセルのマクロでアクティブシートをhtml保存

質問

エクセルのマクロを使って、アクティブシートのみをhtml形式に保存したいと考えています。

　ActiveSheet.SaveAs Filename:="ファイルパス", FileFormat:=xlHtml　

でhtmlに保存するところまではできたのですが、すべてのシートが出力されてしまいます。
アクティブなシート、あるいは特定のシートのみをhtml形式で保存する方法があればご教示ください。

回答No.3

angel_Z · ベストアンサー

こんにちは。

失礼しました。こちらで。

'html作成のシート名をコピー
ThisWorkbook.Worksheets("sheet1").Copy
Workbooks(Workbooks.Count).SaveAs Filename:="ファイルパス", FileFormat:=xlHtml

お礼

素早いご回答ありがとうございます！

上手くHTMLファイルとして出力することができました。

回答No.2

angel_Z

すいません、こちらだけでしたね(^_^;)

Thisworkbook.Worksheet("シート名").SaveAs Filename:="ファイルパス", FileFormat:=xlHtml

補足

ご回答ありがとうございます。

早速試してみましたところ、

　コンパイルエラー：
　メソッドまたはデータ　メンバが見つかりません。

というエラーが表示され

　.Worksheet

の部分が反転強調されました。

回答No.1

angel_Z

こんにちは。

これではどうですか？

ActiveWorkbook.SaveAs Filename:="ファイルパス", FileFormat:=xlHtml

または

Thisworkbook.Worksheet("シート名").SaveAs Filename:="ファイルパス", FileFormat:=xlHtml