Power Builder - Guardar datos del excel al datawindow

   
Vista:

Guardar datos del excel al datawindow

Publicado por Denys Alberto (104 intervenciones) el 03/10/2008 22:34:35
Hola a todos y pues nuevamente realizando preguntas..en este caso les agradezco por anticipado por sus posibles respuestas....bueno la pregunta es la siguiente...como hago para realizar el traslado de datos que estan en el excel a un datawindow..es posible realizar ello..bueno espero que me contesten un saludo a todos desde Puerto Maldonado-Madre de Dios Perú.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Guardar datos del excel al datawindow

Publicado por Jorge (900 intervenciones) el 06/10/2008 20:30:30
Hola

Debes tener la dw que recibira los datos exactamente igual que
el excel que importaras es decir las mismas columnas.

OLEObject excel
Integer li_RetValue, li_rtn
Boolean lb_sheet_rtn
Long ll_cnt

excel = create OLEObject

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

excel.WorkBooks.Open( "c:miarchivo.xls" )
excel.Application.Visible = false
excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize

// Si se desea asignarle un Nombre -- excel.Worksheets( 'Gastos' )
lb_sheet_rtn = excel.worksheets(2).Activate
excel.Worksheets(2).Range("A1:E5000").Copy // copiar al clipboard

//Copiar desde la segunda fila de Excel

ll_cnt = dw_1.importclipboard(2)
IF ll_cnt <= 1 THEN
Messagebox("Info", "No se encontró")
END IF

excel.Worksheets(2).Range("A10000:A10000").Copy //reset clipboard
excel.Application.Quit
excel.DisConnectObject()
DESTROY excel

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Guardar datos del excel al datawindow

Publicado por lorihen (19 intervenciones) el 07/10/2008 04:53:25
hola cheka mi blog alli deje un peqeuño ejemplo decomo enviar del excel a un dw saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar