Question

这段Excel VBA代码为什么出错

以下代码在一台电脑上可以正常运行，而在另一台电脑上却出错，代码的放置位置都是“模块1”。而且是从正常运行的这台电脑上复制过去的（确保代码一致）。
出错的语句位于是第2行和第5行，错误类型是“9 下标越界”。有谁知道问题出在哪里？

1:Sub SaveHour9 ()
2:If Workbooks("Hour9Lab").Saved=True Then'这句出错
3:MsgBox "This workbook has already been saved. "
4:Else
5:Workbooks("Hour9Lab").Save'这句出错

6:Msgbox "The workbook has been saved. "
7:End If
8:End Sub
一楼的:二台电脑一样的文件名绝对没有问题
二楼的:脚本不是驻留在这个工作簿,不能用this关键字
三楼的:按规范不要加扩展名的,但加上扩展名我已经试过,不行,还是错误9

Answer 1

Sub SaveHour9()
If ActiveWorkbook.Saved = True Then '这句出错
MsgBox "This workbook has already been saved. "
Else
ActiveWorkbook.Save '这句出错

MsgBox "The workbook has been saved. "
End If
End Sub

Answer 2

两台机器上的工作薄名称不一样吧，这两名都是指定了名叫Hour9Lab的工作薄