ショートカットをブラウザに表示させたい

質問

ブラウザにhttp://www.yahoo.co.jp/を表示させて
ヤフーのアイコンをデスクトップにグイって持って行けば
デスクトップにヤフーのショートカットが出来ますが
このショートカットファイルをＶＢＡで開くことは可能ですか？

ショートカット名は「Yahoo! JAPAN」となっています。

Sub sample()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True
objIE.Navigate "Yahoo! JAPAN"
Set objIE = Nothing
End Sub

と言うように立ち上げられたらと思うのですが
ショートカットのＵＲＬを読み取る方法はありますか？

Sub sample()
Dim ファイル名 As String
ファイル名 = "C:\Documents and Settings\◎◎\デスクトップ\Yahoo! JAPAN"
CreateObject("Shell.Application").ShellExecute ファイル名
End Sub

こっちの方法では、「見つかりません」
と言うエラーになってしまいました。

今回の例題はヤフーだからわかりやすいのですが
実はフォルダに色々なサイトのショートカットを貯めており、
それをＶＢＡで開けたら便利だなと思っています。
お気に入りフォルダみたいな感じになっています。

回答No.1

m3_maki · ベストアンサー

> ファイル名 = "C:\Documents and Settings\◎◎\デスクトップ\Yahoo! JAPAN"

ファイル名が不完全です。
拡張子まで完全に書いてください。

　ファイル名 = "C:\Documents and Settings\◎◎\デスクトップ\Yahoo! JAPAN.url"

お礼

ショートカットの拡張子はurlだったのですね。
気付きませんでした。うまく開けました。

回答No.2

tsubuyuki

Sub sample()
Dim ファイル名 As String
ファイル名 = "フルパス＆ファイル名＆拡張子まで"
CreateObject("Shell.Application").ShellExecute ファイル名
End Sub

で出来ますよ。
例えば
　　ファイル名 = "C:\Users\ユーザー名\Desktop\フォルダ名\ファイル名.url"
など。

ただし、
> フォルダに色々なサイトのショートカットを貯めており、
> それをＶＢＡで開けたら便利だな
ショートカットの数だけコレを書くのであれば、便利かどうかは疑問です。
そもそも、一々エクセルなりワードなりを開いて、そこからブラウザを立ち上げるなら
逆に手間だと思うのですが、どうなんでしょう？

例えば、起動時に動くように

Private Sub Workbook_Open()
Dim myPath As String
Dim mymyFile As String

Range("A:A").Delete
myPath = "フルパス"
myfile = Dir(myPath & "*.*")

i = 1
Do While myfile <> ""
Cells(i, 1) = myfile
i = i + 1
myfile = Dir
Loop
End Sub

などとワークブックのモジュールに仕込んでおき、
起動時にシートにフォルダ内のファイル一覧を書き出し、
（好きな手法ではないですが）セルをダブルクリックするとブラウザが起動するように

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ファイル名 As String
ファイル名 = "フルパス" & Target.Value
CreateObject("Shell.Application").ShellExecute ファイル名
End Sub

をワークシートのモジュールに書いておく・・

と言うやり方は考えられなくはないですが。

どちらにしても、エクスプローラーでフォルダを開くか、
エクセルでブックを開くか、の違いですね。
多分、ですが、早いのは前者でしょう。

お礼

ありがとうございました。