4
FreeFin
14.10.04
✎
16:00
|
На самом деле импорт данных из Excel веесьма интересная штука, но двумя словами весь инструментарий не описать. Безусловно - необходима обработка с содержанием типа:
Если ФС.СуществуетФайл(FileName)=0 Тогда
Предупреждение("Файл не найден!");
Тов="";
ЗакрытьПоОшибке();
Иначе
ФС.АтрибутыФайла(FileName,РазмФ,АтрФ,ВремяФ,ВрПД,ВрПЗ,РасшФ);
Если (СокрЛП(АтрФ)="000010000") Тогда CurrentBook=EB.WorkBooks.Open(FileName);
Иначе
Предупреждение("Файл занят!");
Тов="";
ЗакрытьПоОшибке();
КонецЕсли;
КонецЕсли;
//Проверяем не был ли уже загружен CurrentBook.WorkSheets("Лист3").Activate(); Ячейка=Строка(EB.Cells(1,1).Value);
Если (СокрЛП(Ячейка)<>"") Тогда //Есть запись в служебном листе = обработан Сообщить("Цей файл вже було оброблено!");
EB.DisplayAlerts=0;
CurrentBook.Close();
EB.DisplayAlerts=1;
EB.Quit();
Тов="";
ЗакрытьПоОшибке();
КонецЕсли;
И тд по тексту. Но важно то, что для каждого случая загрузок необходим свой алгоритм, а это - задача для специалиста. Вывод - заказывайте - сделаю, или учитесь, лет через пять свободно сделаете сами.
мыло: freefin@rambler.ru
|
|