VFP中导入EXCEL表时提示找不到EXCEL.APPLICATION类定义，应如何解决？

[ZJM84862915]

在VFP8.0表单的命令框中设计了将EXCEL表数据导入DBF表的功能，但在执行命令导入EXCEL表时却提示“找不到EXCEL.APPLICATION类定义”，所使用的命令程序是：

M=getfile("xls")
COPY FILE "&M" TO D:\TEST.XLS
oExcel=CREATEOBJECT('Excel.application')
oExcel.Workbooks.Open("D:\TEST.XLS")
R=oExcel.SHEETS(1).UsedRange.ROWS.COUNT
C=oExcel.SHEETS(1).UsedRange.COLUMNS.COUNT
oExcel.Cells(R,C).Select
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('D:\NewTest.xls',39)
oExcel.ActiveWorkbook.saved=.t.
oExcel.Workbooks.close
oExcel.quit
RELEASE oExcel
IMPORT FROM D:\NewTest.xls TYPE XL8
ERASE D:\NewTest.xls
ERASE D:\TEST.xls

在大部分电脑上运行上述程序时都没有出现故障，但在一台电脑上却出现了这样的故障。

敬请电脑专家分析是何原因，如何解决？不胜感激！

[xuzuning]

没有安装 Excel 或 Excel 版本高于 2003

[WWWWA]

没有安装OFFICE OR 安装的精简版之类的？

[lc_apple]

在执行前检测一下是不是安装了excel及版本是不是正确的：

oExcel=Createobject('Excel.application')
If Vartype(oExcel)=="O"
	If Val(oExcel.Version)=11.0 &&11.0表示excel的版本号
		M=Getfile("xls")
		Copy File "&M" To D:\TEST.Xls
*		oExcel=Createobject('Excel.application')
		oExcel.Workbooks.Open("D:\TEST.XLS")
		R=oExcel.SHEETS(1).UsedRange.Rows.Count
		C=oExcel.SHEETS(1).UsedRange.Columns.Count
		oExcel.Cells(R,C).Select
		oExcel.DisplayAlerts=.F.
		oExcel.ActiveWorkbook.SaveAs('D:\NewTest.xls',39)
		oExcel.ActiveWorkbook.saved=.T.
		oExcel.Workbooks.Close
		oExcel.Quit
		Release oExcel
		Import From D:\NewTest.Xls Type Xl8
		Erase D:\NewTest.Xls
		Erase D:\TEST.Xls
	Endif
Endif

[都市夜猫]

多数情况是安装了精简版，或者注册表出了问题
找到 execl 的 exe 文件，让它自己重新检测并修复一次

运行 cmd，转到 excel.exe 所在文件夹，执行 excel /RegServer，修复过程中可能需要你插入安装盘，或者指出安装文件所在目录

[十豆三]

Try
	oExcel=Createobject('Excel.application')
	llSuccess=.T.
Catch To oError
	Messagebox(oError.Message,48,'信息提示')
	llSuccess=.F.
Endtry
If llSuccess
	M=Getfile("xls")
	Copy File "&M" To D:\TEST.Xls
	oExcel.Workbooks.Open("D:\TEST.XLS")
	R=oExcel.SHEETS(1).UsedRange.Rows.Count
	C=oExcel.SHEETS(1).UsedRange.Columns.Count
	oExcel.Cells(R,C).Select
	oExcel.DisplayAlerts=.F.
	oExcel.ActiveWorkbook.SaveAs('D:\NewTest.xls',39)
	oExcel.ActiveWorkbook.saved=.T.
	oExcel.Workbooks.Close
	oExcel.Quit
	Release oExcel
	Import From D:\NewTest.Xls Type Xl8
	Erase D:\NewTest.Xls
	Erase D:\TEST.Xls
Else
	Messagebox('创建 Excel 对象失败！',48,'信息提示')
Endif

[十豆三]

这台电脑可能没有安装 Excel