◆カンマ区切りのテキストファイルを開く

  テキストファイルを開くには、OpenText を使用します。

  引数にテキストファイルの形式や区切り文字を指定することで、
  様々なテキストファイルを開くことが可能です。

  カンマで区切られていて、それぞれのデータが引用符「"(ダブルクォーテーション)」
  で囲まれているテキストファイルを開く例です。

Sub Read_CommaText()

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

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

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

    Workbooks.OpenText Filename:=FileNamePath, _
                       DataType:=xlDelimited, comma:=True, _
                       TextQualifier:=xlTextQualifierDoubleQuote

End Sub

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

  引用符の指定や区切り文字の指定を下記の表にまとめました。


     TextQualifier の定数