Export Data di MSFlexgrid ke MS Excel 2003

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Export Data di MSFlexgrid ke MS Excel 2003, Diterbitkan oleh scodeaplikasi pada Senin, 08 Juni 2009. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.