excel - 打开具有完整网络名称的文件会更改工作表名称

Question

这是一个非常简短的问题，但网上似乎没有其他地方知道答案。

当我这样做时：

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

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

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

图表名称发生变化。该工作簿本质上是 10 个图表，每个图表都有不同的名称。使用完整的网络名称打开时，它仍然打开，但工作表名称变为“图表 1”、“图表 2”等。有解决办法吗？

Answer 1

我无法重新创建此问题，但以下打开工作簿的替代方法可能会有所帮助。

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