| |
以下のようなコマンドで、DDE通信を使用しAuto_Openマクロのある[市場技術情報.xls]を起動しています。
この[市場技術情報.xls]では、UserFormを起動させ必要項目を入力させているのですが、30秒???くらいUserFormを表示させておくと以下のようなｴﾗｰが出力されます。
[Cmd市技情報_Click]にてエラー発生
エラー番号＝[286]
メッセージ＝[ｱﾌﾟﾘｹｰｼｮﾝまたはｵﾌﾞｼﾞｪｸﾄで定義されているｴﾗｰ]
もしかすると、DDE通信でのタイムアウトなのでしょうか？
メッセージの[OK]を押せば、処理としてはAccessもExcelも問題ありません。
ただ、このメッセージを出さないようには出来ないのでしょうか？
宜しくご教授願います。（長文になり申し訳ありません）
環境:WinXP、Access95、Excel2000
Private Sub Cmd市技情報_Click()
Const ProcName = "[Cmd市技情報_Click]"
On Error GoTo Err_Cmd市技情報_Click
Dim MyWK As Workspace
Dim MyDB As DATABASE
Dim MyRS As Recordset
Dim MyChan As Long '** チャネル番号
Dim strExcelPath As String '** ExcelのフルPath
Dim strFilePath As String '** OpenBookのフルPath
Set MyDB = CurrentDb()
DoCmd.TransferText acExportDelim, , "Q_Query1", "C:\Test\Export.csv", True
strExcelPath = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE"
strFilePath = "C:\\Format\HONBAN\市場技術情報.xls"
Shell strExcelPath, 1 'Excel2000の起動
MyChan = DDEInitiate("Excel", "System") 'DDE通信の開始
DDEExecute MyChan, "[Open(""" & strFilePath & """)]" 'ExcelのOpen
DDETerminate MyChan 'DDE通信の終了
Exit_Cmd市技情報_Click:
On Error Resume Next
MyRS.Close: Set MyRS = Nothing
MyDB.Close: Set MyDB = Nothing
On Error GoTo 0
Exit Sub
Err_Cmd市技情報_Click:
MsgBox Me.Name & ProcName & "にてエラー発生" & Chr(13) & Chr(10) _
& "エラー番号=[" & Err.Number & "]" & Chr(13) & Chr(10) _
& "メッセージ=[" & Err.Description & "]"
Resume Exit_Cmd市技情報_Click
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
