Caros,
Eis um exemplo em que importo algumas colunas do excel:
ABRE ASPAS
sFile is string
nXlsfile is int
nUm_linha is int
// Pede o nome do arquivo
sFile = fSelect("", "", "Selecione arquivo", ...
"Arquivos Excel (*xls)" + TAB + "*.xls" + CR + "all" + TAB + "*.*", "xls")
//IF sFile <> "" THEN TableToExcel("TABLE_PRDEPES", sFile, taNoTitle)
//ScreenToFile()
Info(sFile)
//abrindo o arquivo
nXlsfile = xlsOpen(sFile)
nUm_linha = xlsNbRow(nXlsfile)
// le todas as linhas da planilha
FOR linha = 1 TO nUm_linha
AtivoRJU.Matricula = xlsData(nXlsfile,linha,1)
AtivoRJU.Nome = xlsData(nXlsfile,linha,2)
AtivoRJU.Niver = xlsData(nXlsfile,linha,8)
AtivoRJU.Exercicio = StringToDate(xlsData(nXlsfile,linha,9))
AtivoRJU.Cargo = xlsData(nXlsfile,linha,10)
AtivoRJU.Comissao = xlsData(nXlsfile,linha,11)
AtivoRJU.Depto = xlsData(nXlsfile,linha,12)
AtivoRJU.Praca = xlsData(nXlsfile,linha,13)
HAdd(AtivoRJU)
// para ver na tela a execucao da carga dos registros
Trace("linha = ",linha)
END
Info("Carregado " + nUm_linha + " registros! - tecle OK!")
xlsClose(nXlsfile)
FECHA ASPAS
Espero que ajude.