База данных и Excel

[Ramzes]

Собсно задача, написали наша контора прогу заказчику, вообщем там в этой проге есть ф-ция импорта данных в Excel, делаю примерно так:

Код: Выделить всё


Dim Dreader As System.Data.OleDb.OleDbDataReader
...
q=0
While Dreader.read
q=q+1
xls.range("A" & q).value=Dreader.item(0)
End While


Но это очень медленно работает...надо чтобы быстрее данные в эксэль ложило...


Хелп плз...а то меня с работы выгонят

[Sebas]

А зачем Ридер?!?!?! Загоняй в DataTable

[Ramzes]

А дальше???

[val]

А дальше тем же путём

For i = 0 To objDataTable.Rows.Count - 1

Вот только не знаю на сколько это будет быстрее.

[val]

Посмотри вот здесь. Может найдешь чё
[url]
http://support.microsoft.com/default.as ... -US;306022
[/url]

[Ramzes]

val
Ccылочку конечно гляну, но вот совет цыклом мне не совсем подходит...мне надо все данные сразу вставить

[val]

В ссылочку то загляни. Там есть много вариантов

Например вот это

Код: Выделить всё

'Create a new workbook in Excel.
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        oSheet = oBook.Worksheets(1)

        'Create the QueryTable object.
        Dim oQryTable As Object
        oQryTable = oSheet.QueryTables.Add( _
        "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
            sNorthwind & ";", oSheet.Range("A1"), _
            "Select * from Orders")
        oQryTable.RefreshStyle = 2 ' xlInsertEntireRows = 2
        oQryTable.Refresh(False)

        'Save the workbook and quit Excel.
        oBook.SaveAs(sSampleFolder & "Book4.xls")
        oQryTable = Nothing
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing


[lord0n]

эта штука сносит базу в эксель за несколько секунд

ExOb.Range("a1").copyfromrecordset RS

rs - рекордсет

[Ramzes]

Всем спасибо
lord0n
Твой вариант мне вчера и подсказали на работе Самый рульный