Доброго времени суток, господа форумчани. Пишу обработку загрузки данных из Excel в 1C 7.7.
 В файле из которого идет загрузка присутствуют ячейки с формулами и из-за того что некоторые формулы написаны не правильно, в них пишется текст типа =D15-#ССЫЛКА!-K15
 Удалять все такие ячейки в которых битая ссылка нет возможности, т.к. таких ячеек очень много и они в перемешку с нормальными ячейками. При попытке считать значение проблемной ячейки, например вот таким кодом : Excel.Cells(х, 15).Value
Возникает ошибка "Несовпадение типов" и 1С виснет!
Конструкция Попытка Исключение КонецПопытки не срабатывает !
Приходится снимать задачу с 1С. Подскажите пожалуйста как можно проверять такие ячейки чтобы 1С прололжала после этого работать ? ) Заранее большое спасибо !

что значит "Попытка не срабатывает"?

Для х = 1 По Строк Цикл    
     Попытка
                 Состояние("Обрабатывается строка номер "+ Строка(х));
             
               Колонка1       = СокрЛП(Строка(Excel.Cells(х, 1).Value));  
               Колонка2       = СокрЛП(Строка(Excel.Cells(х, 2).Value));  
               Колонка3       = СокрЛП(Строка(Excel.Cells(х, 3).Value));  
               Колонка4       = СокрЛП(Строка(Excel.Cells(х, 4).Value));  
               Колонка5       = СокрЛП(Строка(Excel.Cells(х, 5).Value));  
               Колонка6       = СокрЛП(Строка(Excel.Cells(х, 6).Value));  
               Колонка7       = СокрЛП(Строка(Excel.Cells(х, 7).Value));  
               Колонка8       = СокрЛП(Строка(Excel.Cells(х, 8).Value));  
               Колонка9       = СокрЛП(Строка(Excel.Cells(х, 9).Value));  
               Колонка10       = СокрЛП(Строка(Excel.Cells(х, 10).Value));
               Колонка11       = СокрЛП(Строка(Excel.Cells(х, 11).Value));
               Колонка12       = СокрЛП(Строка(Excel.Cells(х, 12).Value));
               Колонка13       = СокрЛП(Строка(Excel.Cells(х, 13).Value));
               Колонка14       = СокрЛП(Строка(Excel.Cells(х, 14).Value));
               Колонка15       = СокрЛП(Строка(Excel.Cells(х, 15).Value));
                   
                   Если (ПустоеЗначение(Колонка15)=0) Тогда
                       
                       Если СокрЛП(Колонка15)<>"долг"  Тогда  
                           
                           
                           Если ПустоеЗначение(Колонка14)<>1 Тогда
                               
                                   Если (Дата(Колонка14)>=НачДата) и (Дата(Колонка14)<=КонДата) Тогда
                                       ТЗ.НоваяСтрока();
                                       ТЗ.Долг = Колонка15;
                                       ТЗ.Сумма = Колонка4;
                                       ТЗ.ДатаБухСпрвки=Колонка14;
                                       ТЗ.ДатаСФ = Колонка3;
                                         ТЗ.НомерСФ = Колонка7;
                                     КонецЕсли;
                                                                       
                            КонецЕсли;    
                         КонецЕсли;                      
                         
               
                   КонецЕсли;    
       Исключение
           Сообщить("Не обработать строку номер "+ Строка(х));
       КонецПопытки;    
   
   Конеццикла;    



Вот код. 1С выдает сообщение Несовпадение типов и виснет ! Сообщение внизу не появляется о не удачной обработке строки...

попробуй через йоксель.

http://zalil.ru/32512420

попробуй эту обработку
когда-то скачал ее с инфостарта
больше с загрузкой из xls  не  парюсь

(filh) Сори, ВК не пользуюсь ...

(5) внешнюю обработку сделай, в ней подгрузи ВК. Или через табло.

(filh) Я пользуюсь ВК только если стандартными способами не возможно сдлеать задуманное, пока я надеюсь найти выход ...

(IvanovIV) Спасибо, но эта обработка так же выпала с такой же ошибкой и подвесила 1С.

а если убрать СокрЛП и Строка?

+9 попробовать, пройдет ли?

(8) ну извини, чем мог тем помог

а файл екселевский в каком екселе создан и как сохранен?

если не жалко
файлик выложи
не надо цликом весь
пару строк
одну, которая проходит
а другую, где ругается

(12) сделай сам :)

(IvanovIV) Сейчас выложу
(ШтушаКутуша) СокрЛП - не причем, пробовал и так и так

(14) ну попробуй еще для полного ой

Колонка1       = СокрЛП(""+Excel.Cells(х, 1).Value);

(13) ) Накуа я буду пытаться моделировать, то что есть уже ... и меня никак не касается?

http://file.qip.ru/file/TlUDTfMy/Для_примера.html

(filh) В отладчике при попытке посмотреть значение Excel.Cells(х, 1).Value вылетает ошибка, так что по-любому не пойдет....

(17) а сохранить в 2003 и попробовать?

(17)
см 11

Файл изначально в 2003 был, просто пересохранял в 2007, так что не в Excel дело

я сейчас у предков
офиса тут нет
но думаю проблема в формате сохранения

тогда завтра посмотрю на работе)

Вот ссылка на файл в 2003 офисе http://file.qip.ru/document/DNQ4X0Sj/Для_примера.html

(24) тоже посмотрю завтра с утра, сейчас лень.

Вопрос закрыт, друг помог, который ещё не спал )
Кому интересно код такой :
   Если Найти (Excel.Cells(х, 15).Formula,"#REF") =0 Тогда
                   Колонка15       = СокрЛП(Строка(Excel.Cells(х, 15).Value));
               Иначе    
                   Сообщить("Не удалось обработать строку номер "+ Строка(х));
                   Продолжить;
               КонецЕсли;

http://www.magazka.com/pryg-skok-full.html

на ИСе есть аналог для ТИСа