スキルアップ・問題解決なら、モーグにおまかせ！

●詳細● 
サンプルでは、“Ｓａｍｐｌｅ．ｔｘｔ”というテキストファイルを読み込んでいます。
このテキストファイルは、データの区切り記号が混在していて、スペースとカンマと“＃”で区切られています。
これを「Ｏｐｅｎ」メソッドで開くと、一つのセルに１行分が全て入ってしまいます。
「ＯｐｅｎＴｅｘｔ」メソッドを使うと、区切り記号を指定することができるので、区切り記号の混在したテキストファイルをＥｘｃｅｌブックに正しく読み込むことができます。

●準備● 
＊標準モジュールを挿入しサンプルマクロを貼り付けて保存したＥｘｃｅｌブックと同じフォルダに、データを入力した”Sample.txt”を保存してください。
“Sample.txt”には「基本操作 異なる区切り記号の混在したテキストファイルを読み込もう」と同じデータを用意します。 

●サンプル● 
Sub Sample() 
    Dim TextPath As String

    '＜テキストファイルのパスを取得します。＞ ←（１） 
    TextPath = ActiveWorkbook.Path & "\Sample.txt" 

    '＜「ＯｐｅｎＴｅｘｔ」メソッドを使ってテキストファイルを開きます。＞ ←（２） 
    Workbooks.OpenText FileName:=TextPath, _ 
                       DataType:=xlDelimited, _ 
                       comma:=True, _
                       Space:=True, _
                       other:=True, _
                       otherchar:="#" 

    '＜列幅を内容に合わせて調節して見やすくします。＞ ←（３） 
    Columns("A:G").Select
    Columns("A:G").EntireColumn.AutoFit
    Range("A1").Select
End Sub 

●お試しマクロ● 
Sub OpenText() 
    Dim TextPath As String

    TextPath = ActiveWorkbook.Path & "\Sample.txt" 
    Workbooks.Open TextPath
    Columns("A:G").EntireColumn.AutoFit
    Range("A1").Select
End Sub 

●補足説明● 
（１）「Ｐａｔｈ」プロパティは、指定されたオブジェクトの絶対パスを示す文字列を返します。
　　　ここではサンプルマクロのあるＥｘｃｅｌブックのパスを取得しています。

　　　パス末尾の円記号（\）とオブジェクト名は含まないので、”＆”で"\Sample.txt"と連結させてＳｔｒｉｎｇの変数にセットします。

（２）「ＯｐｅｎＴｅｘｔ」メソッドは、テキストファイルを分析して読み込みます。
　　　テキストファイルを１枚のシートとして、それを含む新しいブックを開きます。

　　　＜構文＞
　　　　Ｏｂｊｅｃｔ.ＯｐｅｎＴｅｘｔ（ＦｉｌｅＮａｍｅ， 
                                       ＤａｔａＴｙｐｅ，
                                       Ｃｏｍｍａ
                                       Ｓｐａｃｅ
                                       Ｏｔｈｅｒ
                                       ＯｔｈｅｒＣｈａｒ）

Ｏｂｊｅｃｔ：対象となるＷｏｒｋｂｏｏｋｓオブジェクトを指定します。 
ＦｉｌｅＮａｍｅ：読み込まれるテキストファイルの名前を指定します。
ＤａｔａＴｙｐｅ：ファイルに含まれるデータの形式を指定します。
　　　　　　　　　使用できる定数は、xlDelimitedまたはxlFixedWidthです。
xlDelimited：区切り記号でフィールドが区切られたテキスト形式
xlFixedWidth：固定長文字列のテキスト形式
Ｃｏｍｍａ：区切り文字にカンマ (,) を使うときはＴｒｕｅを指定します。
Ｓｐａｃｅ：区切り文字にスペースを使うときはＴｒｕｅを指定します。
Ｏｔｈｅｒ：区切り文字にＯｔｈｅｒＣｈａｒで指定した文字を使うときはＴｒｕｅを指定します。 
ＯｔｈｅｒＣｈａｒ：引数ＯｔｈｅｒがＴｒｕｅのときは、必ずこの引数に区切り文字を指定します。