Access2010 から Excelを開くコード Access2003のコードを貼り付けテスト

下記のような質問が来ました。

>貴殿の「Access 2003 から Excelファイルを開く マクロ VBAを作成してみる」の動画を見て、
>はじめてアクセス２０１０（単体）を購入してマクロを勉強しようと思っています。
>動画ではコマンドボタンウィザードで種類「アプリケション」を指定しても、
>ボタンの動作「アプリケーションの終了」しか表示がありません。
>
>コマンドボタンウィザードに「アプリケション」の種類を表示させる方法のご教授を願います。

実際に Access2010を操作してみると、質問者と同様に 私のAccess2010でもフォームのボタンでExcelを開くがアプリケーションに無かったです。

で、表示させる方法がわからなかったので、
苦肉の策／代案で
Access2003で作成される 下記のコードを挿入してみます。

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

操作方法、テスト結果

フォームのデザイン画面で
ボタンを貼り付けます
ここで、キャンセルを押して、ウィザードを途中で止めます。
次に、プロパティから イベントを選択し、クリックにコードを追加します。

Access2010 から Excelを開く方法 Access2003のコードを貼り付けテスト - YouTube
www.youtube.com
※音声録画の失敗で無音ですが、操作の流れを見てください。

参考／蛇足 Access2003

Access2003の時は、選択できたのですが・・・
Access 2003 から Excelファイルを開く マクロ VBAを作成してみる - YouTube
www.youtube.com
↑2分17秒頃に操作しています。

※まぁ、時代が流れたってことで。
※※あっ、Access2010を単体で追加インストールしたからかなぁ？
Access2010アップグレード優待 を Office2010 パーソナルに追加でインストールしてみた - 三流君 ken3のmemo置き場
↑それで、Excelがでてこなかったのかなぁ(プロフェッショナルなら出てきたのかなぁ？)