Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Выгрузка документа в Excel
|
|||
|---|---|---|---|
|
#18+
Как выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.09.2011, 11:02 |
|
||
|
Выгрузка документа в Excel
|
|||
|---|---|---|---|
|
#18+
TeddyMUMКак выгрузить данный из документа в уже существующей файл excelя с условием??? Например выгружать все документы за определенный период. открываешь по оле и работаешь как с обычным екселем на визуал басике....выбрать ячейки..вставить ..и тд ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.09.2011, 12:08 |
|
||
|
Выгрузка документа в Excel
|
|||
|---|---|---|---|
|
#18+
Zerro, а по подробней можно??? =) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.09.2011, 14:01 |
|
||
|
Выгрузка документа в 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)) Тогда ЧисловаяКолонка=Ложь; Прервать; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.09.2011, 14:18 |
|
||
|
|

start [/forum/topic.php?fid=28&fpage=73&tid=1520987]: |
0ms |
get settings: |
10ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
42ms |
get topic data: |
13ms |
get forum data: |
4ms |
get page messages: |
53ms |
get tp. blocked users: |
2ms |
| others: | 247ms |
| total: | 398ms |

| 0 / 0 |
