作者：乔山办公网日期：
返回目录：excel表格制作
少了一个S，应改为：
workbooks.open("aaa.xls")
通常情况下，我们应该避开重复打开文件，如果你略知懂VBA，请使用下面代码测试：
将你道的WOrkBooks.Open("D:\xx.xls")
改成如下：
Dim Wb as WorkBook '定义一个wb工作簿变量
On Error Resume Next '容错
Set wb = WOrkbooks("xx.xls")
'先引用xx.xls工作簿，如果该工作簿没有打开回，那么答将发生错误9；如果已经打开，将跳过下面这句打开工作簿的代码！
If Err.Number = 9 Then Set wb = WorkBooks.Open("D:\xx.xls") '捕获错误9，打开相关工作簿
通常情况下，我们应该避开重复打开文件，如果你略懂VBA，请使用下面代码测试：
将你的抄WOrkBooks.Open("D:\xx.xls")
改成如下：
Dim Wb as WorkBook '定义一个wb工作簿变量
On Error Resume Next '容错
Set wb = WOrkbooks("xx.xls")
'先引袭用xx.xls工作簿，如果该工作簿没有打开，那么将发生错误9；如果已经打开，将跳过下面这句打开工作簿的代码！
If Err.Number = 9 Then Set wb = WorkBooks.Open("D:\xx.xls") '捕获zhidao错误9，打开相关工作簿