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