Имя: Пароль:
1C
 
прочитать из ексель
0 sheport
 
05.10.15
15:19
Пытаюсь прочитать данные из эксель и записать их в справочник.

Реализовал чтение колонки и содержимое колонки надо записать. При чтении происходит зависание..в чем дело?

&НаКлиенте
Процедура Команда2(Команда)
    ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогВыбора.Заголовок = "Выберите файл";
    Если ДиалогВыбора.Выбрать() Тогда
        ИмяФайла = ДиалогВыбора.ПолноеИмяФайла;
    КонецЕсли;
    
    Excel = Новый COMОбъект("Excel.Application");
    Excel.WorkBooks.Open(ИмяФайла);
    Excel.Sheets(1).Select(); // лист 1, по умолчанию
    
    НомерДела = Новый Массив();
    
    Сч = 2;
    Пока ЗначениеЗаполнено(Excel.Cells(2, Сч).SpecialCells(11).Column) Цикл
        ИмяНомерДела = Excel.Cells(сч, 2).Text;
        НомерДела.Добавить(ИмяНомерДела);
        Сч = Сч + 1;
    КонецЦикла;

    
    Прочитать(ИмяНомерДела);    
        

    
    
КонецПроцедуры
1 StillEnough
 
05.10.15
15:21
у тебя значение всегда будет заполнено. Проверяй как = ""
2 sheport
 
05.10.15
15:24
(1) спасибо!) не зависает.

А как правильно сдлеать так...вот сейчас у меня считывает и записывает в массив одну колонку и массив передам на сервер...а вторую колонку как считать? хотело бы все в одном цикле пробежать по всем колонкам и это дело передать на сервер?
3 Tatitutu
 
05.10.15
15:25
Может пригодиться:
Прыг-Скок...или из MS EXCEL в 1С (8.2) (открытый код)
http://catalog.mista.ru/public/399457/
4 sheport
 
05.10.15
15:43
Сч = 2;
    Пока Excel.Cells(2, Сч).Text<>"" Цикл
        ИмяНомерДела = Excel.Cells(сч, 2).Text;
        НомерДела.Добавить(ИмяНомерДела);
        Сч = Сч + 1;
    КонецЦикла;



сделал так...но после 5 значения в колонке с цикла выходит
5 sheport
 
05.10.15
15:43
что не так?
6 vicof
 
05.10.15
15:44
строка не пустая
7 AllJoke
 
05.10.15
15:45
что не так?
Excel.Cells(2, Сч).Text<>""
Значит в ячейке пустой текст, то есть нет его.
8 SleepyHead
 
гуру
05.10.15
15:49
А что, у объекта "ТабличныйДокумент" метод "Прочитать" отменили? Из синтакис-помощника:

"Синтаксис:

Прочитать(<ИмяФайла>, <СпособЧтенияЗначений>)
Параметры:

<ИмяФайла> (обязательный)

Тип: Строка.
Имя файла табличного документа.
<СпособЧтенияЗначений> (необязательный)

Тип: СпособЧтенияЗначенийТабличногоДокумента.
Определяет, каким образом нужно интерпретировать значения, считываемые из исходного документа [b]XLS, XLSX или ODS.[/b]
"
9 sheport
 
05.10.15
15:54
(6) и?
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой