n_abre_excel is int=xlsOpen("nome_excel.xls") n_numero_linhas is int=xlsNbRow(n_abre_excel) n_contador is int=0 FOR n_contador = 2 TO n_numero_linhas HReset(nota_rps_servico) s_codigo_municipio is string=xlsData(n_abre_excel,n_contador,3) nota_rps_servico.codigo_municipio=s_codigo_municipio HAdd(nota_rps_servico) END Info("Final da Gravacao") //----------------------------------------------------------- //Blog com Video e Exemplo http://windevdesenvolvimento.blogspot.com.br/2016/01/curso-windev-excel-001-ler-planilha.html
|