2

これはかなり短い質問ですが、オンラインで答えを知っている場所は他にないようです。

私がこれを行うとき：

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

すべて問題ありませんが、これを行うとすべてが機能します。

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

チャート名が変わります。ワークブックは基本的に 10 個のグラフであり、それぞれに異なる名前が付いています。完全なネットワーク名で開くと、それでも開きますが、シート名が「Chart 1」、「Chart 2」などになります。これに対する修正はありますか?

4

1 に答える 1

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
于 2013-10-29T17:19:26.380 に答える