Question

VB activex部件不能创建对象

不打开EXCEL直接执行时出现错误'429’，“activex部件不能创建对象”，如果先打开EXCEL就不会出现，这是什么原因，怎么解决？代码如下：
p = App.Path
Set XL = GetObject(, "Excel.Application")
With XL
.workbooks.Open FileName:=p & "\Book2.xlsx"
.workbooks("Book2.xlsx").sheets(1).cells(1, 1) = 2
.workbooks("Book2.xlsx").Close savechanges:=True
End With

Answer 1

Set XL = GetObject(, "Excel.Application")
改为
Set XL = CreateObject( "Excel.Application")
试试

追问

谢谢，可以！请问是什么原因呢？

追答

要创新啊

追问

这个回答不行

追答

算了

追问

GetObject([pathname] [, class............如果省略了 pathname 参数，则 GetObject 返回指定类型的当前活动的对象。
从帮助里查的，看来得有一个活动的对象。
创新也是一个思路，打一枪换一个地方。

追答

CreateObject是创建一个新的

Answer 2

试试这种方法？Private Sub Command1_Click()
Dim Xlbook As Workbook
Dim Xlapp As Application
Dim Xlsheet As Worksheet
Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开excel
Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿
Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表

Print Xlsheet.Range("A1") '取数据什么的跟VBA一样的。

Xlbook.Close False '关闭工作簿 不保存
Set Xlapp = Nothing '释放
Set Xlbook = Nothing
End Sub