VBA打开文件名未知的csv文件

Dim fileDialog As FileDialog
Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)

With fileDialog
    .Title = "选择CSV文件"
    .Filters.Clear
    .Filters.Add "CSV文件", "*.csv"
    .AllowMultiSelect = False
    
    If .Show = -1 Then
        ' 用户选择了文件
        Dim selectedFile As String
        selectedFile = .SelectedItems(1)
        
        ' 继续处理选中的CSV文件
        ' ...
    Else
        ' 用户取消了选择
        ' 可以进行相应的处理
    End If
End With

Dim csvFilePath As String
csvFilePath = selectedFile ' 假设selectedFile是用户选择的CSV文件路径

Dim fileNumber As Integer
fileNumber = FreeFile

Open csvFilePath For Input As #fileNumber

Dim line As String
Do Until EOF(fileNumber)
    Line Input #fileNumber, line
    
    ' 处理每一行数据
    ' ...
Loop

Close #fileNumber