1

我已经看过这两个帖子：

使用 Unload Me 关闭用户窗体不起作用

在 VBA 用户窗体中关闭打开的工作簿时出错

他们都建议当你想从表单代码中关闭一个文件时，你需要先卸载表单（使用卸载我）。但是，如果我卸载，我有一个被取消引用的全局数组。

看看我下面的代码（它在分配 global_int(0,0) 进行测试时崩溃）。除非删除数组，否则我无法卸载表单。这真的是解决这个问题的唯一方法吗？

创建一个新的excel文件。在其中创建一个用户表单。在此之上，使用以下 Click 事件代码和全局声明创建一个命令按钮：

Private global_int(2, 10) As Integer

Private Sub CommandButton1_Click()
    global_int(0, 0) = 23

    Dim filename As String
    Dim opened_workbook As Workbook

    filename = Application.GetOpenFilename()    ' User selects valid Excel file
    Set opened_workbook = Application.Workbooks.Open(filename)
    ' File operations would occur here
    Unload Me
    opened_workbook.Close    ' Exception thrown here

    Dim test As Integer
    test = global_int(0, 0)

    MsgBox "If you got here, it worked!"

End Sub

我只是在调整别人的代码以在 Mac 上工作，所以我想尽可能避免完全重构。

谢谢。

4

1 回答 1

0

根据我的理解，你有一个用户表单，代码就在里面。您不能从 userForm 代码中卸载用户表单并期望其余代码正常工作。一种选择是在单独的模块中编写代码。调用用户表单从那里运行

于 2014-02-19T09:23:00.193 回答