Vba 如何卸载多个用户表单

我没有成功卸载多个用户表单。这是我的用户表单列表

我在谷歌上搜索了这个问题，发现了以下代码：

Sub testIt2()
    Dim i As Long
    For i = VBA.UserForms.Count - 1 To 0 Step -1
        Unload VBA.UserForms(i)
    Next i
End Sub

不幸的是，这段代码不起作用。它不承认我的任何形式

下面是我逐步阅读代码时的摘录。它不识别任何形式

---

您想要的可以通过以下方式完成：

Sub TestMe()

    Dim ufObject As Object

    For Each ufObject In VBA.UserForms
        Debug.Print "unloading..."; ufObject.name
        Unload ufObject
    Next ufObject

End Sub

---

只需遍历集合

VBA.UserForms

，然后卸载在那里找到的内容。

可以通过以下方式完成所需操作：

Sub TestMe()

    Dim ufObject As Object

    For Each ufObject In VBA.UserForms
        Debug.Print "unloading..."; ufObject.name
        Unload ufObject
    Next ufObject

End Sub

---

只需遍历集合

VBA.UserForms

，然后卸载在那里找到的内容。

此时表单是否打开？是的。worskbook是一种用来计算东西的工具。用户通过多个用户表单工作（需要保持打开状态，以便在需要时可以进入并编辑信息）。最后是一个宏，用于将详细信息保存到access数据库中，此时我希望卸载userforms。否则，信息将保留在以前的工作中。

debug有什么作用。？VBA.UserForms.Count

在即时窗口中给出？嗨，Nathan，我不确定你的意思，所以我在上面的原始帖子中添加了一张图片，当我逐步浏览代码时显示屏幕。似乎我的用户表单都不被识别。宏没有崩溃，只是在有意义的情况下无法识别userforms。是的，所以请检查立即窗格中的计数实际给出了什么。您可以开始调试/修复。表单此时是否打开？是的。worskbook是一种用来计算东西的工具。用户通过多个用户表单工作（需要保持打开状态，以便在需要时可以进入并编辑信息）。最后是一个宏，用于将详细信息保存到access数据库中，此时我希望卸载userforms。否则，信息将保留在以前的工作中。

debug有什么作用。？VBA.UserForms.Count

在即时窗口中给出？嗨，Nathan，我不确定你的意思，所以我在上面的原始帖子中添加了一张图片，当我逐步浏览代码时显示屏幕。似乎我的用户表单都不被识别。宏没有崩溃，只是在有意义的情况下无法识别userforms。是的，所以请检查立即窗格中的计数实际给出了什么。您可以开始调试/修复。