Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Forms 运行时错误2147024809(80070057):找不到指定的对象_Forms_Excel_Vba - Fatal编程技术网

Forms 运行时错误2147024809(80070057):找不到指定的对象

Forms 运行时错误2147024809(80070057):找不到指定的对象,forms,excel,vba,Forms,Excel,Vba,我最近在我的项目中遇到了一个问题,这真的让我陷入了困境。我的项目不再认可我的11个表格中的2个,这些表格实际上是从项目开始就存在的。表单的名称没有更改,调用表单的代码也没有更改。以前调用这两个表单时没有问题,现在存在此运行时错误。两种不再出现的形式是“休假日”和“休假日”,如下代码所述。另一个问题是“Holidays_Form”userform,它正在被调用,但实际上没有数据输出到程序。同样,此表单以前工作正常,现在没有更改与表单相关的任何代码。下面代码中唯一有效的主要形式是“Normal_迭代

我最近在我的项目中遇到了一个问题,这真的让我陷入了困境。我的项目不再认可我的11个表格中的2个,这些表格实际上是从项目开始就存在的。表单的名称没有更改,调用表单的代码也没有更改。以前调用这两个表单时没有问题,现在存在此运行时错误。两种不再出现的形式是“休假日”和“休假日”,如下代码所述。另一个问题是“Holidays_Form”userform,它正在被调用,但实际上没有数据输出到程序。同样,此表单以前工作正常,现在没有更改与表单相关的任何代码。下面代码中唯一有效的主要形式是“Normal_迭代”,它嵌入在Module1中(不是用户形式)。下面是我的代码:

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的代码清理器,看看这是否能解决问题。