对象变量或With 块变量没有设置（错误91）
创建对象变量有两个步骤。

第一，必须先声明对象变量。

然后必须用Set语句将一个正确的引用赋值给对
象变量。

同样地，With...End With块必须先用With语句进入点来执行初始化。

此错误有以下的原因和解
决方法：
∙试图使用的对象变量，还没有用一个正确对象的引用来赋值。

给对象变量指定或再指定一个引用。

例如，如果在下列的代码中省略Set语句的话，那么引用
MyObject将会产生错误：
Dim MyObject As Object '创建对象变量。

Set MyObject = Sheets(1) '创建一个正确的对象引用。

MyCount = MyObject.Count '计数值赋给
MyCount。

∙试图用的对象变量已经被设为Nothing。

Set MyObject = Nothing '释放此对象。

MyCount = MyObject.Count '引用了已释放的对象。

再指定引用给对象变量。

例如，使用新的Set语句给对象设置新的引用。

∙此对象是正确的对象，但没有被设置，因为在对象库中，在“引用”对话框中没有被选取。

在“添加引用”对话框选择对象库。

∙在With块内GoTo语句的去向。

不要跳进With块。

确保块使用With语句进入点以执行初始化。

∙当选了“设置下一条语句”命令时，在With块内指定了一行。

With块必须用With语句执行初始化。

详细信息，可选取有问题的项目，并按下F1 （在Windows中）或HELP（在Macintosh中）键。