Forms 运行时错误2147024809(80070057):找不到指定的对象
我最近在我的项目中遇到了一个问题,这真的让我陷入了困境。我的项目不再认可我的11个表格中的2个,这些表格实际上是从项目开始就存在的。表单的名称没有更改,调用表单的代码也没有更改。以前调用这两个表单时没有问题,现在存在此运行时错误。两种不再出现的形式是“休假日”和“休假日”,如下代码所述。另一个问题是“Holidays_Form”userform,它正在被调用,但实际上没有数据输出到程序。同样,此表单以前工作正常,现在没有更改与表单相关的任何代码。下面代码中唯一有效的主要形式是“Normal_迭代”,它嵌入在Module1中(不是用户形式)。下面是我的代码:Forms 运行时错误2147024809(80070057):找不到指定的对象,forms,excel,vba,Forms,Excel,Vba,我最近在我的项目中遇到了一个问题,这真的让我陷入了困境。我的项目不再认可我的11个表格中的2个,这些表格实际上是从项目开始就存在的。表单的名称没有更改,调用表单的代码也没有更改。以前调用这两个表单时没有问题,现在存在此运行时错误。两种不再出现的形式是“休假日”和“休假日”,如下代码所述。另一个问题是“Holidays_Form”userform,它正在被调用,但实际上没有数据输出到程序。同样,此表单以前工作正常,现在没有更改与表单相关的任何代码。下面代码中唯一有效的主要形式是“Normal_迭代
Private Sub UserForm_Initialize()
With Options
.AddItem "No Vacation or Holidays"
.AddItem "Vacation"
.AddItem "Holiday"
.AddItem "Vacation & Holidays"
End With
End Sub
Private Sub Vacation_Options_Select_Click()
Vacation_Options_Form.Hide
Dim List_Options As Integer
For List_Options = 0 To Options.ListCount - 1
If Options.Selected(List_Options) = True Then
If Options.List(List_Options) = "No Vacation or Holidays" Then
Call Normal_Iteration
ElseIf Options.List(List_Options) = "Vacation" Then
Vacation_Days_Form.Show
ElseIf Options.List(List_Options) = "Holiday" Then
Holidays_Form.Show
ElseIf Options.List(List_Options) = "Vacation & Holidays" Then
Vacation_Holidays_Form.Show
End If
End If
Next
End Sub
提前回答这些问题:1)是的,我检查过这些用户表单是否仍然存在于我的程序中;2)是的,用户表单的命名与上面代码中调用的完全相同
感谢您帮助检测此问题。请让我知道,如果有额外的代码需要我张贴
问候,
Jordan我最终只是重做了我的项目,从零开始将代码、表单、格式等复制到另一个工作簿中。我仍然不知道到底发生了什么。MS Office 2007似乎存在严重的可靠性问题。感谢您的帮助。VBA项目有时会损坏-我会试试Rob Bovey的代码清理器,看看这是否能解决问题。