ＥｘｃｅｌからＡｃｃｅｓｓのフォームを開いてみました

メルマガ発行内容

＜ＥｘｃｅｌからＡｃｃｅｓｓのフォームを開いてみました＞
こんにちは、
メルマガ発行中の三流プログラマーＫｅｎ３です。

今回は、
掲示板に質問もらったので、チョット発行してみます。

いつものセリフで、そんなたいしたことじゃないので今回もご安心を。

/*
 * １. 質問内容
*/

http://bbs.melma.com/cgi-bin/forum/m00034126/
に
> ExcelVBAについて教えて下さい。
> 
> ExcelVBAからACCESSのマクロを実行する
> しかたってありますか？

と
掲示板に質問をいただきました。

今度は、ＥｘｃｅｌからＡｃｃｅｓｓを操作かぁ、
少しやってみますか。

/*
 * ２．試しに、ExcelからAccessのフォームを開く
*/

いつもの、いきなりサンプルです。

Sub Macro1()
    
    Dim objACCESS As Object
    
    'Accessのアプリケーションオブジェクトを作成する
    Set objACCESS = CreateObject("Access.Application")
    
    'もちろん、次はファイルを開かないとね
    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\db97.mdb"
    
    ' 指定のフォームを開く、ここでは、テストフォーム
    objACCESS.DoCmd.OpenForm "テストフォーム", acNormal
    
    objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか
    
    objACCESS.UserControl = True 'その後、ユーザーに操作させる
    
    Set objACCESS = Nothing  ' オブジェクト開放、もう私Excelから使用しないから

End Sub

で、軽く解説に入ると、

Dim objACCESS As Object
まぁ、オブジェクトを参照するための変数を定義します。
as Objectがポイントです。

次は、
    'Accessのアプリケーションオブジェクトを作成する
    Set objACCESS = CreateObject("Access.Application")
です。
ここでは、
CreateObject("Access.Application")
で、アクセスのオブジェクトを作成、操作用の変数に代入してます。

アプリケーションの操作の準備ができたので、
ファイルを開きますか。
    'もちろん、次はファイルを開かないとね
    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\db97.mdb"
ここでは、
Ｅｘｃｅｌブックのパスと同じフォルダーの
db97.mdbを開いてます。
C:\data\data.mdbとか固定なら、
objACCESS.OpenCurrentDatabase "C:\data\data.mdb"
で、ＯＫです。
＊意味ありそうなｄｂ９７。ｍｄｂとありますが、
　ただの、ファイル名です。

次に、フォームを開きます。
    ' 指定のフォームを開く、ここでは、テストフォーム
    objACCESS.DoCmd.OpenForm "テストフォーム", acNormal
なんか、見たこと有る？
DoCmd.OpenForm
ですね。
＊DoCmd.〜を次回あたり探らないとなぁ。


    objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか
    objACCESS.UserControl = True 'その後、ユーザーに操作させる
↑こいつがＯｎになってないと、悲惨な目に（笑）

    Set objACCESS = Nothing  ' オブジェクト開放、もう私Excelから使用しないから
↑もう、操作しないので、変数を解放してます。

実行のテストサンプルを
http://www.ken3.org/vba/lzh/vba015.lzh
を落して、動かしていろいろとイタズラしてください。
回答すると
AccessOpenTEST.xls
と
db97.mdb
があって、
AccessOpenTEST.xlsをExcelから開いて、遊んでみてください。

Excel97とAccess97      OS:Win98環境
Excel2000とAccess2000  OS:Win2000環境
で、動作しました。

/*
 * ３．試行錯誤の余談（笑）
*/

    objACCESS.UserControl = True 'その後、ユーザーに操作させる

これ、無いと（コメントにして遊んでみてください）
面白いよ。

Ａｃｃｅｓｓが起動して、チラっとフォームが見えたと思ったら、
すぐに終了してんの（笑）
ぜひ、試してください。

下記は、簡単に想像できるけど（私がやられたけど）
    objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか
これ、やってないと、、、
どうなるんだろう？（笑）

自分への怒りのコメント、
' Accessを表示ＯＮあたりまえか
なんですよね。

表示されなくって、面白いですよ。

＊逆に使えるかも？

/*
 * ４．終わりの挨拶
*/

今回は、
ＥｘｃｅｌからＡｃｃｅｓｓのフォームを開いてみました。

おい、三流作者。
なに？

質問内容はＡｃｃｅｓｓマクロ実行じゃないの？
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
あっ、、、次回ですかねぇ（今回のサンプルでわかっちゃった人もいると思うけど）

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]