0

大家好，我可以在我的桌面上打开任何 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
4

1 回答 1

0

\\myshare\etc\file.xlsx我从 VBA打开表单文件没有问题。所以我尝试运行你的代码，它对我有用，直到它找到一个非空单元格......但是一旦我找到一个文件并打开它，代码就会自动开始查看新工作簿中的单元格（我在第 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

陈述。这样，如果单元格包含无效的文件名（但不是空的），代码将继续运行。这并不能帮助您发现您的代码有问题，因此在彻底调试之前不要这样做通常是个好主意。如果您启用了错误陷阱，那么您将完全看不到查看不同工作表的问题。

于 2013-04-05T12:47:21.237 回答