Re: [Programmer-VB] export to excel

Mon, 06 Mar 2006 20:22:46 -0800

terimakasih banyak bung sistyo atas saran & solusinya. sekarang sudah bisa & lancar.
sekali lagi terimakasih banyak
 
pupunk
 
Pada tanggal 3/7/06, Sistyo Alfan Tribowo <[EMAIL PROTECTED]> menulis:

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...

 

From: [email protected] [mailto:[email protected]] On Behalf Of pupunk
Sent: 07 March 2006 09:38
To: [email protected]
Subject: [Programmer-VB] export to excel

 

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

YAHOO! GROUPS LINKS





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