Excel VBA質問箱 IV

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

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


13563 / 13646 ツリー ←次へ | 前へ→

【4823】データ取得時のエラーについて ntomo 03/4/9(水) 13:50 質問
【4831】Re:データ取得時のエラーについて こうちゃん 03/4/9(水) 18:52 発言
【4840】Re:データ取得時のエラーについて ntomo 03/4/10(木) 10:03 お礼

【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"))
'ここまで'

〜割愛〜

【4831】Re:データ取得時のエラーについて
発言  こうちゃん E-MAIL  - 03/4/9(水) 18:52 -

引用なし
パスワード
   ntomoさん、こんにちは

>他の人の作ったマクロを改造しているためヘルプを見てもよくわかりません。
>何故エラーとなるのか教えてください。

>'ここからがエラーとされる部分'
>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"))

この書き方だと、クエリテーブルを追加してるんじゃありませんか?
だとすると「UpdtSh.Add」はなんでしょか?
UpdtShシートにクエリテーブルを追加するならこんな感じになりますが・・

With Updtsh.QueryTables.Add(Connection:= _
  "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"))

#まるっきり勘違いしているようならごめんなさい。
ちなみに前後を割愛しないほうがレスがつけやすいかも・・

【4840】Re:データ取得時のエラーについて
お礼  ntomo  - 03/4/10(木) 10:03 -

引用なし
パスワード
   ▼こうちゃん さんありがとうございます。


>#まるっきり勘違いしているようならごめんなさい。
>ちなみに前後を割愛しないほうがレスがつけやすいかも・・

了解しました^^
次からなるべく載せますね
(100Kこすと載せる気が減ってしまいます(*´ェ`*))
今ちょっとみてる時間がないのでとりあえずお礼まで^^
また何かあったらよろしくお願いします^^

13563 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free