Vb6 Msflexgrid'en Excel'e Veri Aktarmak By: sandstorm35 Date: March 25, 2013, 03:41:31 PM 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
