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

- 1
- 2
Читают тему
(гостей: 1)