| |
▼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〜〜〜 とすれば良いのか御教授頂けると幸いです。
宜しくお願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
