Importar Excel a DB2 via power
Publicado por Pascual Yovera (23 intervenciones) el 29/08/2007 04:17:54
hola a todos. mi consulta es la sgte.
estoy importando datos de un excel de una hoja especifica
con el codigo que les muestro, pero cuando le doy importar me copia solo el campo de fecha, y no los campos con valores numericos ni textos....
debo establecer un formato en el excel para cada campo (columna)..
la otra pregunta es , cuando quiero grabar lo que me importa no lo hace, y se abre el archivo excel, pidiendo el emnsaje de , desea guardar los cambios ( esto en el excel fuente<).
si alguien puede ayudarme porfa....
estoy trabajndo en DB2 como base de datos...(lo digo por q esto mismo lo hice en conexion a oracle y no paso esto)
este es codigo q empleo...
OLEObject excel
int li_rtn
boolean lb_sheet_rtn
LOng ll_cnt//, i
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:\SAM9\concilbancaria\conciliacion.xls" )
excel.Application.Visible = false
excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize
lb_sheet_rtn = excel.worksheets('BCO.COMERCIO').Activate
excel.Worksheets('BCO.COMERCIO').Range("A1:E5000").Copy // copiar al clipboard
//Copiar desde la segunda fila de Excel
ll_cnt = dw_multiple.importclipboard(2)
IF ll_cnt <= 1 THEN
Messagebox("Info", "No se encontró")
END IF
excel.Worksheets('BCO.COMERCIO').Range("A10000:A10000").Copy //reset clipboard
excel.Application.Quit
excel.DisConnectObject()
DESTROY excel
//-------------------Fin-------------------
dw_multiple.update( )
IF SQLCA.SQLCode = -1 THEN
MessageBox("SQL error", SQLCA.SQLErrText)
ROLLBACK;
ELSE
COMMIT;
END IF
dw_multiple.reset()
dw_multiple.retrieve( )
estoy importando datos de un excel de una hoja especifica
con el codigo que les muestro, pero cuando le doy importar me copia solo el campo de fecha, y no los campos con valores numericos ni textos....
debo establecer un formato en el excel para cada campo (columna)..
la otra pregunta es , cuando quiero grabar lo que me importa no lo hace, y se abre el archivo excel, pidiendo el emnsaje de , desea guardar los cambios ( esto en el excel fuente<).
si alguien puede ayudarme porfa....
estoy trabajndo en DB2 como base de datos...(lo digo por q esto mismo lo hice en conexion a oracle y no paso esto)
este es codigo q empleo...
OLEObject excel
int li_rtn
boolean lb_sheet_rtn
LOng ll_cnt//, i
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:\SAM9\concilbancaria\conciliacion.xls" )
excel.Application.Visible = false
excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize
lb_sheet_rtn = excel.worksheets('BCO.COMERCIO').Activate
excel.Worksheets('BCO.COMERCIO').Range("A1:E5000").Copy // copiar al clipboard
//Copiar desde la segunda fila de Excel
ll_cnt = dw_multiple.importclipboard(2)
IF ll_cnt <= 1 THEN
Messagebox("Info", "No se encontró")
END IF
excel.Worksheets('BCO.COMERCIO').Range("A10000:A10000").Copy //reset clipboard
excel.Application.Quit
excel.DisConnectObject()
DESTROY excel
//-------------------Fin-------------------
dw_multiple.update( )
IF SQLCA.SQLCode = -1 THEN
MessageBox("SQL error", SQLCA.SQLErrText)
ROLLBACK;
ELSE
COMMIT;
END IF
dw_multiple.reset()
dw_multiple.retrieve( )
Valora esta pregunta


0