| Цитата |
|---|
| написал: Пытаюсь воспользоваться функцией Выделятор и получаю такое сообщение, как на первом скриншоте. Что посоветуете сделать? И это относится, кстати, не только к выделятору, но и к некоторым другим функциям. Ошибка со второго скриншота выпадает при попытке использовать инструмент "Сравнить". Тоже из раздела "Диапазоны". Excel 2024 Прикрепленные файлы Скриншот 11-11-2024 111445.jpg (35.18 КБ) Скриншот 11-11-2024 111742.jpg (21.01 КБ) |
Ошибки при попытке использования некоторых функций PLEX
Макрос на копирование листа из другой книги
|
22.11.2012 13:33:41
Здравствуйте!
Прошу помочь в доработке макроса, который собирает листы из разных книг в одну. Как сделать, чтоб он копировал лист только из конкретного файла xls, миновав при этом окно выбора: Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer Dim wbk As Workbook Dim wbk2 As Workbook On Error GoTo ErrHandler Set wbk = ActiveWorkbook Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Files to Merge") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "No files!" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Set wbk2 = Workbooks.Open(Filename:=FilesToOpen(x)) wbk2.Sheets().Move After:=wbk.Sheets(wbk.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True Sheets("Лист1").Select ' удаляем создаваемый при копировании лишний лист ActiveWindow.SelectedSheets.Delete Sheets("Дилеры").Select Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub |
|
|
|
|
