| Вопрос: Export данных из DataGrid в Word, Exel | Добавлено: 19.05.07 15:25 |
Автор вопроса:  alexfor
|
| Привет всем!Проект на vb. В грид подключается рекордсет через денв, АДО. Нужно реально экспортровать данные из грида на форме в приложения Word, Exel независимо а каком состоянии грид(весь рекордсет или фильтр). Заранее всем спасибо. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 19.05.07 16:53 |
|
например, так.
Option Explicit Dim mSWRD As Word.Application Dim msDOC As Word.Document Dim msRNG As Word.Range Dim rcGRD As ADODB.Recordset Private Sub Command1_Click() Set mSWRD = New Word.Application Set msDOC = mSWRD.Documents.Add Set msRNG = msDOC.Range(0, 0) Set rcGRD = CallByName(DataGrid1.DataSource, "Recordset", VbGet) rcGRD.MoveFirst msRNG = rcGRD.GetString() msRNG.ConvertToTable mSWRD.Visible = True End Sub а уж Excel-то чего проще. |
||
|
Номер ответа: 2 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #2 | Добавлено: 19.05.07 18:17 |
|
Dim msEXL As New Excel.Application msEXL.Workbooks.Add().Sheets(1).Range("a1"  .CopyFromRecordset rcGRD
|
||
Страница: 1 |