convert flexgrid ke excel di Visual Basic 6

Menulis untuk mengingat.

Selamat Sore gaess. Sore ini saya mau mencatat source code lama saya tentang convert flexgrid ke excel dengan Visual basic 6.

Pertama-tama kamu harus memasukkan komponen excel ke reference. FYI, saya menggunakan office 2007. Nama komponennya berbeda kalau kau menggunakan versi office yang lain, tetapi cara memasukkannya sama.

1. Buka Visual basic 6  
2. Klik Project->refferences
3. Klik Browse, rubah FileofType pilih ALL FILES(*.*)
   kemudian arahkan ke folder "C:\Program Files(x86)\Microsoft Offices\Office12\EXCEL.EXE"
4. Kamu akan melihat "Microsoft Excel 12.0 Object Library" di references

Sekarang kita siapkan bahan-bahannya:
Buat Form baru, lalu masukkan object berikut:

1. Flexgrid, name: fgdata
2. Command Button, name: cmdConvertExcell 
3. Rangkai bahan-bahan tersebut seperti dibawah ini:

  4. Masukkan Data Dummies saat form load seperti berikut ini:

      Private Sub Form_Load()
        With fgdata
           .Rows = 50
        .   Cols = 2
            For i = 1 To fgdata.Rows - 1
                  fgdata.TextMatrix(i, 1) = i
             Next i
           End With
      End Sub
 5. Masukkan Mantra pengkopi flexgrid ke Excel seperti dibawah ini