ExcelVBA ショートカットファイルからリンク先を取り出す

質問

こんにちは！
「.lnk」などのショートカットファイルからリンク先のパスを取り出したいのですが、どうやればいいのでしょうか？
エクセルシートのセル上に、ショートカットファイルのパスが書いてあります

回答No.1

marbin · ベストアンサー

セルから.lnkのパスを取得する形になってないですが、
少し改造すればお望みのことが出来ると思います。

Sub test()
Dim objWSShell As Object
Dim objSC As Object
Set objWSShell = CreateObject("WScript.Shell")
Set objSC = objWSShell.CreateShortcut("C:\Documents and Settings\marbin\デスクトップ\test.lnk")
MsgBox objSC.TargetPath
End Sub

お礼

回答ありがとうございます！
やってみます！