●詳細● 

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

●準備● 

　＊標準モジュールを挿入しサンプルマクロを貼り付けて保存したＥｘｃｅｌブックと同
　　じフォルダに、異なる区切り記号が混在したテキストファイル”Sample.txt”を用意
　　します。
　　　　　テキストファイルは、メモ帳（[スタート][プログラム][アク
　　　　　セサリ][メモ帳]）等に下記のデータをそのまま貼り付けて、
　　　　　”Sample.txt”と名前を付けて保存してください。
　　　　　県名,氏名,年齢,職業,ＴＥＬ
　　　　　東京都 大森 35 会社員 000-000-0000
　　　　　神奈川県,小島 40,公務員 1111-11-1111
　　　　　静岡県#太田#38#自営業#2222-22-2222
　　　　　１行目は項目名、２行目以降がデータです。
　　　　　１行目はカンマ (,)、２行目はスペース、３行目はカンマ
　　　　　(,)とスペース、４行目は”＃”で区切られています。

●サンプル● 

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：固定長文字列のテキスト形式
Ｃｏｍｍａ：区切り文字にカンマ (,) を使うときはＴｒｕｅを指定します。
Ｓｐａｃｅ：区切り文字にスペースを使うときはＴｒｕｅを指定します。
Ｏｔｈｅｒ：区切り文字にＯｔｈｅｒＣｈａｒで指定した文字を使うときはＴｒｕｅを指定します。 
ＯｔｈｅｒＣｈａｒ：引数ＯｔｈｅｒがＴｒｕｅのときは、必ずこの引数に区切り文字を指定します。