ini aku ada contoh source,pake component VSFlexGrid
Private Sub CmdExport_Click()
Dim i As Long
Dim n As Long
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
If Err.Number Then MsgBox "Can't open excel"
End If
objExcel.Visible = True
Set objWorkBook = objExcel.Workbooks.Add
AppActivate "Flexgrid to Excel Sheet"
For i = 0 To intRow
GridHIS.Row = i
For n = 0 To intCol - 1
GridHIS.Col = n
objWorkBook.ActiveSheet.Cells(i + 1, n + 1).Value = GridHIS.Text
Next
Next
End Sub
----- Original Message ----
From: nine_2nd <[EMAIL PROTECTED]>
To: [email protected]
Sent: Saturday, January 6, 2007 1:07:17 PM
Subject: [indoprog-vb] Cara menggabungkan Vb dengan excel
Dear all,
Apakah ada yang tahu bagaimana cara membuat hasil print dari vb dalam
format excel???
Saya mempunyai kendala dalam pembuatan table..
Terima kasih.
Regards,
Hendra
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
