如何修复VBA Excel中的“运行时错误'-2147352571（80020005）”错误

Question

我正在创建一个用户窗体，该窗体允许我编辑表中的某些信息。文本框和组合框填充了表中存在的信息。

Dim chaine As String
Dim dom As String
Dim total As Integer
Dim position As Integer
Dim pro As Integer

dom = Left(domlist, 3)
For Each cell In Range("G3:G800")
  chaine = Left(cell.Value, 3)
  MsgBox chaine
    Do While dom = chaine
      pro = Application.WorksheetFunction.Match(prolist, Sheets("Data").Range("Produit_edit"), 0)
      Ajout.domain = domlist
      Ajout.subdomain = listsub
      Ajout.Produit = prolist
      Ajout.Procedure= Sheets("Data").Range("Procedure").Offset(pro,
                       5).Value
      Ajout.Processus = Sheets("Data").Range("Processus").Offset(pro, 
                        6).Value
      Ajout.percentage = Sheets("Data").Range("Percentage").Offset(pro, 
                         10).Value
      Ajout.Show
      Exit Do
    Loop


  Next 

Ajout是我的用户表单的名称，pro是我在表中选择的产品的位置。 当显示用户窗体时，我希望某些信息框和组合框充满信息，但是我得到的只是不匹配错误。