Bismillah,
saya punya yang export isi dari flexgrid ke excel, untuk implementasi ke
aplikasi km, itu tinggal butuh kreatifitas km..
copy ke module:
Public Function Export2Excel(frm As Form, myGrid As MSFlexGrid)
Dim intX As Integer
Dim intY As Integer
Dim intCountx As Integer
Dim intCounty As Integer
intX = myGrid.Cols
intY = myGrid.Rows
On Error Resume Next
Set ExlObject = CreateObject("excel.application")
ExlObject.Workbooks.Add
ExlObject.Visible = True
With ExlObject
.Cells(1, 3) = frm.Caption
.Cells(1, 3).Font.Name = "Arial"
.Cells(1, 3).Font.Bold = True
For intCounty = 0 To intY - 1
For intCountx = 0 To intX - 1
.Cells(intCounty + 3, intCountx + 1).value =
myGrid.TextMatrix(intCounty, intCountx)
Next intCountx
Next intCounty
.ActiveCell.Worksheet.Cells(intCounty + 3, intCountx + 1).AutoFormat
xlRangeAutoFormatList2
End With
Set ExlObject = Nothing
End Function
untuk memanggil fungsi ini:
Export2Excel Me, MyFlexGrid (MyFlexGrid = Nama Control MSFlexgrid, bisa berubah)
fungsi di atas sudah memformat tampilan datanya di excel.. pokoknya bagus deh
hasilnya..
salam,
Sulaiman
___________________________________________________________________________
Nama baru untuk Anda!
Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail.
Cepat sebelum diambil orang lain!
http://mail.promotions.yahoo.com/newdomains/id/
[Non-text portions of this message have been removed]
