| 
    
     |  | 小僧さん、ご教授くださいましてありがとうございます!! 
 ↓こういうことでしょうか。。
 strPass = "C:\Program Files\Microsoft Office\Office\Excel.Exe" / regserver
 Shell strPass, 1
 Set xlApp = CreateObject("Excel.Application.9")
 xlApp.Workbooks.Add
 xlApp.Visible = True ' アプリケーションを表示する場合は、Visible プロパティに True を設定します。
 Set MyDB = CurrentDb
 
 実行してみると「型が一致しません。」とのエラーが表示されます。
 VBAの記載方法が違いますか・・?(;_;)
 
 ▼小僧 さん:
 >▼yuki さん:
 >こんにちは。
 >
 >複数のバージョンの Office がインストールされている場合の
 >Office オートメーションについて
 >
 >h tp://support.microsoft.com/kb/292491/ja
 >
 >この辺に問題がありそうですね。
 >
 >またそのページのリンク先に
 >
 >
 >>Office OLE オブジェクトを別のプログラムに挿入する
 >>
 >> 1台のコンピュータに複数のバージョンの Office をインストールした場合、
 >> Office オブジェクトを別のプログラムに挿入する
 >> (たとえば、Excel ワークシート オブジェクトを Word 文書に挿入する) と、
 >> 最新のバージョンのプログラムが使用されます。
 >
 >なんて記述も見られます。
 >
 >あまり良いとは思いませんが、
 >
 >"C:\Program Files\Microsoft Office\Office\Excel.Exe" /regserver
 >
 >と Shellステートメント実行後に
 >OLE処理を行うとうまくいくかもしれませんね。
 >
 >(Officeの混在環境がないため、当方未検証です。)
 
 |  |