|
Платные хостинги
Раскрутка сайта
Книги по программированию
Отфильтрованный рекордсет в excel
- Данные из рекордсета надо кинуть в эксель. Использую CopyFromRecordsetЭто работает. Но как кинуть в эксель отфильтрованный рекордсет ? Пробую:xcl.Range("A2").CopyFromRecordset rs.Filter = ...мой фильтр Можно кидать то что в гриде построчно, но это занимает слишком много времени кидать каждую строку отдельно...
- А приведи как, мил человек, код, которым щас пытаешся это делать
- Sub sendtoexcel()On Error GoTo erhDim i As IntegerDim xcl As Excel.ApplicationSet xcl = New Excel.Applicationxcl.Workbooks.AddFor i = 0 To rs.Fields.Count - 1xcl.Cells(1, i + 1) = gr.Columns(i).Captionxcl.Cells(1, i + 1).Selectxcl.Selection.Font.Bold = TrueNextxcl.Range("A2").CopyFromRecordset rsxcl.Visible = TrueExit Suberh:MsgBox Err.Description, vbCritical, "ExRep v1.0"End Sub
- Так это...Перед этой строчкойxcl.Range("A2").CopyFromRecordset rsсоздай rs2 который фильтрует из rs и используй его как параметр.
- когда rs2 присваиваю фильтр на rs, ругается: Filter cannot be opened
- ОК.А как сам RS получаеш? Делай его изначально отфильтрованым!
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
