 |
|
Модераторы: Akina |
 
|
|
Отфильтрованный рекордсет в excel 
| Farkhod |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.4.2003 Где: Ташкент Репутация: нет Всего: нет |
Данные из рекордсета надо кинуть в эксель. Использую CopyFromRecordset
Это работает. Но как кинуть в эксель отфильтрованный рекордсет ? Пробую: xcl.Range("A2").CopyFromRecordset rs.Filter = ...мой фильтр Можно кидать то что в гриде построчно, но это занимает слишком много времени кидать каждую строку отдельно... |
|||
|
||||
Загрузка ...
| Naghual |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
А приведи как, мил человек, код, которым щас пытаешся это делать
-------------------- Я желаю всем Счастья! |
|||
|
||||
| Farkhod |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.4.2003 Где: Ташкент Репутация: нет Всего: нет |
Sub sendtoexcel()
On Error GoTo erh Dim i As Integer Dim xcl As Excel.Application Set xcl = New Excel.Application xcl.Workbooks.Add For i = 0 To rs.Fields.Count - 1 xcl.Cells(1, i + 1) = gr.Columns(i).Caption xcl.Cells(1, i + 1).Select xcl.Selection.Font.Bold = True Next xcl.Range("A2").CopyFromRecordset rs xcl.Visible = True Exit Sub erh: MsgBox Err.Description, vbCritical, "ExRep v1.0" End Sub |
|||
|
||||
| Naghual |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
Так это...
Перед этой строчкой xcl.Range("A2").CopyFromRecordset rs создай rs2 который фильтрует из rs и используй его как параметр. -------------------- Я желаю всем Счастья! |
|||
|
||||
| Farkhod |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.4.2003 Где: Ташкент Репутация: нет Всего: нет |
когда rs2 присваиваю фильтр на rs, ругается: Filter cannot be opened
|
|||
|
||||
| Naghual |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
ОК.
А как сам RS получаеш? Делай его изначально отфильтрованым! -------------------- Я желаю всем Счастья! |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0603 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |