-3

vba 错误:对象变量或未设置块变量

我不知道刚刚发生了什么!请帮忙。这是我的代码!

  If intMsgBox = vbYes Then
Unload frmNewOrder // error here
Unload Main_Menu //error here
ActiveSheet.PrintPreview
wkbNewOrder.Worksheets("New Order").Select
wkbNewOrder.Worksheets("New Order").Delete
wkbNewOrder.Worksheets("Main Menu").Select
End If
4

2 回答 2

4

如文档中所述,未设置 Main_Menu 和 frmNewOrder。

链接截图。如果上述链接失效。

在此处输入图像描述

于 2013-10-25T07:45:16.523 回答
0

看起来您将 frmNewOrder 声明为变量,但您没有设置它,您的代码如下所示:

Dim MyForm As UserForm1
Unload MyForm

但它应该是:

Dim MyForm As UserForm
Set MyForm = UserForm1
Unload MyForm
于 2013-10-25T07:45:22.997 回答