|
Пытаюсь выгрузить из Эксель (300 000 строк) в ТЗ, не пойму почему в ТЗ нет данных... код:
| ☑ |
0
SkillUp
17.10.18
✎
14:22
|
Мой код:
Эксель = ПолучитьCOMОбъект(ПолеВвода1);
ЛистЭксель = Эксель.WorkSheets(1);
ВсегоСтрок = ЛистЭксель.Cells.SpecialCells(11).Row;
ВсегоКолонок = ЛистЭксель.Cells.SpecialCells(11).Column;
Сообщить("Колонок: "+ Строка(ВсегоКолонок) + " Строк: "+ Строка(ВсегоСтрок));
ТЗ = Новый ТаблицаЗначений;
Для Счетчик = 1 По ВсегоКолонок Цикл
ТЗ.Колонки.Добавить("Колонка"+Счетчик);
КонецЦикла;
Для Счетчик = 1 По ВсегоСтрок Цикл
НоваяСтрока = ТЗ.Добавить();
КонецЦикла;
Область = ЛистЭксель.Range(ЛистЭксель.Cells(1,1), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));
Данные = Область.Value.Выгрузить();
Для Счетчик = 0 По ВсегоКолонок-1 Цикл
ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
КонецЦикла;
ЛистЭксель = Неопределено;
Эксель = Неопределено;
ОчиститьСообщения();
Возврат ТЗ;
|
|
1
N-S-B
17.10.18
✎
14:26
|
Скорее всего данные просто подгружаются. Проверь что в ТЗ.Количество()
|
|
2
segn
17.10.18
✎
14:27
|
(0) Данные = Область.Value.Выгрузить(); - разве это массив?
|
|
3
RomanYS
17.10.18
✎
14:28
|
Посмотреть отладчиком содержание Данные и Данные[Счетчик]
|
|
4
RomanYS
17.10.18
✎
14:31
|
ТД = Новый ТабличныйДокумент;
ТД.Прочитать(ИмяФайла, СпособЧтенияЗначенийТабличногоДокумента.Текст);// эксель файл
Построитель = Новый ПостроительЗапроса;
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТД.Область());
ТЗ = Построитель.Результат.Выгрузить();
|
|
5
13_Mult
17.10.18
✎
14:35
|
|
|
6
МихаилМ
17.10.18
✎
14:36
|
getrows()
|
|
7
SkillUp
17.10.18
✎
14:41
|
(3) (4) (5) Разобрался. Спасибо вам...
|
|
8
SkillUp
17.10.18
✎
14:42
|
(6) Отож ...
|
|
9
SkillUp
17.10.18
✎
17:02
|
(1) Да, ТЗ.Количество() показывает свыше 300 000 тыс. строк, но что это меняет, ТЗ пустая...
|
|