Access VBA質問箱 IV

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

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


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

3627 / 9994

←次へ　｜　前へ→


	【9626】DDE通信でのエラー

ボビー - 07/6/28(木) 10:28 -


	引用なし

	パスワード

以下のようなコマンドで、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

699 hits

▼

【9626】DDE通信でのエラー ボビー 07/6/28(木) 10:28