テキストを読み込んでワークシートに出力する方法

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

テキストファイルを読み込み，エクセルに出力．といったコードを組んでいます．
しかし実行すると，1行の結果がセル一つに出力されてしまいます．

テキストファイル，出力結果は画像のようになっています.

VBAを独学で学び始めたばかりで，
知識も浅いので，どなたかお力添えいただけると，有難いです．

![![イメージ説明](60e8cfe8df4a54f4977f81a54ee06d07.png)](0491c1a05cd4f5f7edb42ded616ef125.png)

該当のソースコード

Sub テキスト取得()
 
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(2)
 
Dim txtPath As String
txtPath = "C:\Users\advantest2\Desktop\PCNA\解析場\実験結果\framedata_000.txt"
 
Dim i As Long, j As Long
Dim strLine As String
Dim arrLine As Variant 'カンマでsplitして格納
 
Open txtPath For Input As #1 'csvファイルをオープン
 
i = 1
Do Until EOF(1)
   
    Line Input #1, strLine
    
    Application.WorksheetFunction.Trim (strLine)
     
    
    arrLine = Split(strLine) 'strLineをスペースで区切りarrLineに格納
   
    For j = 0 To UBound(arrLine)
       
        ws.Cells(i, j + 1).Value = arrLine(j)
   
    Next j
    i = i + 1
Loop
 
Close #1
 
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[ttyp03]

テキストファイルのフォーマットは？カンマ区切りのCSV？スペース区切り？タブ区切り？

[moki_4290]

ご返信していただきありがとうございます．

半角6もしくは7個のスペースで区切ってある
.txt（メモ帳）のファイルになります．

[ttyp03]

こちらで試したところ、1行が1セルに入るようなことありませんでした。
その代わり、スペース数分の空セルもできてしまいます。
読み込むファイルのサンプルデータ、どうなって欲しいのかの結果のサンプルを提示した方がよさそうです。

[moki_4290]

ありがとうございます...!

14 10 5 11 12
43 35 44 36 42
13 15 12 10 16

テキストとしては上記のようなものです．
実際はこれがもっと続いていて，数値の個数が
500 ×　500 となっています．
となっています．
出力結果としては，
各数値がそれぞれセル一つに入ってほしいです．

よろしくお願いいたします．

[ttyp03]

問題なく動きました。
本当に半角スペースですか？全角スペースやタブだったりしませんか？

Answer 1

Split関数は、区切り記号を必ず指定してください。
指定しないと、前回の操作内容を記憶しており、思わぬ結果が出てしまいます。

arrLine = Split(strLine)
↓
arrLine = Split(strLine, " ")