Range.Find - ошибка при открытии книги Excel

@FUrystorm · Регистрация: 11.03.2011

Студворк — интернет-сервис помощи студентам

Ошибка в самом конце кода. использую функцию .find для нахождения ячеек по их значению.
Поиск всегда идет в 2 листах эксель из 2 книг.

По сути это один и тот же документ, только версии от разных дат. цель программы - сравнить изменения.
Поиск всегда идет одновременно по 2 книгам.

Когда поиск идет вида A5:A25 все в полном порядке.

Visual Basic
1
2
Set ItogoRowNEW_search = objExcelNew.Worksheets(NEW_Sheet).Range("a9:a15000").Find("Общий итог")
Set ItogoRowOLD_search = objExcelOld.Worksheets(OLD_Sheet).Range("a9:a15000").Find("Общий итог")

Но когда я пытаюсь использовать адресацию вида R1C1 начинаются проблемы.
- с этой строкой все ОК (objExcelNew это 1я книга, которая открывается) [строка 45 в коде снизу]
  Visual Basic
  1
  Set Initial_StroikaRow_NEW_search = Range(objExcelNew.Worksheets(NEW_Sheet).Cells(8, 1), objExcelNew.Worksheets(NEW_Sheet).Cells(ItogoRowNEW, 1)).Find("* итог")
- А ТУТ ОШИБКА: (во вложении скрин) [строка 51 в коде снизу]
  Visual Basic
  1
  Set Initial_StroikaRow_OLD_search = Range(objExcelOld.Worksheets(OLD_Sheet).Cells(8, 1), objExcelOld.Worksheets(OLD_Sheet).Cells(ItogoRowOLD, 1)).Find("* итог")
  Т.е. почему-то в 1м объекте excel все в порядке, а во 2м поиск не проходит.
  
  ОДНАКО! Если использовать изврат, то ошибки нету.
  Visual Basic
  1 2
  turbo_string = "A8:A" + CStr(ItogoRowOLD) Set Initial_StroikaRow_OLD_search = Range(turbo_string).Find("* итог")

Собственно кусок кода:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub SravnitButtonVPuti()
 
Dim objExcelNew As New Excel.Application
Dim objExcelOld As New Excel.Application
 
'открываем файлы
objExcelNew.Workbooks.Open TextNew.Text, ReadOnly:=True
objExcelNew.Visible = True
 
objExcelOld.Workbooks.Open TextOld.Text, ReadOnly:=True
objExcelOld.Visible = True
 
 
'Задаем переменные для имен листов
NEW_Sheet = ComboNew.Text
OLD_Sheet = ComboOld.Text
 
'Активируем сравниваемые листы
objExcelOld.Worksheets(OLD_Sheet).Activate
objExcelNew.Worksheets(NEW_Sheet).Activate
 
ТУТ ВСЕ ОК - ПОИСК ИДЕТ ЧЕРЕЗ БУКВЕННЫЙ ДИАПАЗОН ВИДА  A5:A25
 
'=================================== Находим начальные данные для сравнения (общий итог, первый столбец с данными и т.д.) ============
'---Находим _ряд_ "Общий итог"
Set ItogoRowNEW_search = objExcelNew.Worksheets(NEW_Sheet).Range("a9:a15000").Find("Общий итог")
Set ItogoRowOLD_search = objExcelOld.Worksheets(OLD_Sheet).Range("a9:a15000").Find("Общий итог")
    'Задаем переменные для запоминания номера ряда ОБЩЕГО ИТОГА
    Dim ItogoRowNEW As Integer, ItogoRowOLD As Integer
    ItogoRowNEW = ItogoRowNEW_search.Row
    ItogoRowOLD = ItogoRowOLD_search.Row
'---
 
'---Находим _столбец_ "Общий итог" (тот что справа в конце документа)
Set ItogoColumnNEW_search = objExcelNew.Worksheets(NEW_Sheet).Range("a8:fff8").Find("Общий итог")
Set ItogoColumnOLD_search = objExcelOld.Worksheets(OLD_Sheet).Range("a8:fff8").Find("Общий итог")
    'Задаем переменные для запоминания номера столбца ОБЩЕГО ИТОГА (того что справа в конце документа)
    Dim ItogoColumnNEW As Integer, ItogoColumnOLD As Integer
    ItogoColumnNEW = ItogoColumnNEW_search.Column
    ItogoColumnOLD = ItogoColumnOLD_search.Column
'---
 
'---Находим начальную строку "№стройки Итог"
Set Initial_StroikaRow_NEW_search = Range(objExcelNew.Worksheets(NEW_Sheet).Cells(8, 1), objExcelNew.Worksheets(NEW_Sheet).Cells(ItogoRowNEW, 1)).Find("* итог")
 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
А ТУТ ОШИБКА: (во вложении скрин)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
Set Initial_StroikaRow_OLD_search = Range(objExcelOld.Worksheets(OLD_Sheet).Cells(8, 1), objExcelOld.Worksheets(OLD_Sheet).Cells(ItogoRowOLD, 1)).Find("* итог")

@Alex77755 · 10.05.2011, 11:38

Попробуй такой вариант:

Visual Basic
1
Range("a9:a15000")=Range(Cells(9,1), Cells(15000,1))

@FUrystorm · 10.05.2011, 11:56 **[ТС]**

поменял проблемную строку на

Visual Basic
1
Set Initial_StroikaRow_OLD_search = objExcelOld.Worksheets(OLD_Sheet).Range(Cells(8, 1), Cells(ItogoRowNEW, 1)).Find("* итог")

на всякий пожарный, ибо:

в этой теме Range.Find метод не работает при адресации ячеек r1c1 - error 1004
модератор "аналитика посоветовал использовать .cell каждый раз указывая к кому объекту .cell принадлежит.

в таком случае вылетает ошибка 1004

@Alex77755 · 10.05.2011, 12:20

Там так же предлагался вариант:

Visual Basic
1
1   ActiveWorkbook.Worksheets(OLD_Sheet).Cells(8, 1).resize(10).Find("20*")

Добавлено через 14 минут
можно попробовать такой вариант

Visual Basic
1
.Range("a9:a" & ItogoRowNEW)

@FUrystorm · 10.05.2011, 13:45 **[ТС]**

попробовал такую строку вместо проблемной:

Visual Basic
1
Set Initial_StroikaRow_OLD_search = objExcelOld.Worksheets(OLD_Sheet).Cells(8, 1).Resize(ItogoRowOLD).Find("* итог")

В этом месте все заработало, спасибо.

Встает другой вопрос - даже если использовать такой метод, то:

как мне с помощью переменных, менять размер диапазона в ширину? с помощью .resize он изменяется только в высоту как я понял.

Все равно хочу понять, почему возникает ошибка в книге Old? ведь в New все проходит отлично

@Alex77755 · 10.05.2011, 13:51

Visual Basic
1
resize(10,10)

Добавлено через 2 минуты

Все равно хочу понять, почему возникает ошибка в книге Old? ведь в New все проходит отлично

По видимому всё дело в том, какая книга активна. ИМХО

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Range.Find - ошибка при открытии книги Excel

Решение