Excel VBA質問箱 IV

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

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


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

51005 / 76732

←次へ　｜　前へ→


	【30603】Re:外部データの取込を使用しSQLからデー...

にー - 05/10/31(月) 18:26 -


	引用なし

	パスワード

▼den さん

書き込み有難う御座います。
外部データの取込部分はマクロの記録を利用したため
Set ○○=Nothing
を何処で利用するのか理解できないです。　orz

ちなみに記録されたコードは以下のようになります。

　　With ActiveSheet.QueryTables.Add(Connection:=Array( _
　　　　"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=○○;Use Procedure for Prepare"
　　　　, _
　　　　"=1;Auto Translate=True;Packet Size=4096;Workstation ID=○○;Use Encryption for Data=False;Tag with column collation when poss" _
　　　　, "ible=False;Initial Catalog=○○"), Destination:=Range("A1"))
　　　　.CommandType = xlCmdSql
　　　　.CommandText = _
　　　　"SELECT　　　　　○○
　　　　"FROM　　　　　　○○
　　　　"WHERE　　　　　 ○○
　　　　.Name = ○○
　　　　.FieldNames = True
　　　　.RowNumbers = False
　　　　.FillAdjacentFormulas = False
　　　　.PreserveFormatting = True
　　　　.RefreshOnFileOpen = False
　　　　.BackgroundQuery = True
　　　　.RefreshStyle = xlInsertDeleteCells
　　　　.SavePassword = True
　　　　.SaveData = True
　　　　.AdjustColumnWidth = True
　　　　.RefreshPeriod = 0
　　　　.PreserveColumnInfo = True
　　　　.SourceConnectionFile = ○○
　　　　.Refresh BackgroundQuery:=False
　　End With

一部削除（ID､ﾊﾟｽﾜｰﾄﾞ等）や○○にしてありますが
必要な部分は削っていないはずです。（はずです。。。。自信無し）
どの部分を　Set～～～　とすれば良いのか御教授頂けると幸いです。

宜しくお願い致します。

1 hits

▼

【30587】外部データの取込を使用しSQLからデータを抽出 にー 05/10/31(月) 14:52