スペース区切のテキストファイルをエクセルで開くとバラバラになる

文字と文字の間にスペースが入っているテキストファイルです。スペースの文字数は固定ではありません。

このファイルをWorkbooks.OpenText メソッドで開くと、データがバラバラに表示されます。

Workbooks.OpenText メソッドで開く

読込むファイルの保存先とファイル名：F:\sample\平均気温.txt

Sub sample1()
Sub sample2()
    Dim fName As String: fName = "F:\sample\平均気温.txt"
    Workbooks.OpenText Filename:=fName ,DataType:=xlDelimited, Space:=True
End Sub

参考：テキストファイルをエクセルで開く・Workbooks.OpenText メソッド

パラメータの設定をプラスする

Sub sample2()
Sub sample2()
    Dim fName As String: fName = "F:\sample\平均気温.txt"
    Workbooks.OpenText Filename:=fName _
                                 , DataType:=xlDelimited _
                                 , ConsecutiveDelimiter:=True _
                                 , Space:=True
End Sub

パラメータ追加します。

ConsecutiveDelimiter:=True
連続した文字を1区切で表示したい場合は「True]にします。既定値は「False」です。