Buscar palabras clave en la documentación    Buscar Ayuda

Doc. Ref. 9672
Título: Ejemplo básico actualización de datos importando desde Excel
Autor: Roberto Rubiales
Última actualización: 17/10/2014


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
Tags Relacionados:

script articulo dato actualizar sql vbs excel