Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / [игнор отключен] [закрыт для гостей] / Выгрузка документа в Excel / 5 сообщений из 5, страница 1 из 1
27.09.2011, 11:02
    #37456884
TeddyMUM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка документа в Excel
Как выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период.
...
Рейтинг: 0 / 0
27.09.2011, 12:08
    #37457011
Zerro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка документа в Excel
TeddyMUMКак выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период.
открываешь по оле и работаешь как с обычным екселем на визуал басике....выбрать ячейки..вставить ..и тд
...
Рейтинг: 0 / 0
27.09.2011, 14:01
    #37457247
TeddyMUM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка документа в Excel
Zerro, а по подробней можно??? =)
...
Рейтинг: 0 / 0
27.09.2011, 14:15
    #37457288
The Dim!
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка документа в Excel
...
Рейтинг: 0 / 0
27.09.2011, 14:18
    #37457297
Zerro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка документа в Excel
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
Форумы / [игнор отключен] [закрыт для гостей] / Выгрузка документа в Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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