coba yang bagian atas dirubah sedikit :
Dim xlapp
As New excel.Application
Dim xlwb As excel.Workbook
Dim xlws As excel.Worksheet
'Set xlapp = New excel.Application --> kalau dim nya udah
pakai new, gak perlu set lagi mas. buang2 energy :)
Set xlwb = xlapp.Workbooks.Add
Set xlws = xlwb.Worksheets(1)
xlapp.Visible = True
xlws.Activate
Set rs_employee = New ADODB.Recordset
'dst...
sy ada sedikit masalah dengan proses export data ke excel. sebenarnya
utk proses exportnya sih tidak ada masalah tetapi ketika excel tsb sy tutup
(close) dan ketika sy ingin mengexport lagi ternyata tidak bisa, tetapi kalo
prog aplikasi sy tutup du lu baru mau. mohon pencerahannya ya....
Private
Sub export()
Dim xlapp As New excel.Application
Dim xlwb As excel.Workbook
Dim xlws As excel.Worksheet
Set xlapp
= New excel.Application
xlapp.Visible = True
Set xlwb = excel.Workbooks.Add
Set xlws = excel.Worksheets.Add
Set
rs_employee = New ADODB.Recordset
SQL = "select employee.employeecode,employee.employeeID,employee.employeefirstname,employee.employeemiddlename,employee.employeelastname,department.departmentname,employee.employeeaddress
,employee.employeetitle,employee.employeegender,employee.employeebirthdate
" + _
"from department INNER JOIN employee ON
department.departmentcode=employee.departmentcode order by employeecode
asc"
rs_employee.Open SQL, cnn, adOpenStatic, adLockOptimistic
xlws.Name
= "Data Karyawan"
xlws.Cells(1, 1) = "Data Karyawan PT.Liku-liku"
xlws.Cells(2, 1) = Now
xlws.Range("A6").CopyFromRecordset
rs_employee
Set xlws
= Nothing
Set xlwb = Nothing
Set xlapp = Nothing
End Sub
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
YAHOO! GROUPS LINKS
