| Вопрос: Экспорт в Excel из DataGrid | Добавлено: 23.11.13 16:33 |
Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 |
|
Народ помогите, что то не пойму я почему экспорт в Excel из DataGrid переносится тольк видимая часть грида, хотя грид и прокручивается и листается в низ
Private Sub Command2_Click()
Dim Ex As Object Dim r, c, j c = TDBGrid1.Columns.Count Set Ex = CreateObject("Excel.Application") Ex.Workbooks.Open App.Path & "\x.xls" Ex.Visible = True With Ex.Sheets(1) r = 0 Do DoEvents TDBGrid1.Row = r For j = 0 To c - 1 .Cells(r + 1, j + 1) = TDBGrid1.Columns(j) Next j r = r + 1 Loop While TDBGrid1.Columns(1) <> Empty End With End Sub |
| Ответы | Всего ответов: 0 |
Страница: