Долният код трябва да копира грида в ексел ама се скъса да ми дава
Automation.error някои може ли да ми каже къде е проблема
Private Sub Grid2Excel(gridName As MSHFlexGrid)
Dim exc As Excel.Application
Set exc = CreateObject("Excel.Application")
exc.Workbooks.Add
exc.Visible = True
With gridName
For i = 0 To .Rows - 1
For j = 1 To .Cols - 1
exc.Cells(i + 1, j) = .TextMatrix(i, j)
exc.Cells(i + 1, j).Borders.LineStyle = xlDouble
exc.Cells(i + 1, j).Borders.Color = vbBlue
Next j
Next i
exc.Range("A1:" & Chr(65 + j) & 1).Font.Bold = True
exc.Columns("$A:" & "$" & Chr(65 + j)).AutoFit
End With
End Sub