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 все проходит отлично

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

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

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

Решение