• ベストアンサー

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

エクセルのマクロを使って、アクティブシートのみをhtml形式に保存したいと考えています。 　ActiveSheet.SaveAs Filename:="ファイルパス", FileFormat:=xlHtml　 でhtmlに保存するところまではできたのですが、すべてのシートが出力されてしまいます。 アクティブなシート、あるいは特定のシートのみをhtml形式で保存する方法があればご教示ください。

質問者が選んだベストアンサー

  • ベストアンサー
  • angel_Z
  • ベストアンサー率66% (12/18)
回答No.3

こんにちは。 失礼しました。こちらで。 'html作成のシート名をコピー ThisWorkbook.Worksheets("sheet1").Copy Workbooks(Workbooks.Count).SaveAs Filename:="ファイルパス", FileFormat:=xlHtml

atollok_fm
質問者

お礼

素早いご回答ありがとうございます！ 上手くHTMLファイルとして出力することができました。

その他の回答 (2)

  • angel_Z
  • ベストアンサー率66% (12/18)
回答No.2

すいません、こちらだけでしたね(^_^;) Thisworkbook.Worksheet("シート名").SaveAs Filename:="ファイルパス", FileFormat:=xlHtml

atollok_fm
質問者

補足

ご回答ありがとうございます。 早速試してみましたところ、 　コンパイルエラー： 　メソッドまたはデータ　メンバが見つかりません。 というエラーが表示され 　.Worksheet の部分が反転強調されました。

  • angel_Z
  • ベストアンサー率66% (12/18)
回答No.1

