移置vba里的窗体到Vb里,封装成dll后,这一段代码一直429错误.

lwjia

Private Sub UserForm_Activate()
Set xlApp = GetObject(, "excel.Application")
    If xlApp.Range("a5") = "" Then
    Me.TextBox3 = 1
    Label5.Caption = "加法"
    Me.TextBox1 = 10
    Me.TextBox2 = 8
    Else
   Me.TextBox1 = xlApp.Range("a5")
   Me.TextBox2 = xlApp.Range("a6")
   Me.TextBox3 = xlApp.Range("a7")
   Call SpinButton3_Change
End Sub

上面的call可忽略,运行set这一行就出现429错误,aetiveX无法创建,   使用另外一个set xlapp=ce....("excel......)后,if 行代码提示无法创建对象.
郁闷呀!
请高手解析

xyxcc177

Set xlApp = CreateObject(, "excel.Application")

lwjia

xyxcc177 发表于 2018-9-2 08:48
Set xlApp = CreateObject(, "excel.Application")

这一段应该是去掉括号的逗号吧，放里面提示未设置对象变量，或什么with blockl变量，91错误

xyxcc177

lwjia 发表于 2018-9-2 09:20
这一段应该是去掉括号的逗号吧，放里面提示未设置对象，或什么的，91错误

对，没看到那个逗号

lwjia

xyxcc177 发表于 2018-9-2 09:22
对，没看到那个逗号

1、Set xlApp = CreateObject(, "excel.Application")
2、Set xlApp = CreateObject( "excel.Application")
3、Set xlApp = getObject(, "excel.Application")
以上测试都有问题，3t是无法创建对象，1是无法编译，2是运行至下一句出现91错误此代码在台式机win7上正常运行，在联想笔记本win8上正常运行，在win7HP笔记本上就一直出面上面的错误，系统装了又装，excel也是装了各个版本，均是这个问题

xyxcc177

Set xlapp = GetObject("excel.Application")
Dim sht As Worksheet
Set sht = xlapp.Worksheets(1)
    If sht.Range("a5") = "" Then
    Me.TextBox3 = 1
    Label5.Caption = "加法"
    Me.TextBox1 = 10
    Me.TextBox2 = 8
    Else
   Me.TextBox1 = sht.Range("a5")
   Me.TextBox2 = sht.Range("a6")
   Me.TextBox3 = sht.Range("a7")
   Call SpinButton3_Change

lwjia

xyxcc177 发表于 2018-9-2 16:58
Set xlapp = GetObject("excel.Application")
Dim sht As Worksheet
Set sht = xlapp.Worksheets(1)

按这个代码会出现automation错误 运行时错误‘-2147221020(800401e4)…）

xyxcc177

lwjia 发表于 2018-9-2 21:58
按这个代码会出现automation错误 运行时错误‘-2147221020(800401e4)…）

加qq给你解决