Power Builder - Importar datos de excel a power

Hola a todos buenas tardes primera mente bueno muchachos y muchachas del foro mi pregunta es la siguiente:

tengo un programa que me bota reportes a excel y bueno yo quisiera que esos reportes de excel llevarlos a un dw a powewr builder y manejarlos ahi, no se si me puedan ayudar gracias.

Podes ver en la ayuda de Power Builder el comando "ImportFile method (DataWindows)", ahi tenes tambien ejemplos de como importar archivos.

Saludos,

Guillermo

Hola
Te propongo este scrip.
En este caso tambien te copio para que tengas idea

Se toma Un Excel, de lo modifica, se graba otrro
y a ese es importado por la dw

Debes tener en tu dw, los mismos campos que
imnportaras de el xls.




// Importar de Excel a Una Dw
OLEObject excel
Integer li_RetValue, li_rtn
Boolean lb_sheet_rtn
Boolean lb_exist , lb_exist_base
Long ll_cnt
Long li_rc , ll_rc
String ls_path_excel
String ls_new_excel

// Genero en Base al ExCel de Air uno Nuevo
ls_new_excel = Ruta+"\Promos\Lista.xls"
ls_path_excel = Ruta+"\Promos\Base.xls"

lb_exist_base = FileExists(ls_path_excel)

If lb_exist_base = False Then
MessageBox("Importación","" + "No se encuentra la Base : " + ls_path_excel)
else

// Chek de Existencia para Borrarlo
lb_exist = FileExists(ls_new_excel)
IF lb_exist Then FileDelete(ls_new_excel)

st_1.Text ="Creando Conección a Excel"

// Crear Objeto
Excel = create OLEObject

//Conectar a Excel
li_rtn = excel.ConnectToNewObject("excel.application")
IF li_rtn <> 0 THEN
MessageBox('Excel error','No puede conectarse a Excel')
DESTROY excel
RETURN 0
END IF


//Abrir excel
excel.WorkBooks.Open( ls_path_excel )
excel.Application.Visible = False
excel.windowstate = 2 // Estados 1 : Normal, 2 : Minimize, 3 : Maximize
//Seleccionar un rango y eliminarlo
st_1.Text ="Creando Nuevo Excel"
lb_sheet_rtn = excel.worksheets(1).Activate
excel.Worksheets(1).Range("A1:N10").Delete
excel.application.workbooks(1).saveas(ls_new_excel,-4143)
//Seleccionar todo lo activo y copiarlo al CLip
excel.ActiveCell.CurrentRegion.Select()
excel.Selection.Copy()
st_1.Text ="Importando Excel"
//Importar desde el Clipboard
ll_rc = dw_articulos.ImportClipBoard (1)
ClipBoard('')
excel.Application.Quit
excel.disconnectobject()
DESTROY excel

Saludos desde Argentina

Plis

Deseo aclarles que la funcion ImporFile()
es solo para

Text!
CSV!
XML!
DBase2!
DBase3!

Saludos

Hola vieras que tengo una duda con el código es que soy nueva en power builder, estoy aprendiendo.

Mira cuando importas desde el clipboard creo que le pasas lo que tiene el datawindows, pero ahí me da un error porque yo pongo midatawindows.importclipboard(1) pero no se como hago para que me reconozca midatawindows creado...

Podrías ayudarme, por fa!!

puedes utilizar la funcion ImportFile dentro del DW la sitaxis seria algo asi:

dw_ejemplo.importfile(ruta_del_archivo)