Добрый вечер, уважаемые форумчане! Помогите, пожалуйста, вот с таким вопросом. Есть 2 листа - "список 1" и "список 2". На листе "Общий список" я формирую общий список из двух диапазонов. При малых объемах диапазонов макрос отрабатывает без ошибок. Сейчас столкнулся с тем, что если в каком-либо списке появляется большое количество данных, точнее, если диапазоны данных велики (как на листе "Список 1"), то макрос выдает ошибку: "Run-time error '-2147217865 (80040e37)': Объект "Список_1$G6:G135105" не найден ядром СУБД Microsoft Access. Убедитесь, что объект существует, а его имя и путь к нему указаны правильно. Если объект "Список_1$G6:G135105" не является локальным, проверьте сетевое подключение или обратитесь в администратору сервера." Помогите, пожалуйста, разобраться с данной ошибкой. Повторюсь, что макрос при малых диапазонах отрабатывает корректно. В приложенном примере из-за размера файла пришлось удалить часть данных на листе "Список 1". Заранее, огромное спасибо за любой совет!
Добрый вечер, уважаемые форумчане! Помогите, пожалуйста, вот с таким вопросом. Есть 2 листа - "список 1" и "список 2". На листе "Общий список" я формирую общий список из двух диапазонов. При малых объемах диапазонов макрос отрабатывает без ошибок. Сейчас столкнулся с тем, что если в каком-либо списке появляется большое количество данных, точнее, если диапазоны данных велики (как на листе "Список 1"), то макрос выдает ошибку: "Run-time error '-2147217865 (80040e37)': Объект "Список_1$G6:G135105" не найден ядром СУБД Microsoft Access. Убедитесь, что объект существует, а его имя и путь к нему указаны правильно. Если объект "Список_1$G6:G135105" не является локальным, проверьте сетевое подключение или обратитесь в администратору сервера." Помогите, пожалуйста, разобраться с данной ошибкой. Повторюсь, что макрос при малых диапазонах отрабатывает корректно. В приложенном примере из-за размера файла пришлось удалить часть данных на листе "Список 1". Заранее, огромное спасибо за любой совет!Leojse
rst.Open "SELECT a.F1 AS col1 FROM [Ñïèñîê_1$" & c1 & "] AS a UNION SELECT b.F1 AS col2 FROM [Ñïèñîê_2$" & c2 & "] AS b ORDER BY col1" _ , "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=NO"""
[/vba] Но всё равно выдается та же ошибка.
Pelena, сделал, как в том сообщении: [vba]
Код
rst.Open "SELECT a.F1 AS col1 FROM [Ñïèñîê_1$" & c1 & "] AS a UNION SELECT b.F1 AS col2 FROM [Ñïèñîê_2$" & c2 & "] AS b ORDER BY col1" _ , "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=NO"""
rst.Open "SELECT a.F1 AS col1 FROM [Список_1$] AS a UNION SELECT b.F1 AS col2 FROM [Список_2$] AS b ORDER BY col1" _ , "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=NO"""
[/vba]
Там пишут, что надо только лист указать. [vba]
Код
rst.Open "SELECT a.F1 AS col1 FROM [Список_1$] AS a UNION SELECT b.F1 AS col2 FROM [Список_2$] AS b ORDER BY col1" _ , "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=NO"""
Pelena, не указал в конце листа символ $. Поэтому макрос не сработал. Сейчас добавил - всё получилось. Но дело в том, что данные собрались со столбцов A обоих листов. Мне же нужно отбирать данные с других столбцов листов. Получается, что выхода нет?
Pelena, не указал в конце листа символ $. Поэтому макрос не сработал. Сейчас добавил - всё получилось. Но дело в том, что данные собрались со столбцов A обоих листов. Мне же нужно отбирать данные с других столбцов листов. Получается, что выхода нет?Leojse
Вы же пишете F1 - это первый столбец таблицы. Указывайте другие столбцы А если хотите по заголовкам столбцов, то будет примерно так [vba]
Код
rst.Open "SELECT a.Заголовок1 AS col1 FROM [Список_1$] AS a UNION SELECT b.Заголовок2 AS col2 FROM [Список_2$] AS b ORDER BY col1" _ , "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"""
[/vba]
Вы же пишете F1 - это первый столбец таблицы. Указывайте другие столбцы А если хотите по заголовкам столбцов, то будет примерно так [vba]
Код
rst.Open "SELECT a.Заголовок1 AS col1 FROM [Список_1$] AS a UNION SELECT b.Заголовок2 AS col2 FROM [Список_2$] AS b ORDER BY col1" _ , "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"""
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
