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

解決済

質問者：jobvba
質問日時：2006/11/13 19:58
回答数：1件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： marbin
回答日時：2006/11/13 20:25

セルから.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