VBAによる絶対パス取得時のサーバー名取得について

質問

いつも、とても助けてもらっています。
ありがとうございます。

EXCELのVBAにて、
開いているファイルの絶対パスを取得したいのですが、
その際にパソコンでドライブ割り当てしているドライブ名でなく、
サーバー名を含んで取得したいです。

どのようにすれば出来ますか？

以下は、ネットで調べて見つけたものですが、
ドライブ名での取得となります。

**
Sub GetCurPath2()
Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
MsgBox FSO.GetAbsolutePathName("")
Set FSO = Nothing
End Sub
**

\\ABC123\DEF\を
パソコン側でGドライブにて割り当てている場合に、
ファイルが\HIJ\KLM\に有ると、
上記のマクロでは、
『G:\HIJ\KLM』と取得出来ますが、
『\\ABC123\DEF\HIJ\KLM』と取得したいのです。

なぜ、このように取得したいかというと、
ファイル（採番台帳）は、採番を取得する台帳で複数のメンバーにて使用し、
そのファイルにて所定の統一の採番したいファイルの内容をファイルに複写し
採番後には採番するファイルから採番したファイルにリンクも付与し、
採番したファイル（所定の場所から採番後には別の場所に採番体系によるファイル名で保管）を
リンクでメールを送るようにしたいからです。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_140.html

よろしくお願い致します。

回答No.1

keithin · ベストアンサー

こんな具合ですかね。
調べたいブックは既に開かれていて，変数oに取得してあるとします。

Sub macro1()
　Dim objNetWork As Object
　Dim objDrv As Object
　Dim i As Long
　Dim d As String
　Dim o As Workbook

　Set o = Workbooks("とりあえず目的のブック.xls")
　d = Left(o.Path, 2)

　Set objNetWork = CreateObject("Wscript.Network")
　Set objDrv = objNetWork.enumnetworkdrives

　For i = 0 To objDrv.Length - 1 Step 2
　　If d = objDrv(i) Then
　　　d = objDrv(i + 1)
　　　Exit For
　　End If
　Next i

　MsgBox d & Mid(o.Path, 3, 99)

　Set objDrv = Nothing
　Set objNetWork = Nothing

End Sub

補足

ありがとうございます。

確かに、ドライブ設定されている場合には、
そのドライブ設定されている、『サーバー＋共有名＋・・・』で取得できます。

質問には書いていなかったですが、
パソコンでドライブ割り当てをしていなくて、
メールからのリンクでファイル（台帳）を開いた場合でも、
正しくサーバーからの絶対パスを取得したいのです。

回答No.2

keithin

ドライブ設定されていない場合は，最初から意図通り「\\サーバ名\…」で取得できているはずですが？

とりあえず当初ご質問は解決し，ご相談は終わっているはずです。
追加ご質問については，具体的な状況（あなたがやっていることの背景じゃなく，実際のエクセルが具体的にどんな結果を返してくるのか）がさっぱり見えませんので，残念ですが回答できません。

「メールからクリックしてブックを開きました」
「その場合の　当該ブック.path　がどうなっています」
「その時に，こういう結果が欲しいです」
といったエクセルの事実を添えて，もう一度ご相談を出し直してください。