| Главная » Статьи » Готовые макросы |
Блокируем ячейку сводной в выбранных файлах.
| Sub БлокАвтофильтраВЯчейке() T = Timer Dim obj_file As Object Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") Application.ScreenUpdating = False Application.DisplayAlerts = False ReDim arr_file_names(1 To 1) As String avFiles = Application.GetOpenFilename _ ("Excel files(*.xl*),*.xl*", 2, "Выбрать Excel файлы", , True) ',Text files(*.txt),*.txt If IsArray(avFiles) = False Then Exit Sub int_File_Number = UBound(avFiles) 'количество выделенных файлов 'Workbooks(wbreport).Worksheets("Отчет").Outline.ShowLevels , 3 'Workbooks(wbreport).Worksheets("Отчет").Range("CH5:Ci63").Copy 'Application.CutCopyMode = False For i = 1 To int_File_Number ReDim Preserve arr_file_names(1 To i) arr_file_names(i) = Dir(avFiles(i)) Set obj_file = objFSO.getfile(avFiles(i)) Workbooks.Open obj_file Set obj_file = ActiveWorkbook BlockCell = ThisWorkbook.Sheets(1).Range("F1").Value ActiveSheet.PivotTables(1).PivotFields(BlockCell).EnableItemSelection = False ActiveWorkbook.Saved = False ActiveWorkbook.Close True Next Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "Execution Time: " & Format(Fix(Timer - T) / 86400, "h:mm:ss") & Format(Timer - T - Fix(Timer - T), ".00000") End Sub | |
| Просмотров: 299 | |
| Всего комментариев: 0 | |