保存するフォーマットの指定

ファイルを保存する際に、保存するフォーマットを指定します。例えばテキスト形式やCSV形式での保存を行う場合に使います。

設定するには「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形式で保存してみます。

testbooknew9.bas

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に含まれる値だけをテキストファイルとして保存しています。各値の区切りはカンマ区切りとなります。実際にファイルの中身をテキストエディタで開いてみると次のようになります。

上記のようにテキストエディタで見ることができます。

OfficePro