Kalo Delpihi bisa pake komponen Export to Excel...
http://jamesbond.xcode.or.id/files/tools/MyExport2Excel.rar
Kalo VB, anda bisa Googling banyak jg koq... atau bisa coba yg dibawah ini :
Salam,
N4th4n
========
Private Sub Command1_Click()
Dim app As Application
Dim wbk As Workbook
Dim sheet As Worksheet
Set app = Excel.Application
Set wbk = app.Workbooks.Add
Set sheet = wbk.Worksheets(1)
sheet.Cells(5, 5) = "Kode"
sheet.Cells(5, 6) = "Nama Hardware"
sheet.Range("E5:F5").Font.Bold = True
sheet.Range("E5:F5").Borders.LineStyle =
xlContinuous
ActiveWindow.DisplayGridlines = False
With
RstHardwareExcel
.MoveFirst
n = 5
For i = 1 To .RecordCount
sheet.Cells(n + i, 5) = .Fields(0)
sheet.Cells(n + i, 6) = .Fields(1)
sheet.Range("E" & n+i & ":F"
& n+i).Borders.LineStyle=xlContinuous
.MoveNext
Next i
End With
sheet.Range("E5").EntireColumn.AutoFit
sheet.Range("F5").EntireColumn.AutoFit
Me.CommonDialog1.DialogTitle = "File
Name"
Me.CommonDialog1.Filter = "File Excel|*.xls"
Me.CommonDialog1.ShowSave
wbk.SaveAs Me.CommonDialog1.FileName
wbk.Close
app.Quit
Set sheet = Nothing
Set wbk = Nothing
Set app = Nothing
End Sub
Private Sub Form_Load()
BukaKoneksi
BukaHardwareExcel
End Sub
Private Sub Form_Unload(Cancel As
Integer)
TutupHardwareExcel
TutupKoneksi
End Sub
*)Untuk koneksi Database Access menggunakan Modul, berikut dibawah ini
adalah isi dari Modul yang dibuat di VB
Public Koneksi As ADODB.Connection
Public RstHardwareExcel As ADODB.Recordset
Sub
BukaKoneksi()
Set Koneksi =
CreateObject("ADODB.Connection")
Koneksi.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.Path &
"\data.mdb"
End Sub
Sub BukaHardwareExcel()
Set RstHardwareExcel =
CreateObject("ADODB.RecordSet")
RstHardwareExcel.Open "Hardware", Koneksi, adOpenStatic,adLockOptimistic
End
Sub
Sub TutupKoneksi()
Koneksi.Close
Set Koneksi = Nothing
End Sub
________________________________
From: SUKRON SAMOSIR <babiat_n...@yahoo.co.id>
To: yogyafree-perjuangan@yahoogroups.com
Sent: Mon, April 19, 2010 8:38:17 AM
Subject: Bls: [YF] [JAWAB] Cara buat laporan excel dengan vb
laporannya dalam bentuk apa nih??
About Me :
http://babiatnapa. blogspot. com/
http://babiat. multiply. com/
http://profiles. friendster. com/30759605
http://www.facebook .com/people/ Sukron-Samosir/ 1398614688
--- Pada Ming, 18/4/10, Gopy Bermana <gopy_punya24@ yahoo.co. id> menulis:
>Dari: Gopy Bermana <gopy_punya24@ yahoo.co. id>
>Judul: [YF] [TANYA] Cara buat laporan excel dengan vb
>Kepada: yogyafree-perjuanga n...@yahoogroups. com
>Tanggal: Minggu, 18 April, 2010, 4:58 PM
>
>
>>
>
>
>
> >
>
>
>>
>
>>
>
>
>
>
>>
>Dear All..
>
>Mohon bantuannya ya..
>Gimana caranya mengkonvert laporan dari visual basic 6.0 menjadi
>file excel..
>Thank ya…
>
>Regards
>wassalam
