Самое простое, так:[vba]Код
Sub Test()
Dim f
f = Application.GetOpenFilename("Файлы *.csv, *.csv")
If f = False Then Exit Sub
With ActiveSheet.QueryTables.Add("TEXT;" & f, Range("$A$1"))
...
End With
End Sub
[/vba]
или так:[vba]Код
Sub Test2()
Dim f$
With Application.FileDialog(msoFileDialogOpen)
.FilterIndex = 6 ' Текстовые файлы (*.prn;*.txt;*.csv)
.InitialFileName = "C:\Program Files (x86)\ExpertBalanceList.csv"
If Not .Show Then Exit Sub
f = .SelectedItems(1)
End With
With ActiveSheet.QueryTables.Add("TEXT;" & f, Range("$A$1"))
...
End With
End Sub
[/vba]