Private Sub Комманда1_Click()
Dim Ex As Object
Dim R, C, j
C = grdDataGrid.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
            grdDataGrid.Row = R
                For j = 0 To C - 1
                 .cells(R + 1, j + 1) = grdDataGrid.Columns(j)
                Next j
            R = R + 1
        Loop While grdDataGrid.Columns(1) <> Empty
End With
 
End Sub