Hello Naomi

My code work at this point :
* Escolher o ficheiro em Excel para importar
m_file=Getfile("XLS","Ficheiro","Escolher",0,"Seleccione o Ficheiro a Importar")
If Type("m_file") != "C" Or Not File(m_file)
Messagebox("Ficheiro Não Encontrado")
Return
Endif

After that code i write message box to debbug but the messagebox don´t appear :
* Cria o cursor ARTIGO que vai conter os registos do ficheiro em excel
Create Cursor ARTIGO (ref C(18),EPV1 N(14,2),Design C(60))

* Altera as decimais que são utilizadas por defeito na aplicação
Set Point To "."
Append From (m_file) Xls
Select ARTIGO
msg("aqui") «««««« don´t appear
Scan

I hope this little code help you to understand .

Thanks Naomi