Excel Метод Find() в 1C
Показывать по
10
20
40
сообщений
- 1
- 2
28.12.2004
05:35
#11
"Я сейчас сидел с С++ и вспомнил, что в 1С то же есть try... catch 
Поэтому можно сделать и вот так.
ОкноExcel = СоздатьОбъект("Excel.Application");
РабКнига = ОкноExcel.Application.Workbooks.Open(мой_файл);
Лист = РабКнига.WorkSheets("Sheet1");
попытка
tmp = Лист.Range("a10:a40").Find ("что искать будем");
Исключение
Сообщить("Запись не найдена");
перейти ~не_найдено;
КонецПопытки;
Сообщить(tmp.Value);
~не_найдено:
"
Поэтому можно сделать и вот так.
ОкноExcel = СоздатьОбъект("Excel.Application");
РабКнига = ОкноExcel.Application.Workbooks.Open(мой_файл);
Лист = РабКнига.WorkSheets("Sheet1");
попытка
tmp = Лист.Range("a10:a40").Find ("что искать будем");
Исключение
Сообщить("Запись не найдена");
перейти ~не_найдено;
КонецПопытки;
Сообщить(tmp.Value);
~не_найдено:
"
- 1
- 2
Читают тему
(гостей: 1)