Question

大家好我能在桌面上打开任何excel文件。但我无法打开共享路径中的Excel。显示文件未找到错误消息需要你的帮助...！！！路径以两个反斜杠“\ .. \ ..... \”

开头

Sub open_hari()
    Dim r As Long
    For r = 1 To 10
        If Cells(r, 1).Value <> "" Then
            Workbooks.Open Filename:=Sheet1.Cells(r, 1).Value
        End If
    Next r
End Sub

Answer 1

从VBA打开\\myshare\etc\file.xlsx格式的文件没有问题。所以我尝试运行你的代码，它对我起作用，直到找到一个非空的单元格......但是一旦我找到一个文件并打开它，代码就会自动开始查看新工作簿中的单元格（I在第6行有一个文件名;该文件已打开，然后代码查看了新打开的文件中的第7行。这里没有有效的文件名。）

如果这是您的问题的原因，解决方案是在开始滚动它之前设置范围......：

Sub open_hari()
    Dim myCells
    Dim c
    Set myCells = Range(Sheet1.[A1], Sheet1.[A10]).Cells
    For Each c In myCells
        If c.Value <> "" Then
            Workbooks.Open Filename:=c.Value
        End If
    Next c
End Sub

这解决了我的问题...

顺便提一下，你可以添加一行

On Error Resume Next

在

之前

Workbooks.Open

语句。这样，如果单元格包含无效的文件名（但不是空的），代码将保持正常运行。这并没有帮助你弄清楚你的代码有问题，所以在完全调试之前通常不要这样做。如果您启用了错误陷阱，那么查看不同工作表的问题将完全不可见。

宏在共享路径中打开Excel

1 个答案: