activX控件不能创建

cjsyzwsh

大家来看看啦！！！
有个小问题～～下面这段导入EXCAL的程序不能在朋友的电脑上运行，显示是activX控件不能创建，不知道是什么原因，大家有没有经验？
还有，这段在我的电脑上可以运行，不知道有什么差别……
高手速答！！

Option Explicit
'excel import to rhinoscript , che-wei wang 4.8.2008
'excel cell numbers begin with 1,1 (not 0,0)
Call Main()
Sub Main()
Dim FileName, file, excel
FileName = Rhino.OpenFileName("Select Excel File","Excel Files (*.xls)|*.xls||")
If isNull(FileName) Then Exit Sub
Set excel = CreateObject("Excel.Application")
excel.Visible = True
excel.Workbooks.Open(FileName)
Set file = excel.ActiveSheet
Dim x:x= file.Cells(1,2).Value
Call Rhino.Print(x)
excel.UserControl = True
End Sub

cjsyzwsh

有人回答吗……

skywoolf

不太了解，去群里喊一下吧。