ExcelのVBAから、「ファイルを開く」ウィンドウを表示させて、指定されたファイルを開く処理は以下の通り。

    Dim strFN As String
    strFN = Application.GetOpenFilename("テキスト,*.csv; *.txt")
    If strFN <> "False" Then
        Workbooks.Open strFN
    End If

今回はCSVファイルを指定させたいので上記のような記述にしています。