>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
What is the Excel version of the file? Also, is msg a custom function? Add BROWSE command right after append to see if append worked (this is just for testing).
If it's not broken, fix it until it is.
My Blog