Экспорт из DataGrid в Excel - VB
Формулировка задачи:
Подскажите пожалуйста, как можно организовать автоматический вывод информации из DataGrid в EXCEL? А то в Интернете нет аодходящей информации
Решение задачи: «Экспорт из DataGrid в Excel»
textual
Листинг программы
Private Sub Комманда2_Click() Dim Ex As Object Dim R, C, j, M(), Z() C = grdDataGrid.Columns.Count R = 0 Do ReDim Preserve M(C - 1, R) DoEvents grdDataGrid.Row = R For j = 0 To C - 1 M(j, R) = grdDataGrid.Columns(j) Next j R = R + 1 Loop While grdDataGrid.Columns(1) <> Empty ReDim Z(UBound(M, 2), UBound(M)) For R = 1 To UBound(M, 2) For C = 0 To UBound(M) Z(R, C) = M(C, R) Next: Next Set Ex = CreateObject("Excel.Application") Ex.Workbooks.Open App.Path & "\x.xls" Ex.Visible = True With Ex.sheets(1) .range(.cells(1, 1), .cells(UBound(M, 2), UBound(M) + 1)) = Z End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д