« Excelの複数バージョンが混在する環境で異なるバージョンのExcelで開く。 | トップページ | Excelでマルチタスク処理 »

2008年1月16日 (水)

Excelの複数バージョンが混在する環境で異なるバージョンのExcelを使う。

CreateObject("Excel.Application")やCreateObject("Excel.Application.??")では、最新バージョンのExcelしか取れません。

そこで、Shell(""""フルパス\EXCEL.EXE"" ""仮のExcelファイル""")などで起動して、GetObject("仮のExcelファイル")で、Workbookオブジェクトを得て、その.ApplicationからExcel.Applicationオブジェクトを得ることができます。

あるいは、Shell(""""フルパス\EXCEL.EXE""")などで起動して、n=1で、GetObject("Book" & n)で、Workbookオブジェクトを得て、その.ApplicationからExcel.Applicationオブジェクトを得て、そのバージョンを調べて、違っていたら、nを+1して、繰り返します。

ここで、もし、ROT(Running Object Table)を使えば、もっとスマートにできます。でも、ROTを使うのは.NETでないと、ちょっと難しいかも。

あるいは、レジストリの
HKEY_CLASSES_ROOT\CLSID\{00024500-0000-0000-C000-000000000046}\LocalServer32
を書き換えてから、CreateObject("Excel.Application")します。

レジストリの書き換えは、各バージョンの
"フルパス\EXCEL.EXE" /regserver
でもできます。

環境がないので、アイデアだけで試してません。:-p

« Excelの複数バージョンが混在する環境で異なるバージョンのExcelで開く。 | トップページ | Excelでマルチタスク処理 »