- Home ›
- Excel VBA入門 ›
- ブックの作成と保存
保存するフォーマットの指定
ファイルを保存する際に、保存するフォーマットを指定することができます。例えばテキスト形式やCSV形式での保存を行うことができます。ここでは Excel VBA でブックを保存するときにフォーマットを指定する方法について解説します。
(Last modified: )
保存するフォーマットを指定する
ブックを保存するときにフォーマットを設定するには「SaveAs」メソッドの引数に「FileFormat」を設定します。
Dim book1 As Workbook Set book1 = Workbooks("VBAsample.xls") book1.SaveAs Filename:="C:¥excelsample¥OtherFile.xls", _ FileFormat:="xlCSV"
指定できるファイルフォーマットは以下の通りです。
定数 | フォーマット | 拡張子 |
---|---|---|
xlCSV | CSV(カンマ区切り) | *.csv |
xlCSVMSDOS | CSV(MSDOS用) | *.csv |
xlCurrentPlatformText | テキスト(タブ区切り) | *.txt |
xlDBF3 | DBF3(dBASE3) | *.dbf |
xlDIF | DIF | *.dif |
xlAddIn | Microsoft Excel アドイン | *.xla |
xlCSVMac | CSV(MAC用) | *.csv |
xlCSVWindows | CSV(Windows用) | *.csv |
xlDBF2 | DBF2(dBASE2) | *.dbf |
xlDBF4 | DBF4(dBASE4) | *.dbf |
xlExcel2 | Excel 2 ワークシート | *.xls |
xlExcel2FarEast | Excel 2.1 ワークシート | *.xjs |
xlExcel3 | Excel 3.0 ワークシート | *.xls |
xlExcel4 | Excel 4.0 ワークシート | *.xls |
xlExcel4Workbook | Excel 4.0 ワークブック | *.xlw |
xlExcel5 | Excel 5.0/95 ワークブック | *.xlw |
xlExcel7 | Excel 7.0/95 ワークブック | *.xlw |
xlExcel9795 | Excel 97-2000及び5.0/95 ワークブック | *.xls |
xlHtml | Webページ | *.htm, *.html |
xlIntlAddIn | インターナショナルアドイン | ? |
xlIntlMacro | インターナショナルマクロ | ? |
xlSYLK | SYLK | *.slk |
xlTemplate | テンプレート | *.xlt |
xlTextMac | テキスト(Mac) | *.txt |
xlTextMSDOS | テキスト(MSDOS) | *.txt |
xlTextPrinter | テキスト(スペース区切り) | *.prn |
xlTextWindows | テキスト(Windows) | *.txt |
xlUnicodeText | テキスト(Unicode) | *.txt |
xlWebArchive | Webアーカイブ | *.mht, *.mhtml |
xlWJ2WD1 | WJ2(1-2-3) | *.wj2 |
xlWJ3 | WJ3(1-2-3) | *.wj3 |
xlWJ3FJ3 | WJ3,FJ3(1-2-3) | *.wj3 |
xlWK1 | WK1(1-2-3) | *.wk1 |
xlWK1ALL | WK1,ALL(1-2-3) | *.wk1 |
xlWK1FMT | WK1,FMT(1-2-3) | *.wk1 |
xlWK3 | WK3(1-2-3) | *.wk3 |
xlWK3FM3 | WK3,FM3(1-2-3) | *.wk3 |
xlWK4 | WK4(1-2-3) | *.wk4 |
xlWKS | WKS(Works) | *.wks |
xlWorkbookNormal | Microsoft Excelワークブック | *.xls |
xlWorks2FarEast | WKS(Works) | *.wks |
xlWQ1 | WQ1(QuattroPro/DOS) | *.wq1 |
xlXMLSpreadsheet | XML スプレッドシート | *.xml |
デフォルトは「xlWorkbookNormal」の「Microsoft Excelワークブック」です。
サンプルプログラム
では簡単なサンプルで試してみましょう。
まず下記のようなExcelファイルを用意します。
これをCSV形式で保存してみます。
Sub テスト() Dim book1 As Workbook Set book1 = Workbooks("VBAsample.xls") book1.SaveAs filename:="C:¥excelsample¥test.csv", _ FileFormat:=xlCSV End Sub
上記マクロを実行するとCSV形式で保存された「test.csv」というファイルが作成されています。CSV形式ですのでExcelに含まれる値だけをテキストファイルとして保存しています。各値の区切りはカンマ区切りとなります。実際にファイルの中身をテキストエディタで開いてみると次のようになります。
上記のようにテキストエディタで見ることができます。
-- --
Excel VBA でブックを保存するときにフォーマットを指定する方法について解説しました。
( Written by Tatsuo Ikura )
著者 / TATSUO IKURA
これから IT 関連の知識を学ばれる方を対象に、色々な言語でのプログラミング方法や関連する技術、開発環境構築などに関する解説サイトを運営しています。