Excel 2010 でも 2007 でも 2003 でも 2003以前形式で保存するVBA

ノウハウトップ　>　Excel 2010 でも 2007 でも 2003 でも 2003以前形式で保存するVBA

ノウハウ本文
編集する
履歴

Excel 2010 でも 2007 でも 2003 でも 2003以前形式で保存するVBA

作成日時：2010-12-06 09:27:22

お気に入りに追加するには、[無料登録]ください。

以前のバージョンと互換性を持つファイル形式で保存するコード
Workbooks(1).SaveAs FileName:=FileName, FileFormat:=xlExcel8
をExcel 2003 で実行するとエラーになります。
xlExcel8 という定義は、2003以前という定義で2003にはわからないようです。
2003では、xlExcel9795という定義を使います。
以下のサイトの説明が分かりやすかったです。
http://blog.livedoor.jp/akf0/archives/51172335.html
そのサイトのソースをそのまま紹介させていただきます。
以下のコードで、Excel 2010 でも 2007 でも 2003 でも 2003以前形式で保存できます。
・

Private Sub Main()
　Dim FileName As String
　FileName = "C:\テスト.xls"
　If Application.Version < 12 Then
　　Workbooks(1).SaveAs FileName:=FileName, FileFormat:=xlExcel9795
　Else
　　Workbooks(1).SaveAs FileName:=FileName, FileFormat:=xlExcel8
　End If
End Sub