データ読み込み→数行ごとの折り返しについて

質問

このようなマクロを作りました。
-------------------------------------------------
Sub test()

'TXTファイル読み込みダイアログボックス

Dim FileToOpen As String
FileToOpen = Application.GetOpenFilename("テキストファイル (*.txt), *.txt")

'読み込んだファイルの計算

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileToOpen, Destination:=Range("B11"))
'
.Name = "*"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 4
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.Refresh BackgroundQuery:=False
End With
End Sub
-------------------------------------------------
これだけでは、B列に並んでしまうだけなのでこれを20データごと次の列に入力できるようにしたいのですがいろいろ調べたのですがわかりませんでした。

読み込むテキストは100行あると考えてください

わかる方がいましたらよろしくお願いします。

回答No.1

popesyu · ベストアンサー

ローカル内のテキストファイルですよね？
Web上のデータを読み込むQueryTablesを無理に使う必要は無いかと思いますが。
例えばOpen ステートメントなどでやった方が分かりやすくなるんではないかなと。
---
Sub test()
'TXTファイル読み込みダイアログボックス
Dim FileToOpen As String
FileToOpen = Application.GetOpenFilename("テキストファイル (*.txt), *.txt")

Dim myVal As String
Dim x As Integer
Dim y As Integer
y = 1 '1列目から

Open FileToOpen For Input As #1 ' シーケンシャル入力モードで開きます。
Do While Not EOF(1) ' ファイルの終端までループを繰り返します。
x = x + 1
Input #1, myVal
Cells(x, y) = myVal
If x Mod 20 = 0 Then'20行置きに
y = y + 1 '列をずらす
x = 1 '行をクリア
End If
Loop
Close #1 ' ファイルを閉じます。
End Sub

補足

ありがとうございます。
クエリを使用する理由はテキストファイル内の10行目から取り込むというようなことにしたいからです。