首页 文章

仅在某些计算机上填充VBA ActiveX组合框时出现错误438

提问于
浏览 次
0

我已经创建了一个带有ActiveX组合框控件的工作簿，这些控件通过worksheet_activate（）代码填充：

Private Sub Worksheet_Activate()    
   With ActiveSheet.cmboBox1
        .Clear
        .AddItem "Item 1"
        .AddItem "Item 2"
        .AddItem "etc..."
        .Text = "Select... "
        .Width = 222
        .Height = 19
        .Left = 0
        .Top = 0
    End With
End Sub

这在我的电脑上工作正常 . 但是，当我尝试在同事的计算机上打开电子表格时，他们会收到错误438，调试突出显示该行：

With ActiveSheet.cmboBox1

我比较了Excel版本，我们运行完全相同的版本 .

我们有相同的ActiveX信任中心设置 . 我创建了一个空白工作表，只有一个ActiveX组合框，同样的事情发生 .

我已经尝试直接指定工作表而不是使用ActiveSheet，但问题仍然存在 .

我接近我的代码，然后这个！提前致谢 .

excel vba combobox activex

1 回答

  • 0

    我终于确定了问题的原因 . 再一次，它是's been caused by a Microsoft Security Update (that had somehow been installed on my colleagues'计算机而不是我的） . 参考http://support.microsoft.com/kb/3025036

    从该KB文章运行补丁后，它再次起作用 .

    回复于

相关问题