Переключение между базами данных. (VBA, Excel 2010)

Sub P1()
Dim Путь As String, Файл As String
Dim R As Integer
Cells.ClearContents
Путь = ActiveWorkbook.Path & "\FOLD\"
Файл = Dir(PathName:=Путь & "*.csv")
Do Until Файл = ""
R = R + 1
Cells(R, 1).Value = Файл
Файл = Dir
Loop
End Sub

Cells(R, 1).Value = Путь & Файл

Sub Gazsin13()
'
' Gazsin13 Gazsin
'
 
 
    With ActiveWorkbook.Connections("datalog_real")
        .Name = "datalog_real"
        .Description = ""
    End With
    Range("A1:S1584").Select
'напрягает этот диапазон, поскольку это есть диапазон всех задействованных
' в данный момент ячеек (в которых хот что-то есть).
'в разных файлах диапазон разный, его нельзя наверное так чётко прописывать.
    With Selection.QueryTable
        .Connection = _
        "TEXT;C:\Users\Jegor\Documents\kollaid experiments\DATAK\datalog_13.07.2011_kollaid_1ten.csv"
'фаил должен указываться в зависимости от того, какой я выбрал в выпадающем списке
        .TextFilePlatform = 1251
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("C4").Select
    
End Sub