Private Sub Command1_Click()
On Error Resume Next
Dim a, i As Long
If Form1.MSFlexGrid1.Rows = 1 Then ‘ Eğer msflexgrid boşsa aktarma yapma
Title = “Hata !”
Msg = “Microsoft Excel’ e aktarılacak herhangi bir kayıt bulunamadı.”
Answer = MsgBox(Msg, vbCritical, Title)
Exit Sub
End If
Screen.MousePointer = 11
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

For a = 1 To Form1.MSFlexGrid1.Cols
For i = 1 To Form1.MSFlexGrid1.Rows
xlSheet.Cells(1, a).Font.Bold = True ‘ Excel’ e aktarılan kayıtların ilk sütunu başlıklar olduğu için karakterleri bold
xlSheet.Cells(i, a) = Form1.MSFlexGrid1.TextMatrix(i - 1, a - 1)
xlSheet.Cells(i, 3).NumberFormat = “#,##0.00″ ‘burada excel tarafna aktarılan kaydın formatını belirleyebilirsiniz
Next i
Next a

Screen.MousePointer = 0
xlBook.Application.Visible = True
End Sub