Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
27.09.2011, 11:02
|
|||
|---|---|---|---|
|
|||
Выгрузка документа в Excel |
|||
|
#18+
Как выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.09.2011, 12:08
|
|||
|---|---|---|---|
Выгрузка документа в Excel |
|||
|
#18+
TeddyMUMКак выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период. открываешь по оле и работаешь как с обычным екселем на визуал басике....выбрать ячейки..вставить ..и тд ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.09.2011, 14:01
|
|||
|---|---|---|---|
|
|||
Выгрузка документа в Excel |
|||
|
#18+
Zerro, а по подробней можно??? =) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.09.2011, 14:18
|
|||
|---|---|---|---|
Выгрузка документа в Excel |
|||
|
#18+
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)) Тогда ЧисловаяКолонка=Ложь; Прервать; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=28&tablet=1&tid=1520987]: |
0ms |
get settings: |
7ms |
get forum list: |
22ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
72ms |
get topic data: |
14ms |
get forum data: |
3ms |
get page messages: |
43ms |
get tp. blocked users: |
2ms |
| others: | 251ms |
| total: | 422ms |

| 0 / 0 |
