Private Sub excel_click()
Dim n As Integer, n1 As Integer
Dim i As Integer
Dim Dat  As String, ret As String, Er As String
Dim Rut As Integer
Dim objExcel As Excel.Application 'Это работает когда подклчен эксель

Set objExcel = New Excel.Application

On Error GoTo Error
objExcel.Workbooks.Open ("D:\dopsal.xls")

For i =  0  To VSFlexGrid1.Rows -  1  'VSFlexGrid1 - имя flex-грида

'For n = 1 To 9
'objExcel.Cells(n1, n).value = VSFlexGrid1.Cell(flexcpText, i, n - 1)
'Next n

' можно сделать так
VSFlexGrid1.Row  = i
   for n =  0  to VSFlexGrid1.Cols -  1 
      VSFlexGrid1.Col = n
      objExcel.Cells(i+ 1 , n+ 1 ).Value = VSFlexGrid1.Text
   Next n
Next i

 objExcel.Visible = True
 Set objExcel = Nothing
 
 Exit Sub

Error:
Set objExcel = Nothing
MsgBox ("Error " & Err.Description)
End Sub