Private Sub CommandButton1_Click()
Dim objFSO As FileSystemObject
    Dim objFL As File
    Set objFSO = New FileSystemObject
    Dim fd As FileDialog, FileName As String
    Set fd = FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = False
        If fd.Show = - 1  Then
        FileName = fd.SelectedItems( 1 )
        Debug.Print FileName
    End If
    Set fd = Nothing
    If Not FileName = "" Then
    fnGetExtensionName = objFSO.GetExtensionName(FileName)
    Set objFL = objFSO.GetFile(FileName)
    p_adr_num.Value = FileName
   Else
   End If
End Sub

Private Sub CommandButton2_Click()
 
 If (CheckBox2 = True And CheckBox1 = True) Then
 MsgBox "Выберите только один из возможных файлов"
 Exit Sub
 End If
 
If (CheckBox2 = True) Then
 
 With ActiveSheet.QueryTables.Add(Connection:= p_adr_num, _
        Destination:=Range("$A$1"))
        .Name = "Детализированный отчет_010811_310811"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod =  0 
        .TextFilePromptOnRefresh = False
        .TextFilePlatform =  1251 
        .TextFileStartRow =  1 
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array( 2 ,  2 ,  2 ,  2 ,  2 ,  2 ,  2 ,  2 ,  2 ,  2 ,  2 ,  9 ,  9 ,  9 ,  9 ,  9 ,  9 ,  9 ,  9 ,  9 ,  9 )
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With