我在工具栏上安装了带有vba编辑控件的Excel插件。这已经在Excel 2003-2010下工作了很长时间。但是在Excel 2013下,无论在编辑控件中输入什么内容,text属性始终为空。代码类似于下面的代码。
如果我将Addin加载为.XLS,它可以正常工作。但是如果我把它保存为.XLA并试试,那就失败了。
Sub test()
Set myControl = CommandBars("test").Controls.Add(Type:=msoControlEdit)
With myControl
.Caption = Search
.OnAction = "tester"
End With
End Sub
Sub tester()
MsgBox "I am gonna serach for: " & CommandBars("Test").Controls(1).Text
CommandBars("Test").Controls(1).Text = ""
End Sub