Excel2010対応の住所録マクロが出来た

15日以来の懸案だった「住所録マクロ」後の警告 が解決した。
新版「住所録マクロ ver.2.2b」は、住所録マクロの使い方（ver.2.2b） （まりふの別紙 - 2010.12.27）のページからダウンロードできる。

■　対応前のコード

1. 新しいブックを作成し、
2. 名前を付けて「Wordで宛名印刷専用住所録.xls」で保存するコード

1. Set AtenaBook = Workbooks.Add
2. AtenaBook.SaveAs WordBookNameFullPath

上記を Excel2010で実行すると、エラーにはならないが、実行後、「Wordで宛名印刷専用住所録.xls」を開くと、「開こうとしているファイル ****.xls は、実際にはその拡張子が示すファイル形式ではありません」の警告が出る。

■　対応後のコード

1. Set AtenaBook = Workbooks.Add
2. If Val(Application.Version) < 12 Then
3. AtenaBook.SaveAs Filename:=WordBookNameFullPath
4. Else
5. AtenaBook.SaveAs Filename:=WordBookNameFullPath,FileFormat:=56
6. End If

1. 1行目は対応前と同じ。
2. Excelのバージョンが <12 であれば、
3. 従来どおり。
4. そうでなければ、
5. FileFormat「xlExcel8」（Excel97-2003形式）で保存する。
   • xlExcel8 のコードは 56。
   • “xlExcel8”でコーディングすると、旧バージョンの Excelでは「undefined」となる。