excelのセルからフォルダーを取得しShell関数でexploreを起動するには

解決

---

下記を実行するとファイルが見つかりませんのエラーが表示されます。
Call Shell文において,設定が正しくないのかと思います。
どなたか、正しい設定方法を教えてください。よろしくお願いします。
Dim S As String
  Worksheets(2).Select
  S = Range("A1").Select
Call Shell("explorer.exe""S""", vbNormalFocus)

編集 削除

---

>Call Shell("explorer.exe""S""", vbNormalFocus)
"explorer.exe""S""" だと explorer.exe"S" となってしまいます。
Call Shell("explorer.exe " & S, vbNormalFocus)  これでどうですか。

編集 削除

---

ｍさんへ、ありがとうございます。
ｍさんのアドバイス通りにしたのですが、まだ
”ファイルが見つかりません”のエラーが表示されています

編集 削除

---

>”ファイルが見つかりません”のエラーが表示されています
変数 S にはなにが入っているのでしょうか？
きちんとパスを指定する必要があります。

編集 削除

---

ｍさんへ、早速のご返答ありがとうございます。
Ｓには、C:\.\  が入っています。

編集 削除

---

explorer.exe パス名
            ^ここにスペースがないのでは・・・

編集 削除

---

m さんへ、S を他の名前に変えましたら、問題無く稼動しました。
ありがとうございました。

編集 削除

---

ｍ  さんへ
マクロをよく見ると解決されていませんでした。
下記としてたのですが、FOLTERSS とスペルミスをしていたので、
エクスプローラーが起動し、うまくいったと勘違いしてしまいました。

Dim FOLDERSS As String
  Worksheets(2).Select
  FOLDERSS = Range("A1").Select
Call Shell("explorer.exe" & FOLTERSS , vbNormalFocus)

編集 削除

---

>FOLDERSS = Range("A1").Select
Range("A1").Select はどういった文字列が入っているのでしょうか？

編集 削除

---

ｍ  さんへ、
まず、FOLDERSS = Range("A1").Select が間違いで
      FOLDERSS = Range("A1").value に訂正しました。
下記を実行したのですが、ファイルが見つかりません  が表示されます
Call Shell("explorer.exe" & FOLDERSS , vbNormalFocus)
デバッグで FOLDERSSの内容を見ると  "C:\.\" です。

編集 削除

---

ｍ さんへ
FOLDERSS の内容を手で入力しても同じエラーが発生します。
Call Shell("explorer.exe" & "C:\.\" , vbNormalFocus)

編集 削除

---

前にも書きましたが、
>>Call Shell("explorer.exe""S""", vbNormalFocus)
>"explorer.exe""S""" だと explorer.exe"S" となってしまいます。
>Call Shell("explorer.exe " & S, vbNormalFocus)  これでどうですか。

FOLDERSSの内容が "C:\.\" なら、
'explorer.exeC:\.\' となってしまうので、
'explorer.exe' と 'C:\.\' の間に半角スペースがいります。

編集 削除

---

スペースが無いだけでは？
Call Shell("explorer.exe" & " C:\.\", vbNormalFocus)
だったら動くと思います。

Call Shell("explorer.exe" & space$(1) & FOLDERSS , vbNormalFocus)

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。