Question

VB操作EXCEL有的电脑有用，有的电脑没有用？重装也没用，请教下高手。

Dim myexcel As Excel.Application
Dim mybook As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim Mpath As String
Mpath = STRpath & "\XLT\hgz1.xlt"提示“”ActiveX部件不能创建对象“”有的电脑又能用，是啥个情况，高手们
WIN7，OFFICES 2007
Dim myexcel As Excel.Application
Dim mybook As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim Mpath As String
Mpath = STRpath & "\XLT\hgz1.xlt"
Set myexcel = CreateObject("Excel.Application") 这句提示“”ActiveX部件不能创建对象“”有的电脑又能用，是啥个情况，高手们请教下。

WIN7，OFFICES2007

Answer 1

excel引用时，版本是一个问题。比如您引用了2007版，但是人家的电脑只有2003版，那么您打开那个引用的窗口看看，会提示dll缺失的。

我装了两个版本，就有两个引用版本11和15了。

有个办法就是避开版本，用默认的方式创建，只是那样编程不太方便，打个点不会自动列出属性。

Dim myexcel As Object

Dim mybook As Object

Dim mysheet As Object

Private Sub Command1_Click()

Set myexcel  = CreateObject("excel.application")

myexcel.Visible = True

‘其他的一样照写。有一说"excel.application.15"这样的写法可以指定版本，但是我试了，不成功，总是按默认打开一个版本，没得选择

End Sub

Answer 2

用VB的话，还是自己编程自己用吧，想要分发到别的人用的话，还是不要用VB了
我的意思是装了VB软件的电脑用VB编程 然后用这段程序应该是正常的吧

追问

不是太精通，自己瞎做的办公程序，换地方了用不了，郁闷啊。

追答

很多人就因为你说的这种情况，由VB转到C 了，

Answer 3

调用这个类需要当前系统安装了Excel才行。

你可以换用第三方类，比如Aspose.excel来操作Excel。