请教关于workbooks.open的用法

stvent

各位，我有一段VBA打开表格的代码，在excel 2013上使用很正常，但在excel 2007上却报错，请问在2007上该如何修改？

1. Sub Link3()
   
2. ThisWorkbook.Sheets(2).Range("1:65536").ClearContents
   
3. ThisWorkbook.Sheets(2).Cells.ClearFormats
   
4. Application.ScreenUpdating = False
   
5. Set wb = Workbooks.Open("\\jmfile01\Data3\Maintainence\006-- 设备管理-------Equipment Management\01-- 周期性维修\02-电仪\1-电仪周期维护清单.xlsm")
   
6. 'For Each sht In wb.Sheets
   
7. '    sht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '复制整个工作表的sheet
   
8. 'Next sht
   
9. ActiveSheet.AutoFilterMode = False
   
10. With wb.Sheets(4).Range("b1:V2000").Copy
    
11.     With ThisWorkbook.Sheets(2).Range("a1")
    
12.      .PasteSpecial xlValues
    
13.      .PasteSpecial xlFormats
    
14.     End With
    
15. End With
    
16. Application.ScreenUpdating = True
    
17. Application.CutCopyMode = False    '退出时清空copy的剪贴板内容
    
18. ActiveWorkbook.Close SaveChanges:=False '关闭打开的连接表
    
19. End Sub

复制代码

stvent

请问这个报错怎么改？

stvent

早上好各位

Jerry丶

这个是格式的问题吧，你用2013的版本另存为一个通用的格式试试

zxsea_7426

我的理解是地址是不是不全啊。

stvent

zxsea_7426 发表于 2023-3-9 09:48
我的理解是地址是不是不全啊。

2013运行正常的

stvent

Jerry丶 发表于 2023-3-9 09:45
这个是格式的问题吧，你用2013的版本另存为一个通用的格式试试

这个不行的

stvent

看来是无解了

Jerry丶

stvent 发表于 2023-3-9 17:44
2013运行正常的

2013版能运行是正常的，你07版可能就是不兼容这个格式，所以让你用2013版的保存一个通用的格式