这句错哪儿了？

dahanwudi

这句错哪儿了？

Private Sub addininstance_onconnection(ByVal application As Object, _

ByVal connectmode As AddInDesignerObjects.ext_connecctmode, _

ByVal addininst As Object, custom() As Variant）

原代码中有最后的“）”，现在这样还不对，显示“用户定义类型未定义”，请指点了！

liuts

断句有问题，多了两个换行符，少了一个")"

dahanwudi

回复 liuts 的帖子

这句错哪儿了？

Private Sub addininstance_onconnection(ByVal application As Object, _

ByVal connectmode As AddInDesignerObjects.ext_connecctmode, _

ByVal addininst As Object, custom() As Variant）

原代码中有最后的“）”，现在这样还不对，显示“用户定义类型未定义”，请指点了！

liuts

本身这句没有错，是你过程语句中有问题
你就给一个过程名，自定义变量 让别人给你找错误，心不诚

dahanwudi

回复 liuts 的帖子

Option Explicit

Dim oxl As Object

Dim WithEvents mybutton As Office.CommandBarButton

Private Sub addininstance_onconnection(ByVal application As Object, ByVal connectmode As AddInDesignerObjects.ext_connecctmode, ByVal addininst As Object, custom() As Variant)

On Error Resume Next

Set oxl = application

Set mybutton = oxl.CommandBars("standard").Controls.Add(1)

With mybutton

.Caption = "字母大小写转换"

.Style = msoButtonCaption

.Tag = "字母大小写转换"

.Visible = True

End With

End Sub

这部分显示：“用户定义类型未定义”，请指点了！以下部分显示错误：

Private Sub addininstance_onconnection(ByVal application As Object, _

ByVal connectmode As AddInDesignerObjects.ext_connecctmode, _

ByVal addininst As Object, custom() As Variant）

dahanwudi

回复 liuts 的帖子

还是显示用户定义类型未定义