Power Builder - ayda urgente dato excel

   
Vista:

ayda urgente dato excel

Publicado por Barrunto (50 intervenciones) el 25/10/2010 21:17:06
Como hago para pescar un dato desde excel e importar a power builder.

ejemplo en la celda A1 de excel tengo almacenado la fecha. 01/01/2010

solo necesito guardar en una variable que almacene el valor de esta fecha
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:ayda urgente dato excel

Publicado por JeinnerH (638 intervenciones) el 25/10/2010 21:46:36
Prueba con algo como esto a ver si te funciona.

ole1=CREATE OLEObject
li_estatus=ole1.ConnectToNewObject("Excel.Application")

oleChild=CREATE OLEObject
rs=oleChild.SetAutomationPointer(ole1)

If (li_estatus = 0) Then
oleChild.workbooks.Open(as_nom_archivo, linemode!) //Abrir el archivo
oleChild.Sheets.Item(1).Activate //Selecciomar la hoja 1 del archivo, que contiene los valores.

ldt_fecha=Date(oleChild.cells(1, 1).value)
oleChild.Quit()
oleChild.DisConnectObject()
End If
DESTROY oleChild
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:ayda urgente dato excel

Publicado por JeinnerH (638 intervenciones) el 25/10/2010 21:47:12
Prueba con algo como esto a ver si te funciona.

ole1=CREATE OLEObject
li_estatus=ole1.ConnectToNewObject("Excel.Application")

oleChild=CREATE OLEObject
li_estatus=oleChild.SetAutomationPointer(ole1)

If (li_estatus = 0) Then
oleChild.workbooks.Open(as_nom_archivo, linemode!) //Abrir el archivo
oleChild.Sheets.Item(1).Activate //Selecciomar la hoja 1 del archivo, que contiene los valores.

ldt_fecha=Date(oleChild.cells(1, 1).value)
oleChild.Quit()
oleChild.DisConnectObject()
End If
DESTROY oleChild
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