Быстрое сохранение и выгрузка больших таблиц в Excel

Пользователь

Добро пожаловать,

	Регистрация или вход
	Потеряли пароль?

Ник:
Пароль:

Меню сайта

Главная

	Аккаунт
	Пользователи
	Опросы
	Поиск по сайту
	Новости RSS
	Форум
	Отправить другу
	Связаться с нами

	Книги
	Самоучители
	Каталог софта
	Исходники
	Компоненты
	Обработки 1С
	CMS-центр
	Шаблоны сайтов
	Наборы иконок
	Статьи и обзоры
	Вопросы и ответы
	Скрипты
	Нетематичное

Ваше мнение

Наши партнеры

Статистика

Статьи и обзоры

Главная Лучшие Популярные Список Добавить

1С-Предприятие - это программный комплекс, контролирующий все стадии товарооборота, от поступления товара на склад до его продажи и проведения через бухгалтерские книги. Первоначально этот комплекс задумывался как бухгалтерская программа и назывался 1C-Бухгалтерия.

Все очень просто. Если у таблицы высота строки - 12 пикселей, печатная форма выгружается мгновенно. Поэтому перед Таб.Показать() вставляем 2 строчки...

Все очень просто. Если у таблицы высота строки - 12 пикселей, печатная форма выгружается мгновенно. Поэтому перед Таб.Показать() вставляем 2 строчки:

Код

Область=Таб.Область(1,1,Таб.ВысотаТаблицы(),Таб.ШиринаТаблицы());
Область.ВысотаСтроки(12);

Как вариант - можно открывать отчет сразу в Экселе, используя следующую глобальную процедуру (естественно, показ в 1С можно закомментировать)

Код

// ===============================
Процедура глОткрытьВЭкселе(Таб,ИмяФайла="") Экспорт
Попытка
// запускаем Excel-Server
Excel = СоздатьОбъект("Excel.Application");
Исключение
Excel = 0;
Предупреждение("MS Excel не загружен!");
Возврат;
КонецПопытки;
Если ТипЗначенияСтр(Таб)="Строка" Тогда
Excel.WorkBooks.Open(Таб);
Иначе
Область=Таб.Область(1,1,Таб.ВысотаТаблицы(),Таб.ШиринаТаблицы());
Область.ВысотаСтроки(12);
Если Найти(ИмяФайла,":")=0 Тогда
ИмяФайла=КаталогПользователя()+ИмяФайла;
КонецЕсли;
Если Найти(Врег(ИмяФайла),"XLS")=0 Тогда
ИмяФайла=ИмяФайла+".xls";
КонецЕсли;
Таб.Записать(?(ПустоеЗначение(ИмяФайла)=0,ИмяФайла,КаталогПользователя()+
"Таблица.xls"),"XLS");
Excel.WorkBooks.Open(ИмяФайла);
КонецЕсли;
Excel.Visible=1;
Excel=0;
КонецПроцедуры //глОткрытьВЭкселе

И не надо никаких премудрых компонент )

Источник

Разместил: mikukrnet | | Прочитано: 78831 | |

Смотрите также связанные новости

	11.12.2024 - Собственные горячие клавиши в формах V7
	11.12.2024 - Использование компоненты "Управление распределенными ИБ"
	11.12.2024 - Дерево объектов конфигурации (Configuration Object Tree)
	11.12.2024 - Внешняя обработка (External Data Processor )
	11.12.2024 - Защита интелектуальной собственности для 1С:8
	11.12.2024 - Взаимодействие через OLE
	11.12.2024 - 1С и Excel.

biakus

Пункты: 24

Дата: 11.12.2024 Комментарий: 1

Заголовок темы звучит "Быстрое сохранение и выгрузка БОЛЬШИХ таблиц в Excel"
Могу сказать что Эксель хотя бы 20тыс. строк будет открывать очень медленно, а чтобы еще это сохранить...., т.е. я согласна что реально большие таблицы через Эксель например сохранением через меню "Файл/Сохранить копию..." могут подвесить систему, есть хитрый обход этого: сохраняем через вышеуказанное меню, но выбираем тип файла не xls, а html - сохраняется быстро, а затем ручками в готовом файле переписываем расширение на xls. Быстро и качественно.

Дата регистрации: 10.12.2009

Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.

Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском

.

Статьи и обзоры Программирование 1С Быстрое сохранение и выгрузка больших таблиц в Excel Все очень просто Если таблицы высота строки пикселей печатная форма выгружается мгновенно Поэтому перед Таб Показать вставляем строчки КодОбласть=Таб Область ВысотаТаблицы ШиринаТаблицы ВысотаСтроки Как вариант можно открывать отчет сразу Экселе используя следующую глобальную процедуру естественно показ закомментировать Код//