Export Data di MSFlexgrid ke MS Excel 2003

Baca Juga

Maaf Sobat Baru sempet posting malam ini, baru gak fit soale. Malam ini saya dapat code buat export data dari MSFlexGrid ke Worksheet Microsoft Excel Xp/2003 (Office 11).Sebelumnya jangan lupa menambahkan component : Microsoft Flexgrid Control 6.0 dan references : Microsoft Excel 11.0 Object Library.

--->>>>

CODE SET MSFLEXGRID
Tambahkan ke dalam Form sebuah MsFlexgrid dan tuliskan code dibawah ini pada jendela Coding anda!

Private Sub Form_Load()
On Error Resume Next
    With MSFlexGrid1
        .Rows = 125
        .Cols = 9
      
        For i = 0 To .Rows - 1
            For j = 0 To .Cols - 1
                .TextMatrix(i, j) = (i + 1) * (j + 1)
            Next j
        Next i
      
    End With
End Sub

code diatas adalah contoh pengisian data ke dalam MSFlexgrid.

CODE EXPORT KE EXCEL
Tambahkan sebuah Module dan COPAS saja code berikut :

Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid, _
  TheRows As Integer, TheCols As Integer, _
  Optional GridStyle As Integer = 1, Optional WorkSheetName _
  As String)
  
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer
Dim intCol As Integer

If  Not IsObject(objXL) Then
    MsgBox "You need Microsoft Excel to use this function", _
       vbExclamation, "Print to Excel"
    Exit Sub
End If

On Error Resume Next

' open Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet

' name the worksheet
With wsXL
    If Not WorkSheetName = "" Then
        .Name = WorkSheetName
    End If
End With
  
' fill worksheet
For intRow = 1 To TheRows
    For intCol = 1 To TheCols
        With TheFlexgrid
            wsXL.Cells(intRow, intCol).Value = _
               .TextMatrix(intRow - 1, intCol - 1) & " "
        End With
    Next
Next

' format the look
For intCol = 1 To TheCols
    wsXL.Columns(intCol).AutoFit
    'wsXL.Columns(intCol).AutoFormat (1)
    wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, _
         1) & TheRows).AutoFormat GridStyle
Next

End Sub

Kembali ke Form dan tambahkan sebuah command kemudian tuliskan code dibawah ini :

Private Sub Command1_Click()
FlexGrid_To_Excel MSFlexGrid1, MSFlexGrid1.Rows, MSFlexGrid1.Cols, 1, "Data dari Ms flexgrid"
End Sub

code diatas adalah code untuk memanggil sub export ke excel di module yang telah kita buat sebelumnya.
Kalau sudah selesai, segera dech dijalankan!!! kalau beruntung pasti berhasil, atau kalau masih takut ya download saja sample projectnya disini

Link Download baru

DOWNLOAD