求助：OLE IDispatch异常代码0出自Excel无法设定种类Range的NumberFormatLocal属性

[gmadqq]

调试程序时报以下错误：

工作需要，本人刚开始学VFP，还请高手帮忙诊断，谢谢！
代码如下 ：

Local cFilepath
cFilepath=Thisform.text1.Value
If Empty(cFilepath)
	Messagebox("請指定文件",64,"提示")
Else
	oExcel=Createobject('Excel.application')
	oExcel.Workbooks.Open(cFilepath)
	sSheetname=oExcel.Application.activesheet.Name &&获取当前工作表的名称
	oExcel.worksheets(sSheetname).Activate  &&激活工作表
	iRowscount=oExcel.worksheets(oExcel.sheets(1).Name).usedrange.Rows.Count  &&有数据的总行数
	icolumns=oExcel.worksheets(oExcel.sheets(1).Name).usedrange.Columns.Count  &&有数据的总列数
	oExcel.Range(oExcel.activesheet.cells(1,1),oExcel.activesheet.cells(iRowscount,icolumns)).Select  &&选中数据
	oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式
	oExcel.Columns.AutoFit  &&让所有的列宽都自动调整
	oExcel.DisplayAlerts=.F. &&不顯示警告
	oExcel.ActiveWorkbook.SaveAs('D:\TEST.DBF',8) &&另存为DBF
	oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
	oExcel.Workbooks.Close &&关闭表
	Thisform.grid1.Refresh
Endif

[都市夜猫]

oExcel.activesheet.cells.NumberFormat = "@"