powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Выгрузка документа в Excel
5 сообщений из 5, страница 1 из 1
Выгрузка документа в Excel
    #37456884
TeddyMUM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период.
...
Рейтинг: 0 / 0
Выгрузка документа в Excel
    #37457011
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TeddyMUMКак выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период.
открываешь по оле и работаешь как с обычным екселем на визуал басике....выбрать ячейки..вставить ..и тд
...
Рейтинг: 0 / 0
Выгрузка документа в Excel
    #37457247
TeddyMUM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Zerro, а по подробней можно??? =)
...
Рейтинг: 0 / 0
Выгрузка документа в Excel
    #37457288
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Выгрузка документа в Excel
    #37457297
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TeddyMUMZerro, а по подробней можно??? =)

Excel=Новый COMОбъект("Excel.Application");
WorkSheets=Excel.WorkBooks;

ЕстьШапка=ТекстЗаголовокEXLS;

dText = "Select * From " + ПолучитьВременнуюРабочуюТаблицу(РабочаяТаблица);
Записи = ВыполнитьКомандуКл(dText);
КоличествоКолонок = Записи.Fields.Count;

Подключение=Connection.ConnectionString;
Connection.Close();

ФайлУспешноОткрыт=Истина;
Попытка
XLSОбъект = WorkSheets.Open(Источник);
Исключение
Сообщить("Невозможно открыть файл " + Источник + " !!!" + Символы.ПС + ОписаниеОшибки()+". Возможно файл не скорректирован.");
ФайлУспешноОткрыт=Ложь;
КонецПопытки;

Если ФайлУспешноОткрыт Тогда
Лист=XLSОбъект.Sheets(СписокТаблиц);

СписокЧисловыхКолонок=Новый СписокЗначений;

Для Колонка=1 По КоличествоКолонок Цикл
Строка=ЕстьШапка+1;
ЧисловаяКолонка=Истина;
Пока Строка<150 Цикл
Value=СокрЛП(Лист.Cells(Строка,Колонка).Value);
Если НЕ ПустаяСтрока(Value) Тогда
Если (Строка=ЕстьШапка+1)ИЛИ(НЕ ПроверкаНаЧисло(Value)) Тогда
ЧисловаяКолонка=Ложь;
Прервать;
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Выгрузка документа в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]