arkadaşlar yardım ederseniz sevinirim msflexgrid de çıkan yazıyı excel e aktarıyorum fakat her seferinde farklı sayfa açılıyor ben belirli bir sayfaya aktarmak istiyorum bunu nasıl yaparım aşagıdaki koda örnek yazarmısınız şimdiden herkese teşekkür ederim.
 
Private Sub MSFlexGrid1_Click()

On Error Resume Next
Dim a, i As Long
If MSFlexGrid1.rows = 1 Then ' Eğer msflexgrid boşsa aktarma yapma
Exit Sub
End If
Screen.MousePointer = 11
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
For a = 1 To MSFlexGrid1.cols
For i = 1 To 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) = MSFlexGrid1.TextMatrix(i - 1, a - 1)
xlSheet.cells(i, 3).NumberFormat = "" 'burada excel tarafna aktarılan kaydın formatını belirleyebilirsiniz
Next i
Next a

Screen.MousePointer = 11
xlBook.Application.Visible = True

End Sub