dear programmers,
kali ini aku coba share gimana koding utk mentransfer data yg ada di flexgrid
ke dalam file excel yg paling sederhana.
ok guys, semoga kode dibawah ini bisa bermanfaat. dan spt biasa ;-)
silahkan copy paste kode ini.
'--jgn lupa utk mereference object excel
Private Sub Flex2Excel()
Dim appXls As Excel.Application
Dim wbkXls As Excel.Workbook
Set appXls = New Excel.Application
Set wbkXls = appXls.Workbooks.Add
Clipboard.Clear '--membersihkan object yg ada di clipboard
'--spy bisa menampung data dari flexgrid
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.ColSel = .Cols - 1 '--Blok semua kolom
MSFlexGrid1.RowSel = .Rows - 1 '--blok semua baris
Clipboard.SetText .Clip '--copy semua teks yg diblok ke clipboard
appXls.ActiveWorkbook.ActiveSheet.Range("A1").Select '--ini utk
meletakkan teks yg dicopy
pd range A1
appXls.ActiveWorkbook.ActiveSheet.Paste '--paste semua isi
yg ada di
clipboard ke range A1
wbkXls.SaveAs "C:\testing.xls" '--simpan hasilnya ke file excel
appXls.Visible = True '--setelah itu buka aplikasi excel
MSFlexGrid1.ColSel = 0
MSFlexGrid1.RowSel = 0
End Sub
keterangan : kode diatas logikanya adalah memanfaatkan clipboard utk mengcopy
semua teks yg ada di flexgrid dgn cara memblok kolom dan barisnya.
menurut para ahli programing cara ini diklaim lebih cepat dari
cara apapun
karena cuma "copy paste" kode aja hihihihihihi.... jadi bukan
hasil programnya
yg cepat tapi ngetik kodenya. just kidding
salam
Lilis Suryani ArjaMaya
____________________________________________________________________________________
Got a little couch potato?
Check out fun summer activities for kids.
http://search.yahoo.com/search?fr=oni_on_mail&p=summer+activities+for+kids&cs=bz
