共享盘地址无法读取时报错无法继续

rocklyman

人员名单放在共享盘中，以便于随时更新，但未联网的电脑想通过报错时，直接用设定好的名单，但到
“Set wb = Workbooks.Open(path, ReadOnly:=True)”这一步就卡住运行不下去了，有大神帮忙看看吗，如何让代码继续运行下去

1. Sub test()
   
2. Dim path As String
   
3. On Error Resume Next
   
4. 
   
5. path = "\\10.99.10.142\人员名单.xlsx"
   
6. Set wb = Workbooks.Open(path, ReadOnly:=True)
   
7. 
   
8. If Err.Number = 1004 Then
   
9.     arr = Array("张三", "李四", "王五")
   
10. Else
    
11.     Set ws = wb.Sheets(1)
    
12.     arr = Application.WorksheetFunction.Transpose(ws.Range("A2:A" & ws.Range("A2").End(xlDown).Row))
    
13. End If
    
14. 
    
15. End Sub

复制代码

新建Microsoft Excel 工作表.zip (11.17 KB, 下载次数: 2)

2024-5-1 21:17 上传

点击文件名下载附件

剑指E

rocklyman

剑指E 发表于 2024-5-1 21:48

原来如此，感谢大神