Как ускорить процес експорта даных в Word

[WXS]

Прога довольно большую чать даних переносит в Word (большие таблицы) как ускорить этот процес. процес переноса 115 строчек занял больше 2 минут, а их может быть несколько тисяч.
Програма тестировалась на целероне 950 мгц, а юзать её будут на машине послабее как быть?

[Antonariy]

Нужно видеть, где ты накосячил, вслепую может быть только один совет - RTFM. У меня генерация документа, описывающего пару десятков таблиц БД, занимала ту же пару минут. Правда на машине побыстрее. Кстати, генератор валяется где-то проектах, вроде даже с исходниками.

Короче, код в студию.

[alibek]

WXS, раз.


tag_warning

[jangle]

Прога довольно большую чать даних переносит в Word (большие таблицы) как ускорить этот процес. процес переноса 115 строчек занял больше 2 минут, а их может быть несколько тисяч.
Програма тестировалась на целероне 950 мгц, а юзать её будут на машине послабее как быть?

Перед запуском переноса, загрузи в память процесс winword.exe
Или хотябы просто запусти экземпляр Word`а. Увидишь, что процесс экспорта займет несколько секунд.

[Viper]

Ну без кода конечно сложно помочь, однако можно сказать что экспорт в Word в принципе штука небыстрая. Ускорить можно, установив невидимость Word, например.

[Antonariy]

Хм, странный совет. Как может происходить экспорт в ворд без запуска самого ворда? Все же происходит через его объектную модель.

[WXS]

Вот код, невидимость ворда ставлю при Class_Initialize()

Public Function printRecord(sINF As ClientData, room As String, Period As String, NumRec As Integer) As Byte
Dim TableWord As Word.Table
Dim lastTab As Integer, lastRow As Integer

On Error GoTo errLab:
DocWord.Select
With DocWord.Application.Selection
lastTab = .Tables.Count
Set TableWord = DocWord.Tables.Item(lastTab)
If TableWord.Columns.Count < 12 Then
DocWord.Close
printRecord = 1
Exit Function
End If
TableWord.Rows.Add
lastRow = TableWord.Rows.Count
TableWord.Rows(lastRow).Range.Font.Bold = False
TableWord.Cell(lastRow, 1).Range.Text = NumRec
TableWord.Cell(lastRow, 2).Range.Text = room
TableWord.Cell(lastRow, 3).Range.Text = Period
TableWord.Cell(lastRow, 4).Range.Text = sINF.F & " " & sINF.I & " " & sINF.O
TableWord.Cell(lastRow, 5).Range.Text = sINF.wasBorn
TableWord.Cell(lastRow, 6).Range.Text = sINF.LivePlace
TableWord.Cell(lastRow, 7).Range.Text = sINF.Document
TableWord.Cell(lastRow, .Range.Text = sINF.DocumentNumber
TableWord.Cell(lastRow, 9).Range.Text = sINF.DocumentGiven
TableWord.Cell(lastRow, 10).Range.Text = sINF.BorderCrossPlace & " " & sINF.DateCrossBorder
TableWord.Cell(lastRow, 11).Range.Text = sINF.LivePlace
TableWord.Cell(lastRow, 12).Range.Text = sINF.Nacional
.EndOf
End With
printRecord = 0
Exit Function
errLab:
MsgBox "Unexpected Error in obj WordExport Metod printRecord" & vbNewLine & Err.number & vbNewLine & Err.Description, vbCritical, softName
printRecord = 1
End Function

[Amed]

Заполнение таким методом действительно занимает много времени.
На форуме был пример заполнения документа кодом RTF, что на один-два порядка быстрее.

[Viper]

И это так тормозит?

З.Ы. Используй тэг для оформления кода в своем посте

[Amed]

!Viper!, подобное заполнение и форматирование двухстраничной таблицы на 9 столбцов занимало у меня до полуминуты.

[Viper]

!Viper!, подобное заполнение и форматирование двухстраничной таблицы на 9 столбцов занимало у меня до полуминуты.

, вроде у автора нет форматирования, только заполнение таблицы. Однако спорить не буду... Через RTF действительно на порядок быстрее. В свое время замучился создавать отчеты в Word с кучей графики и различными стилями форматирования и перешел на генерацию RTF-файла. Скорость возросла неимоверно...

З.Ы. Надо как-нить довести до ума и выложить кирпичик для работы с RTF файлами

[Andrey Fedorov]

Варианты:

1. InsertDatabase Method (я бы покопал его, если нужен именно Word с его объектной моделью).
2. XML-модель (Word при этом даром не нужен).
3. RTF-формат.
4. Нормальный генератор отчетов (тот же ActiveReports).