こんにちは。 これではどうですか？ ActiveWorkbook.SaveAs Filename:="ファイルパス", FileFormat:=xlHtml または Thisworkbook.Worksheet("シート名").SaveAs Filename:="ファイルパス", FileFormat:=xlHtml

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • EXCEL確認メッセージを出さずに保存したい

    恐れ入りますが、ご教示お願い致します。 質問(1) EXCELファイルを (1)特定の名前で (2)CSVファイルにして 保存をしたいと考えています。次のマクロを書いたところ、”CSVへの変更を保存しますか？”確認メッセージがでます。 確認メッセージを出さずに、保存するためには、どのように記述したらよいでしょうか？ With ActiveWorkbook .SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, FileFormat:=xlCSV .Close End With (2)改行するためにはどうしたらよいでしょうか？ .SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, FileFormat:=xlCSV を、次のように改行させたいのです。 .SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, 　　　　 FileFormat:=xlCSV _　を使うということを、なんとなく覚えておりますが、うまくいきません。注意点等をご教示頂ければと思います。 以上　よろしくお願い致します。

  • エクセル2007でエクセル2003形式で保存しようとしたときに、互換性

    エクセル2007でエクセル2003形式で保存しようとしたときに、互換性チェックのアラートを出さずに保存するには、どのようにマクロ記述すればよいですか。 ActiveWorkbook.SaveAs Filename:= "book1.xls", FileFormat:=xlExcel8 の前か後に何かを記述すれば良いと思うのですが、それがわかりません。 よろしくお願いいたします。

  • マクロ　シート別に名前をつけて保存したい

    １つのブックにシートが複数あり、それぞれシート毎に名前をつけて保存したいです。 質問を検索しましたら似たようなマクロを見つけたのですが、例えば1.2.3・・・というシートがあった場合、エクセル１、エクセル２、というような共通の言葉をつけて保存したい場合の方法を教えて下さい。 たぶんですが・・・下記のどこかにエクセルという言葉をいれるとできますでしょうか？ Workbooks(2).SaveAs Filename:= _ SvPath & Workbooks(BookName).Sheets(SheetName).Name & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False よろしくお願い致します。

  • エクセル：シートを保存するマクロ

    あるエクセルファイルFile.xls内に、４つのシートSheet1,Sheet2,Sheet3,Sheet4があるとして、 ４つのシートを個別にcsvファイルとして保存するようなマクロを作りたいです。 ▼ソースです 　（ここまでのコードで、Pathに保存先のディレクトリ名を取得する部分があるとお考えください）　 Filename = "Sheet1" '保存するシート名は、Sheet1～4 GoSub Save1 Filename = "Sheet2" GoSub Save1 Filename = "Sheet3" GoSub Save1 Filename = "Sheet4" GoSub Save1 '保存完了後は、File.xls内Sheet1のCells(4, 1)にカーソルを配置。 Sheets("Sheet1").Select Cells(4, 1).Select Exit Sub Save1: Sheets(Filename).Select fname = Path & "\" & Filename & ".csv" ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV, CreateBackup:=False Return End Sub 以上のソースで実行すると、 指定したディレクトリにsheet1.csv、sheet2.csv、sheet3.csv、sheet4.csvの４ファイルができます。 ここまでは問題ないのですが、 マクロを実行後、Sheet4.csv(最後に保存したファイル)が開かれた状態になってしまいます。 しかも、ファイル名はSheet4.csvなのに、シートSheet1～4を持っている状態です。 普通にSheet4.csvファイルを開くと、シートはSheet4しかありません。 状態が伝わるでしょうか？ File.xlsのマクロを実行しているので、実行完了後もFile.xlsを開いておきたいのですが、 どのような記述を加えればよいでしょうか？ マクロ(VBA)は使い始めたばかりなので説明されても理解できないかもしれませんが、 できればよろしくお願いいたします。

  • エクセルでのhtm保存

    エクセルでマクロでhtm保存するようにしています。 保存したときにアクティブだったシートで保存されず、 勝手にsheet1が選択されて保存されてしまいます。 保存の際になにか設定があるのでしょうか。 保存した際のアクティブなシートが選択された状態で保存がしたいです。 皆さんお願いいたします。 office　2003 XP マクロ部分（シートを選択するプログラムはありません） ActiveWorkbook.SaveAs Filename:= _ "\\サーバー\OK.htm", _ FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

  • エクセル　マクロでシートをデスクトップに保存する

    ファイルにある複数のシートの中から、Ｂシートだけを抜き出してデスクトップに保存するマクロがわかりません。 他のサイトで以下のＶＢＡがあったので参考にしたのですが Ｃドライブのマイドキュメントに保存されます。 デスクトップに直接保存したいです。 Sub シートコピーR() ' 1.保存したいシートをシートコピーする。 Sheets("Sheet1").Copy ' 2.アクティブシートのセル全体に対して、コピー＆値のみ貼り付けをする。 ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues 'ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False ' 3.アクティブブックを保存する。 ActiveWorkbook.SaveAs FileName:="Ｃ:\ファイル名.xls" End Sub 教えてください。

  • エクセル　テキスト形式の名称変更保存

    みなさまお世話になります 早速ですが、標記の件です csv形式になっているテキストファイル（拡張が異なりますset）をエクセルで カンマ区切りにて開いた後　保存しようとした場合 上書き保存であれば、拡張も元々の拡張子で保存されるのですが マクロを使用してファイル保存をしようとすると ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name, FileFormat:=xlCSV, CreateBackup:=False 拡張子がCSVになってしまいます。 それを元々の拡張にて保存を行いたいのです。 またファイル名が長いので　変更をかけた後　 シート名の一部を変更して保存したいためにActiveSheet.Nameを 使用しています どうぞよろしくお願いします。

  • ExcelVBAでテキスト保存

    ExcelVBAを使って、ワークシートをテキストファイルに保存しようとしています。 CSV形式で保存するときは、 　　Sheets("test").Activate 　　ActiveSheet.SaveAs Filename:=ActiveSheet.Name & ".csv", _ 　　　　FileFormat:=xlCSV, CreateBackup:=False でtest.csvに保存できますが、 単純にテキストファイルとして保存したいときに 　　Sheets("test").Activate 　　ActiveSheet.SaveAs Filename:=ActiveSheet.Name & ".txt", _ 　　　　FileFormat:=xlText, CreateBackup:=False としても、実行時に下記のエラーになってしまいます。 　　実行時エラー '1004' 　　アプリケーション定義またはオブジェクト定義のエラーです。 どうしたらよいのでしょうか？ また、CSVで保存した時も開いているファイルがtest.csvに変わってしまいますが、できれば、開いているファイルは元のファイルのままでシートだけを保存するにはSaveAsメソッドではなく、他のメソッドを使うのでしょうか？ (hogehoge.xlsのtestシートを保存してもhogehoge.xlsが開いたままにしたい) 以上、宜しくお願いします。

  • エクセルマクロ

    入力したワークシートを 新しいブックにコピーして保存するマクロを作成しました。 ただ下記の様に保管すると、 数式もそのまま元のエクセルファイルの数式を参照してしまいます。 下記のマクロをあまり変更しないで、 値貼付け（もしくは値貼付けしながら、新しいブックへコピー） するにはどの様に変更するといいでしょうか？ よろしくお願いします。 'Sub newfilesave() Sheets("Sheet1").Copy '名前を付け、ファイル形式も決めてデスクトップに日付を付けて保存する。。 'ActiveWorkbook.SaveAs _ ' Filename:="C:\Users\xxxxx\Desktop\" & Format(Now(), "yyyymmdd_hhmm"), _ ' FileFormat:=xlOpenXMLWorkbook 'End Sub

  • エクセル2010で2003形式でマクロ保存したい

    マクロ初心者ですので、よろしくお願いいたします。類似例が無いかと検索しましたが見つからないので質問いたします。 会社のパソコンがエクセル2003から2010に変更されました。しかし、XP環境でエクセル2003しか使えないソフトがあり、そのパソコンも残してあります。2010で作成したマクロブック（xlsm）が、2003でも使えるようファイル名を付けてエクセル2003（xls）で保存できるマクロを作成したのですが、うまくいきません。 2010で保存できた構文に、「m」を削除し、Excel8の構文を付加するのですが、構文「FileFormat:」がハイライトされ、コンパイルエラーと表示され、「名前付き引数がありません」となります。 ActiveWorkbook.SaveCopyAs Filename:=FPATH & "\" & book3 & ".xls", _ FileFormat:=xlExcel8　 「ActiveWorkbook.SaveAs」では拡張子が合わないとなりますが、保存はできています。「ActiveWorkbook.SaveCopyAs」で名前付け保存したいのですが、上記のエラーとなります。 よろしくご回答をお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する