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

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

1 个答案: