[Programmer-VB] Transfer Ke Excel

Fri, 27 Jan 2006 01:04:26 -0800

Title: Transfer Ke Excel

Saya ada masalah problem nih Boss,

Saya sedang bikin aplikasi, dimana aplikasi ini akan mentransfer data dari suatu database ke file excel tertentu yang sedah ditentukan formatnya. Katakan file excelnya ada di App.Path dengan nama “Report.xls”. Datanya akan ditaruh di Sheet “Transfer”. Saya sudah tambahkan reference Microsoft Excel 9.0 Object Library ke project saya.

Saya bikin coding sbb:

Sub Transfer_To_Excel()

Dim ExcelApp as Excel.Application

Dim ExcelWbk as Excel.Workbook

Dim ExcelWs as Excel.Worksheet

On Error GoTo Alternative
=On error ini nantinya dipakai kalau excel sudah terbuka, set excel=CreateObject akan diubah menjadi set Excel=GetObject

Set Excel=CreateObject(“Excel.Application”)

Continue:

Set ExcelWbk = ExcelApp.Workbooks.Open(App.Path & "\Report.xls")

Set ExcelWs =Excelapp.Worksheets("Transfer")

=Sampai disini, saya debug nggak ada masalah problem. Saya Ctr-Alt-Del juga terlihat Excelnya terbuka

=Lalu saya kasihkan nilai tertentu pada cell tertentu di file excel tersebut sbb:

ExcelWs.Range(“A2”)=”Department Performace Report “

=Nah pada saat ini muncul error “Automation Error”

Kenapa Yah?

Untuk informasi, saya pakai Windows 98. Excelnya, Microsoft Office 2000. OS ngaruh nggak sih? Saya pernah bikin yang sama tapi pakai Win XP dan Office XP nggak ada masalah problem?

 

Tengkiu dan Gong Xi Fat Choi

FARID



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