Excel vba Workbooks.Open打开excel文件时excel卡死

Question

vba中用Workbooks.Open打开excel文档时，系统状态栏显示打开了两个同名的文件，然后excel就卡死了

运行环境 xp， office2007

在win7，office2010环境下，没有上述问题。有没有大神知道为什么会出现这种问题。苦等............
vba代码的文档是.xls格式的

Answer 1

通常情况下，我们应该避开重复打开文件，如果你略懂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，打开相关工作簿

Answer 2

Workbooks.Open Filename:="D:\2013\xxxx.xlsx" 是用这个代码吗?说打开重名的话 你改下名字不就好了阿

Answer 3

把代码贴出来……