まりふのひと

(施設予約|品目別分類表)
(このヘッダーの原紙は 3月31日の記事

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」となる。