[Programmer-VB] export to excel

Mon, 06 Mar 2006 18:37:52 -0800

kawans,
 
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 dulu 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
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke