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 質問
【30601】Re:外部データの取込を使用しSQLからデータ... den 05/10/31(月) 17:36 発言
【30603】Re:外部データの取込を使用しSQLからデー... にー 05/10/31(月) 18:26 発言

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