使用完整的networking名称更改表名称打开文件

这是一个相当简短的问题，但在线上似乎没有任何答案。

当我这样做：

Workbooks.Open ("Y:\ME\Trends.xlsm") 

一切都很好，一切正常，但是，当我这样做：

 Workbooks.Open("\\*full network name*\ME\Trends.xlsm") 

图表名称更改。 工作簿本质上是10个图表，每个图表都有不同的名称。 当打开完整的networking名称时，它仍然会打开，但表格名称变成“图表1”，“图表2”等。是否有修复？

Answer 1

我无法重新创build这个问题，但可能下面的替代方法来打开工作簿可能会有所帮助。

 Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub OpenTest() Dim objXL As Object Dim oShell As Object Dim strExcel As String Dim WBPath As String strExcel = Chr(34) & "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" & Chr(34) & " /e " WBPath = "\\*full network name*\ME\Trends.xlsm" Set oShell = CreateObject("WScript.Shell") Set objXL = Nothing oShell.Exec (strExcel & Chr(34) & WBPath & Chr(34)) Sleep 2000 Set objXL = GetObject(WBPath).Application objXL.Application.Goto objXL.Sheets(1).Range("A1"), True Set objXL = Nothing End Sub