◆形式を指定してテキストファイルを開く

  カンマ区切りられたテキストファイルのそれぞれのデータは、数値や文字列や日付、
  それに不要なデータもあります。

  読み込み時に形式を指定してテキストファイルを開くことが出来ます。

Sub Read_TextFormat()

    Dim File種類, Prompt, Item As String
    Dim FileNamePath As Variant

    'ファイルのパスを取得します
    File種類 = "テキスト ﾌｧｲﾙ (*.txt),*.txt"
    Prompt = "テキスト ファイルを選択してください"
    FileNamePath = SelectFileNamePath(File種類, Prompt)

    If FileNamePath = False Then    'キャンセルボタンが押された
        End
    End If

    Workbooks.OpenText Filename:=FileNamePath, _
    DataType:=xlDelimited, comma:=True, _
    fieldinfo:=Array(Array(1, 2), Array(2, 1), Array(3, 9), _
                     Array(4, 5), Array(6, 2))
End Sub

Function SelectFileNamePath(File種類, Prompt) As Variant
  SelectFileNamePath = Application.GetOpenFilename(File種類, ,Prompt)
End Function

  Array関数は、Array(何番目のデータか(列番号)、変換する形式) と記述します。

  以下に変換する形式を表にまとめてあります。