Ejemplo básico actualización de datos importando desde Excel

Actualizar datos en Hexa importando datos de una Excel mediante un script es muy sencillo

En el ejemplo se actualiza los datos de los artículos en Hexa importando estos datos de una Excel, el procedimiento se lanzaría desde un botón de acción de un formulario de criterios

Código	Denominación	Familia	Marca
1	2Gb Memoria RAM	Memoria	Kingston
2	19" LCD Philips	Monitor	Philips
3	HD Barracuda 1TB	HDD	Seagate

Sub Main (PS0, PS1, PS2)
    'Creamos el objeto excel
    Set Hoja = CreateObject ("Excel.Application") : Hoja.Visible = 1
    Hoja.Workbooks.Open (FH.HPF ("Articulos.xlsx"))
    Hoja.Workbooks(1).Sheets(1).Activate
    F = 2
    Do While Hoja.Cells (F, 1).Value <> ""
        'Función que ejecuta la sentencia UPDATE para actualizar datos
        basededatos.Modifica "Articulo","Familia=" & FH.SQLT (Hoja.Cells (F, 3).Value) & ", Marca=" & Hoja.Cells(F, 4).Value,"Articulo=" & FH.SQLT(Hoja.Cells(F, 1).Value)
        F = F + 1 
    Loop
    Hoja.Quit : Set Hoja=Nothing
End Sub

Volver a la búsqueda anterior