[[20180508092906]]　『指定したフォルダをひらきたい』（Tsun）　ページの最後に飛ぶ

『指定したフォルダをひらきたい』（Tsun）

現在、セルに記入したパスでフォルダを指定していきたいと考えています。
コードは以下の通りになっていますが、
Shellを読み込んで開かれるフォルダはエクスプローラーのドキュメントのフォルダになります。

　Sub ただ開くだけ()

    Dim filepath As String
    filepath = Range("B1").Value
    'Const DIR_PATH = "name"

    Call Shell("Explorer /root,filepath", 1)
　End Sub

追加で、DIR_PATHにもfilepathに入れたパスを代入したいと考えていますが、
フォルダはないといわれるのですが、どうしたモノでしょうか？
ぜひ、アドバイスください。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 "で囲まれたものは文字列とみなされる。
 >Call Shell("Explorer /root,filepath", 1) 
 だとfilepathを文字列とみなしfilepathの内容ではなくfilepathという名前のフォルダを開こうとする。
 Call Shell("Explorer /root," & filepath, 1)
 で試してみてくれ。
（ねむねむ） 2018/05/08(火) 09:43

＞ねむねむ様

無事、ファイルを開くことが出来ました。
有難うございました。
（Tsun） 2018/05/08(火) 09:45

コメント返信：

[ 一覧(最新更新順) ]

[[20180508092906]] 『指定したフォルダをひらきたい』（Tsun） ページの最後に飛ぶ

[[20180508092906]]　『指定したフォルダをひらきたい』（Tsun）　ページの最後に飛ぶ