Gerald
string ls_pathname, ls_filename
long ll_rc
oleobject loo_excel
IF GetFileOpenName ( "Open File", ls_pathname, ls_filename, "XLS", "Excel Files
(*.xls),*.xls" ) < 1 THEN Return
loo_excel = CREATE OLEObject
loo_excel.ConnectToNewObject( "excel.application" )
loo_excel.visible = false
loo_excel.workbooks.open( ls_pathname )
loo_excel.ActiveCell.CurrentRegion.Select()
loo_excel.Selection.Copy()
ll_rc = dw_1.ImportClipBoard ( 2 )
ClipBoard('')
loo_excel.workbooks.close()
loo_excel.disconnectobject()
DESTROY loo_excel
On Wed, 19 Dec 2001 15:49:54 -0500,
in powersoft.public.powerbuilder.general
Bruce Armstrong [TeamSybase]
http://www.needhim.org
---== Posted via the PFCGuide Web Newsreader ==---
http://www.pfcguide.com/_newsgroups/group_list.asp
--
Terry Dykstra (TeamSybase)
Please state PB / OS / DB versions in your post.
MySybase http://my.sybase.com/mysybase
Search Deja: http://www.pfcguide.com/_newsgroups/search.asp
"Bruce Armstrong [TeamSybase]" <NOCANSPAM_br...@teamsybase.com>
wrote in message news:AycctUb...@forums.sybase.com...