マクロでデスクトップにあるフォルダの中のファイルへリンクさせたい

質問

エクセルでマクロボタン作成後、ボタンを押せば、デスクトップにあるフォルダの中のファイルへリンクさせるようにしたいのですが。マクロ組んでやりましたができません。なぜなのか教えていただけますか。

リンクするアドレス先→C:\\Documents and Settings\\Owner\\デスクトップ\\指導要綱\\091104\\大阪府\\大阪市

自分が組んだマクロ
Sub ボタン4_Click()
'
' ボタン4_Click Macro
' マクロ記録日 : 2010/2/18 ユーザー名 : mako
'
Shell "C:\Documents and Settings\Owner\デスクトップ\指導要綱\091104\大阪府\大阪市"
End Sub

回答No.3

myRange · ベストアンサー

回答１、myRangeです。

＞最終的に開きたい”大阪市”ですがこれはフォルダなんです。
＞そのフォルダが開いた状態のままにしたいんです

こら、こら、こんな大事なことを端折っちゃダメですねぃ。。(^^;;;

explorer.exeを起動させませしょう。

Shell "explorer.exe ""C:\Documents and Settings\Owner\デスクトップ\指導要綱\091104\大阪府\大阪市"""

以上です。

お礼

できました！！どうもありがとうございました！！！

回答No.2

hallo-2007

>ボタンを押せば、デスクトップにあるフォルダの中のファイルへリンクさせるようにしたいのですが
HYPERLINK関数で十分の様な気がしますが。
適当なセルに
=HYPERLINK("C:\Documents and Settings\Owner\デスクトップ\指導要綱\091104\大阪府\大阪市")
そのセルをクリックします。

ファイルの一覧が得られた後にどの様にしたいのかな～？

補足

ご回答どうもありがとうございます。かなりお詳しいですね。確かにハイパーリンクはとても楽な方法ですが、エクセルでJPEGの地図を挿入してその地図の上にボタンを作成してから地図上のボタンを押すと上記の画面がでるようにしたいのです。
地図の上にハイパーリンクは作れませんでした。

回答No.1

myRange

回答が付いてないようなので

Shell関数は、他のアプリを起動させる関数ですよね。
質問者提示のコードには、起動させるアプリがありませんね。

それから、ちょと情報不足してます。

リンクさせたいファイルの名前。
そのファイルを作成したアプリの名前。

例えば、
リンクさせたいファイルがエクセルで作成したファイルで、
ファイル名が、大阪市.xls（xlsは別に指定しなくてもいい）とした場合。
下記でどうでしょう。

Shell "EXCEL.EXE ""C:\Documents and Settings\Owner\デスクトップ\指導要綱\091104\大阪府\大阪市""", vbNormalFocus

これで、大阪市.xlsは立ち上がります。

Excel以外のアプリだったらそれを指定する。
以上です。

補足

ご回答ありがとうございます！！
説明不足で申し訳ありませんでした。
ちょっと補足説明させていただきます。
最終的に開きたい”大阪市”ですがこれはフォルダなんです。そこにPDFがたくさん入ってるんですがそのフォルダが開いた状態のままにしたいんです。