NCF参数化建筑论坛

标题: activX控件不能创建 [打印本页]

作者: cjsyzwsh 时间: 2010-3-1 20:15
标题: activX控件不能创建
大家来看看啦！！！
有个小问题～～下面这段导入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 时间: 2010-3-1 21:23
有人回答吗……

作者: skywoolf 时间: 2010-3-1 21:39
不太了解，去群里喊一下吧。

欢迎光临 NCF参数化建筑论坛 (http://www.ncf-china.com/)