Excelファイルが存在するPC名が取得できません

質問

Excelファイル自身のファイルパスはThisWorkbook.FullNameURLEncodedで取得できました。しかし、Excelファイルが存在するPC名が取得できません。どうしたらよいでしょうか。

回答No.2

imogasi

WEB照会して、ＡＰＩですが
http://www2.moug.net/bbs/exvba/20071008000009.htm
を見つけました。
エクセルＶＢＡで確認済み。どうでしょうか。
Private Declare Function GetComputerName Lib "KERNEL32.dll" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Sub test04()
MsgBox apiGetUserName()
End Sub

Function apiGetUserName() As String

Application.Volatile
Dim sBuff As String * 25
Dim lBuffLen As Long

lBuffLen = 25
GetUserName sBuff, lBuffLen
apiGetUserName = Left$(sBuff, lBuffLen - 1)

End Function

回答No.1

redfox63

FullNameURLEncodedから切り出すのではダメなのでしょうか？

　　dim s as String
　　s = ThisWorkbook.FullNameURLEncoded
　　if left(s,2) = "\\" then
　　　　s = left( s, InStr( 3, s, "\" ) - 1)
　　end if
　　Debug.Print s

といった具合ですが ・・・