|
こんにちは。
2000以上だったら、データ → 外部データの取り込み の中にテキストを読み込む見たいのがあったと思います。それを使うと書き込み場所を指定できます。下記コードみたいな感じで...。
ただ、セミコロン区切りで読み込めるのかは解りません。
現在は、97なので詳しくは覚えてませんが...。
STAdd="C3"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & OpenFile, _
Destination:=Range(STAdd)) ←これがスタート位置
.AdjustColumnWidth = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
'↓ 外すと全て 標準/G になる。
'.TextFileColumnDataTypes = Array(2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileColumnDataTypes = TBL
.Refresh BackgroundQuery:=False
End With
|
|