Динамический массив

[Akupaka]

И вообще... нам-то собственно чего... автор темы вообще молчит

флудерам это не помеха!


расскажу один вариант решения проблемы с производительностью передачи данных в эксель.
пример не мой! его мне поведал товарищ dobozy.
суть заключается в том, что он формирует данные в потоке в файле на диске, а потом производит импорт в эксель как csv (на сколько мне помниться), единственное, что я не помню экселевского метода, который это делает.
при таком фокусе, данные загружаются просто моментально!

 

[dobozy]

Так как Akupaka упомянул мой метод, то я приведу кусок кода...
Можно тут конечно визкально облегчить с помощью With, но тема не о том

	Sub LoadDataByOLE
Forall f In m_temp_files.TempFiles
Call m_app_handle.Worksheets(Cint(Listtag(f))).Select
Call m_app_handle.Worksheets(Cint(Listtag(f))).QueryTables.Add("TEXT;" + f.FilePath, m_app_handle.Range(m_export_profile.DataImportCell))
m_app_handle.Worksheets(Cint(Listtag(f))).QueryTables(1).TextFileTextQualifier = xlTextQualifierNone
m_app_handle.Worksheets(Cint(Listtag(f))).QueryTables(1).TextFileColumnDataTypes = m_export_profile.ExportItemsDataTypes
Call m_app_handle.Worksheets(Cint(Listtag(f))).QueryTables(1).Refresh
Call m_app_handle.Worksheets(Cint(Listtag(f))).QueryTables(1).Delete
End Forall
End Sub

 

[DEN888]

dobozy , Akupaka

спасибо, тоже вариант.

....

Думаю, что тему можно закрывать.

Всем большое спасибо.