Имя: Пароль:
1C
1С v8
Загрузка данных из эксель. УТ 11
0 vse_serjezno
 
27.11.13
13:09
Здравствуйте.
Загружаю файл в 1с, ругается на метод Sheets.
Подскажите, пожалуйста, как можно исправить эту проблему?

&НаСервере
Процедура ЗагрузитьДанныеИзФайлаСервер()
    
    ФайлДанныхНаСервере = РеквизитФормыВЗначение("Объект");
    Сообщить("Идет обработка выбранного файла!..");
    Попытка
        // Загружаем Excel
        ExcelПриложение = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);    
    КонецПопытки;
    
    Попытка
        // Открываем файл
        ExcelФайл = ExcelПриложение.WorkBooks.Open(ФайлДанныхНаСервере);
    Исключение
        Сообщить("Не удалось открыть файл: " + ФайлДанныхНаСервере);
    КонецПопытки;
    
    Попытка
        // Обрабатываем файл
        // Читаем первую страницу книги
        ExcelЛист = ExcelФайл.Sheets(1);
        xlCellTypeLastCell = 11;
        ПоследняяСтрока = ExcelЛист.Cells.SpetialCells(xlCellTypeLastCell).Row;
        
        Для счетчик = 2 по ПоследняяСтрока Цикл
            НовыйПартнер = Справочники.Партнеры.СоздатьЭлемент();


Ошибка появляется на момента:
Не удалось открыть файл: ВнешняяОбработкаОбъект.ЗагрузкаСалоновКрасоты

И выглядит следующим образом:
Ошибка открытия листа №1 Microsoft Excel.
{Форма.Форма.Форма(57)}: Значение не является значением объектного типа (Sheets)
1 dk
 
27.11.13
13:14
xlCellTypeLastCell определена?
можно тупо 11 подставить
на какой строке матерится?
---
SpetialCells с ошибками написано
2 George Wheels
 
27.11.13
13:23
Если файл не открылся, то естественно ExcelЛист = ExcelФайл.Sheets(1); не сработает. Т.к. ExcelФайл = Неопределено.
3 vse_serjezno
 
27.11.13
13:24
(1) на строке
ExcelФайл = ExcelПриложение.WorkBooks.Open(ФайлДанныхНаСервере);
4 vse_serjezno
 
27.11.13
13:26
Ааа, я саму обработку зачем-то передаю в путь к файлу...