Question

我在工作簿（myworkbook.xlsm）中为该功能添加了一些VBA代码：打开我的工作簿时，VBA代码将从黄金工作簿（golden.xlsm）复制一张纸。我将Sub Workbook_Open添加到myworkbook.xlsm的对象“ ThisWorkbook”中，复制成功。但是问题是当我使用“ Alt + F11”打开Visual Basic编辑器时，将出现一个消息框，提示“内存不足”，并且我无法再编辑其他VBA代码。

我尝试注释掉Workbook_Open处理程序中的一些代码，以下行将导致此问题：

Set goldenWorkbook = Workbooks.Open("golden.xlsm")

为对象“ ThisWorkbook”的打开事件添加了我的代码

Private Sub Workbook_Open()
    Dim goldenWorkbook As Workbook
    Application.ScreenUpdating = False
    Debug.Print "Hello~you just open the file"
    Set goldenWorkbook = Workbooks.Open("golden.xlsm")
    goldenWorkbook.Sheets("Common").Copy Before:=ThisWorkbook.Sheets(1)
    goldenWorkbook.Close True
    Application.ScreenUpdating = True
    Set goldenWorkbook = Nothing

End Sub

打开金色xlsm文件时内存不足

0 个答案: