Sub ShowFileDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    Dim pivotF As PivotField
        Application.ScreenUpdating = False
        Sheets("DATA").Cells.Clear
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD
        .AllowMultiSelect = False
        .Title = "Выбрать файл отчёта"
        .Filters.Clear
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1
        .InitialFileName = "C:\"
        .InitialView = msoFileDialogViewDetails
        If oFD.Show = 0 Then Exit Sub
        For lf = 1 To .SelectedItems.Count
        x = .SelectedItems(lf)
        Workbooks.Open x
        Next
    End With
    Sheets("Выполнение Плана по Клиентам").Activate
    For Each pivotF In ActiveSheet.PivotTables("Сводная таблица3").RowFields
        If pivotF.Position < ActiveSheet.PivotTables("Сводная таблица3").RowFields.Count Then
            pivotF.DrilledDown = True
        End If
    Next pivotF
    ActiveSheet.PivotTables("Сводная таблица3").TableRange1.Copy
    ThisWorkbook.Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues
    ThisWorkbook.Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteFormats
    ThisWorkbook.Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
    Application.CutCopyMode = False
    ActiveWindow.Close False
    ThisWorkbook.RefreshAll
    Application.ScreenUpdating = True
End Sub