Importar datos de una Hoja de Exce al Windev

NombreArchivo  is string

IdentificadorXLS,CuantasFilas is int

sCodigo is string

idProducto is string

sDesc is string

cyPrecio is currency

nValor is int

cyCosto is currency

sCatalago is string

nDolar is int

nInventariable is int

NombreArchivo  = fSelect("", "", "Seleccionar el archivo", ...

"XLS File" + TAB + "*.XLS", "XLS", fselOpen+fselExist)

IdentificadorXLS = xlsOpen(NombreArchivo )

CuantasFilas = xlsNbRow(IdentificadorXLS)

Info(CuantasFilas)

PROGBAR_NoName1..MinValue = 0                       

PROGBAR_NoName1..MaxValue = (CuantasFilas)

       //Importacion Costa Rica

       IF IdentificadorXLS  <> -1 THEN

             FOR i = 2 TO CuantasFilas

                    sCodigo = NoSpace(xlsData(IdentificadorXLS,i,1))

                    idProducto= NoSpace(xlsData(IdentificadorXLS,i,2))

                    sDesc = (xlsData(IdentificadorXLS,i,3))

                    cyPrecio = NoSpace(xlsData(IdentificadorXLS,i,4))

                    nValor = NoSpace(xlsData(IdentificadorXLS,i,5))

                    cyCosto = NoSpace(xlsData(IdentificadorXLS,i,6))

                    sCatalago = NoSpace(xlsData(IdentificadorXLS,i,7))

                    nDolar = NoSpace(xlsData(IdentificadorXLS,i,8))

                    nInventariable =NoSpace(xlsData(IdentificadorXLS,i,9))

                    HReadSeekFirst(MaestroArticulos,Codigo,sCodigo)

                    IF NOT HFound(MaestroArticulos) THEN          

                           PROGBAR_NoName1 +=1

                           GPDeCajon("MaestroArticulos","Importacion313",1)

                           MaestroArticulos.Codigo = sCodigo

                           MaestroArticulos.idProducto= idProducto

                           MaestroArticulos.Atajo = sIdNice

                           MaestroArticulos.CodInv = sIdNice

                           MaestroArticulos.Descripcion = sDesc

                           MaestroArticulos.Precio = cyPrecio

                           MaestroArticulos.Cost1 = cyCosto

                           MaestroArticulos.CatalogID = sCatalago

                           MaestroArticulos.Dolar = 1

                           MaestroArticulos.Inventoried = 1

                           MaestroArticulos.Comisionable = 1

                           MaestroArticulos.FchAct = DateSys()

                           MaestroArticulos.EntryDate = DateSys()

                           MaestroArticulos.almacen = "VTA"

                           MaestroArticulos.Taxable = 1

                           HAdd(MaestroArticulos)

end