宏在共享路径中打开Excel

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格式的文件没有问题。 因此，我尝试运行您的代码，直到发现一个非空单元格为止，它对我一直有效...但是一旦找到文件并打开它，代码就会自动开始查看新工作簿中的单元格（我在第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

声明。 这样，如果单元格包含无效的文件名（但不为空），则代码将继续正常运行。 这并不能帮助您弄清楚代码是否有问题，因此通常最好在彻底调试之后再这样做。 如果您启用了错误陷阱，那么查看另一张纸的问题将对您完全不可见。