This code will save the excel file in a format that VFP can import/append from:
lcFile=fullpath('yourfile.xls')
ox=Createobject('excel.application')
owb=ox.Workbooks.Open(lcFile)
lcFile=Forceext(lcFile,'xxx')
ox.DisplayAlerts= .F.
owb.SaveAs(lcFile,39)
owb.close()
owb=.null.
ox=.null.
Release owb
Release ox
Use yourtable
Append from (lcFile) xls
>Thanks a lot.... Tricky isn't it?? :-)
>
>>>Hi. I ussually import data from Excel files, I've just installed VFP 9.0 and my one of my applications makes VFP to hang, showing a window that says "Visual Foxpro 9 stopped working"
>>>The error occurs when trying to append data from a XLS file, here is the source code:
>>>
>>>
crea cursor matriz (x1 C(10), x2 C(10),co_art C(25), descripcion C(60), marcas C(100), modelos C(100), anios C(100))
>>>append from matriz1 type XL8
>>>
>>>Any help?
>>
>>
>>Hello Jonathan,
>>I found this article that might be of some help to you.
>>
>>
http://support.microsoft.com/kb/954318