Excel VBA質問箱 IV

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

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


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

76337 / 76738

←次へ　｜　前へ→


	【4823】データ取得時のエラーについて

ntomo - 03/4/9(水) 13:50 -


	引用なし

	パスワード

こんにちは
現在SQLサーバーから
各装置毎の稼働率を取得してくるマクロを作っているのですが、
装置単位だと上手く動くのですが、
全装置というのを今回追加したところ
実行時エラー'438'ｵﾌﾞｼﾞｪｸﾄは、このﾌﾟﾛﾊﾟﾃｨまたはﾒｿｯﾄﾞをｻﾎﾟｰﾄしてません。
とでてしまいます。
他の人の作ったマクロを改造しているためヘルプを見てもよくわかりません。
何故エラーとなるのか教えてください。

～割愛～

Set Sh1 = ThisWorkbook.Sheets("稼働率")

～割愛～

Set UpdtSh = Sh1

～割愛～

'ここからがエラーとされる部分'
With UpdtSh.Add(Connection:=Array(Array( _
"ODBC;DRIVER=SQL Server;SERVER=192.168.3.1;UID=sa;PWD=ccs;WSID=RTECH;DATABASE=rdb1;" & _
"Network=DBMSSOCN;Address=192.168.3.1,1433;")), Destination:=UpdtSh.Range("A1"))
'ここまで'

～割愛～

4 hits

▼

【4823】データ取得時のエラーについて ntomo 03/4/9(水) 13:50

≪