VBA - 编译错误 - 未找到方法或数据成员

Question

我已经使用这个excel程序几个月没有问题.几天前它突然开始抛出这个错误.在名为"输入"的工作表上,我将双击"A"列中的单元格,这将创建一个下拉框,该框将填充"数据"表中的数据.我开始输入然后选择要添加到单元格的数据.现在,当我单击单元格并收到错误消息"编译错误 - 未找到方法或数据成员"时.这是我的代码块,错误显示在底部突出显示"Me.TempCombo.Activate".

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim str As String
    Dim cboTemp As OLEObject
    Dim ws As Worksheet
    Set ws = ActiveSheet

    If Target.Column = 1 And Target.Row > 12 And Target.Row <> HRRow And Target.Row <> HRRow - 1 Then

        lRow = Sheets("Data").Range("A65536").End(xlUp).Row
        Set cboTemp = ws.OLEObjects("TempCombo")
          On Error Resume Next

          With cboTemp
          'clear and hide the combo box
            .ListFillRange = ""
            .LinkedCell = ""
            .Visible = False
          End With
        On Error GoTo errHandler
          'If Target.Validation.Type = 3 Then
            'if the cell contains a data validation list
            Cancel = True
            Application.EnableEvents = False
            'get the data validation formula
            'str = Target.Validation.Formula1
            'str = Right(str, Len(str) - 1)
            str = "=Data!A2:A" & lRow

            With cboTemp
              'show the combobox with the list
              .Visible = True
              .Left = Target.Left
              .Top = Target.Top
              .Width = Target.Width + 5
              .Height = Target.Height + 5
              .ListFillRange = str
              .LinkedCell = Target.Address
            End With
            'cboTemp.Activate
            Me.TempCombo.Activate
            'open the drop down list automatically
            Me.TempCombo.DropDown

      End If

errHandler:
      Application.EnableEvents = True
      Exit Sub
End Sub

我尝试了几件事,对于我的生活,我无法弄清楚改变了什么.任何帮助将不胜感激.谢谢.

Answer 1

我遇到了同样的错误,并且能够像Rory建议的那样解决它.我在我的机器上搜索了*.exd文件,发现了一些.删除后,问题就解决了C:\Users\<username>\AppData\Local\Temp\Excel8.0\MSForms.exd......其他问题似乎与Excel中的ActiveX控件无关.