Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3902 / 13644 ツリー ←次へ | 前へ→

【59566】ExcelモジュールからAccessモジュールを実行させたいのですが・・・ yu-ho 08/12/19(金) 14:14 質問[未読]
【59567】Re:ExcelモジュールからAccessモジュールを... kanabun 08/12/19(金) 15:25 発言[未読]
【59570】どうやらActiveXが答えだったみたいです。 yu-ho 08/12/21(日) 18:44 お礼[未読]

【59566】ExcelモジュールからAccessモジュールを...
質問  yu-ho  - 08/12/19(金) 14:14 -

引用なし
パスワード
   書き込みなどはあまりいたしませんが、
こちらの掲示板はVBA作成時いつもお世話になっております。

標題の件でございますが、Excelファイルから他ブックの
プロシージャ呼び出しは、例えば
Sub RUNPR_TEST()
Dim BK As Workbook
Set BK = Workbooks.Open("C:\Users\choki\Documents\VBA_PR.XLS")
Application.Run BK.Name & "!" & "MSUP_PR"
BK.Close SAVECHANGES:=False
End Sub
と、ApplicationのRunメソッドを使用すればよいのですが、

ExcelからAccessのプロシージャの実行、例えば
"F:\欠品状況一覧.mdb"の"PublicPr"(プロジェクト名)の
"UNION_table"を実行させる場合はどうしたらよいでしょうか。

関連スレッドでもかまいませんのでお教えいただければ
幸いです。

【59567】Re:ExcelモジュールからAccessモジュール...
発言  kanabun  - 08/12/19(金) 15:25 -

引用なし
パスワード
   参考ですが

Microsoft Excel から Microsoft Access マクロを実行します。

ht tp://support.microsoft.com/kb/131921/ja

【59570】どうやらActiveXが答えだったみたいです。
お礼  yu-ho  - 08/12/21(日) 18:44 -

引用なし
パスワード
   kanabun さん
>ht tp://support.microsoft.com/kb/131921/ja
を参考にいろいろやってみたのですが無理でした。
しかし、DDEExecuteついて調べていると、
DDE通信→OLE→ActiveXの使用と順を追って調べて
ゆくことができました。ヒントを頂きありがとう
ございます。

結果、
Public Sub ACCESS_CALL()
Dim DTstr As String 'データ区分
Dim Fday As Date   '集計開始
Dim Eday As Date    '集計終了
Call MyBookObj
DTstr = SiziWs.Range("b8").Text
Fday = SiziWs.Range("b11").Value
Eday = SiziWs.Range("d11").Value
Dim ACapp As Object
Set ACapp = CreateObject("ACCESS.APPLICATION")'ここがミソ

With ACapp
  .OpenCurrentDatabase ("F:\欠品状況一覧.mdb")
  .Visible = True
  .Run "UNION_table", DTstr, Fday, Eday 'プログラム名,引数,,
  .Quit
End With
Set ACapp = Nothing
End Sub
と、こんな具合に組めました。

3902 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free