Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22548 / 76738

←次へ　｜　前へ→


	【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
と、こんな具合に組めました。

0 hits

▼

【59566】ExcelモジュールからAccessモジュールを実行させたいのですが・・・ yu-ho 08/12/19(金) 14:14