參考MSDN：Workbooks.OpenText

練習了一下：

以TAB當間隔時：

Private Sub CommandButton1_Click()

    FILEPATH = ActiveWorkbook.Path  '  取得目前啟用中工作簿路徑

    Workbooks.OpenText FileName:=FILEPATH & "\TEST.txt", _
    DataType:=xlDelimited, Tab:=True
    
End Sub

開啟後：

以逗號當間隔時：

Private Sub CommandButton1_Click()

    FILEPATH = ActiveWorkbook.Path  '  取得目前啟用中工作簿路徑

    Workbooks.OpenText FileName:=FILEPATH & "\TEST.txt", _
    DataType:=xlDelimited, Comma:=True
    
End Sub

10.18新增：

筆者比較喜歡這個寫法，透過other設定為true，

就可以用OtherChar這個方式，做分割字元設定使用。

Private Sub CommandButton1_Click()

FILEPATH = ActiveWorkbook.Path

Workbooks.OpenText Filename:=FILEPATH  & "\TEST.txt", _
DataType:=xlDelimited, Other:=True, OtherChar:=","

End Sub