|
こんにちは
現在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"))
'ここまで'
〜割愛〜
|
|