ok mas iwan... thanks alot atas info nya... akan saya coba..
regards,-
rio
----- Original Message -----
From: "Iwan" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 14, 2004 2:04 PM
Subject: Re: [indopb] *xls file
> I. Buat satu datawindow dengan datasource external
> Datawindow ini nanti akan menampung data dari excel file
>
> II. Buat menempatkan excel ke datawindow yg baru dibuat coba script ini:
>
> OLEObject excel
> Integer li_RetValue, li_rtn
> Boolean lb_sheet_rtn
> Long ll_cnt
> integer loops, i,fh, ret,result
> long flen, bytes_read, new_pos
> boolean tol
> blob b,lb_object,lblob_foto
> string txtname1, named,namafile,id
> string defext = "*.xls"
> string Filter = "Microsoft Excel (*.xls),*.xls"
> int li_rc, num_same_id,same_id,fhandle,baris
>
> dw_1.reset()
> if GetFileOpenName("Select file to open", ls_path, ls_filename, defext,
> filter) = 1 then
> if ls_filename = "" then return
>
>
> excel = create OLEObject
>
> li_rtn = excel.ConnectToNewObject("excel.application")
> IF li_rtn <> 0 THEN
> MessageBox('Excel error','can not run Excel Program')
> DESTROY excel
> RETURN 0
> END IF
>
> excel.WorkBooks.Open(ls_path)
> excel.Application.Visible = false
> excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize
>
> lb_sheet_rtn = excel.worksheets(1).Activate
> excel.Worksheets(1).Range("A2:E5000").Copy // copy to clipboard
> ll_cnt = dw_1.importclipboard()
>
> IF ll_cnt <= 1 THEN
> Messagebox("Inf", "Could not find .")
> END IF
>
> excel.Worksheets(1).Range("A10000:A10000").Copy file://reset clipboard
> excel.Application.Quit
> excel.DisConnectObject()
> DESTROY excel
> end if
>
>
> III. Klo mo copy per column, tinggal diatur baris syntax terutama range
nya,
> misalnya kolom A
> excel.Worksheets(1).Range("A2:A5000").Copy
> IV. Semoga berhasil
>
>
> Iwan Noviarsyah
> Software Engineer
> PT. Bamas Telematika Mandiri
> 62-21-5265236
> 08129768174
> [EMAIL PROTECTED]
> -------Original Message-------
>
> From: [EMAIL PROTECTED]
> Date: 09/14/04 09:11:23
> To: [EMAIL PROTECTED]
> Subject: [indopb] *xls file
>
> DH,
>
> Saya mau tanya...kalo mau baca file bertipe .xls, cara nya pake apa ya ?
> maksud saya baca per-column di xls nya...:)
>
> mohon bantuan nya..
>
> thanx
>
> regards,-
> Rio
>
>
> [Non-text portions of this message have been removed]
>
>
>
> IndoPB - Indonesia PB User Group
> To Post a message, send it to: [EMAIL PROTECTED]
> To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
>
>
> Yahoo! Groups Sponsor
> ADVERTISEMENT
>
>
>
>
>
>
> Yahoo! Groups Links
>
> To visit your group on the web, go to:
> http://groups.yahoo.com/group/indopb/
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
>
> IndoPB - Indonesia PB User Group
> To Post a message, send it to: [EMAIL PROTECTED]
> To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/NhFolB/TM
--------------------------------------------------------------------~->
IndoPB - Indonesia PB User Group
To Post a message, send it to: [EMAIL PROTECTED]
To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
