RE:Importar datos de excel a power
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