お奨め本の目次を見るだけでも勉強になったり
＜ＥｘｃｅｌからＡｃｃｅｓｓのモジュールを呼んでみました＞
こんにちは、三流プログラマーＫｅｎ３です。 今回は、前回の続きで（前回の積み残しとも言う（笑）） ＥｘｃｅｌからＡｃｃｅｓｓのモジュールを呼んでみました。 いつものセリフで、そんなたいしたことじゃないので今回もご安心を。 /* * １. 質問内容 */ http://bbs.melma.com/cgi-bin/forum/m00034126/ に > ExcelVBAについて教えて下さい。 > > ExcelVBAからACCESSのマクロを実行する > しかたってありますか？ でした、これを、 In message "[VBAで楽しく No.015] - 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 で、テストのフォームを開く、までは、無事にできました。 /* * ２．.ＲＵＮってのが正解だったんですね。 */ Ａｃｃｅｓｓのモジュールに、テスト用のモジュールを追加します。 AccessのMDB モジュールに書く。 Public Sub aaa() MsgBox "AAAが呼ばれましたよ" End Sub Public Sub bbb(n As Integer, strNAME As String) MsgBox "BBBが呼ばれましたよ" MsgBox "n = " & n & " strname = " & strNAME & "です" End Sub 引数が無しと数値・文字列を受け取るパターンを作成しました。 次にＥｘｃｅｌ側の処理です。 またまた、いきなり回答書くと、 Sub Macro2() 'ExcelからAccessのモジュールを呼ぶ Dim objACCESS As Object 'Accessのアプリケーションオブジェクトを作成する Set objACCESS = CreateObject("Access.Application") 'もちろん、次はファイルを開かないとね objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\db97.mdb" objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか objACCESS.UserControl = True 'その後、ユーザーに操作させる objACCESS.Run "aaa" '*1モジュール名称を文字列で指定する Set objACCESS = Nothing ' オブジェクト開放、もう私Excelから使用しないから End Sub 実は、すごく簡単で、 objACCESS.Run "aaa" '*1モジュール名称を文字列で指定する と .Run "モジュール名" だったんですね。 ポイントは、モジュール名を文字列で渡すことかなぁ。 で、次に気になるのが、パラメーター（引数を渡す方法だよね） Sub Macro3() 'ExcelからAccessのモジュールを引数付きで呼ぶ Dim objACCESS As Object 'Accessのアプリケーションオブジェクトを作成する Set objACCESS = CreateObject("Access.Application") 'もちろん、次はファイルを開かないとね objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\db97.mdb" objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか objACCESS.UserControl = True 'その後、ユーザーに操作させる objACCESS.Run "bbb", 10, "三流" '*2カンマで引数を書く Set objACCESS = Nothing ' オブジェクト開放、もう私Excelから使用しないから End Sub ここも、得に変化無く、 objACCESS.Run "bbb", 10, "三流" '*2カンマで引数を書く と、モジュール名の次に、カンマで区切って引数を書けばＯＫです。 なんだぁ、、、わかってしまえば簡単でしたね。 今回のテストサンプルを http://www.ken3.org/vba/lzh/vba016.lzh に保存しました。動かしていろいろと確認（イタズラ）してください。 /* * ３．試行錯誤の余談（笑） */ ここまで、たどりつく、道のりは、、、 意外とかかったなぁって自分なりに自己分析。 objACCESS.Call aaa() と想像で.Callなんてやったなぁ（笑） .Run には、ヘルプでたどりつきました。 で、わかった、ＯＫ と 勝手に思いこんで、 objACCESS.Run aaa() objACCESS.Run call aaa() なんて、やってましたね。 う〜ん、うまく行かない。 で、 ヤット、ヘルプのサンプルを見て 正解の、 objACCESS.Run "aaa" objACCESS.Run "bbb", 10, "三流" '*2カンマで引数を書く に、やっとたどり着きました。 ヘルプは最後まで見ようね（笑） 下記、おまけのＡｃｃｅｓｓレポートを開くです。 Sub Macro4() 'おまけ、レポートを開く Dim objACCESS As Object 'Accessのアプリケーションオブジェクトを作成する Set objACCESS = CreateObject("Access.Application") 'もちろん、次はファイルを開かないとね objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\db97.mdb" ' 指定のレポートを開く、＊ただオープンレポートにしただけ objACCESS.DoCmd.OpenReport "テストレポート" '余談ですが、レポートが直ちに印刷されます、紙が損します objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか objACCESS.UserControl = True 'その後、ユーザーに操作させる Set objACCESS = Nothing ' オブジェクト開放、もう私Excelから使用しないから End Sub ポイントは、 .OpenReport "レポート名" です。 もし、ＥｘｃｅｌからＡｃｃｅｓｓのレポートを起動したい時は使ってみてください。 /* * ４．終わりの挨拶 */ 今回は、 ＥｘｃｅｌからＡｃｃｅｓｓのモジュールを呼んでみました。 拾い読みして、 １つでも何かの参考となれば幸いです。 Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。
|
あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧 |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |