エクセルVBA、フォルダ選択時のパスを指定するには？

Question

VBAでフォルダを選択する時に以下のマクロを使用しています。
これを実行するとデスクトップから表示されますが、任意のフォルダから表示させることはできないでしょうか？
用途としてはある特定のフォルダ配下に複数のフォルダがあり、これを選択させたいのです。
デスクトップからですと、そのフォルダまで辿り着くのが大変です。
また誤ったフォルダを選択する危険もあります。
このShell32を使うことにこだわってはいません。
他に良い方法があれば、それでも構いません。
よろしくお願い申し上げます。

Sub Macro1()
    MsgBox Folder_Define("フォルダを選択してください")
End Sub

Function Folder_Define(msg As String) As String
    Dim mySh As Shell32.Shell
    Dim myFolder As Shell32.Folder
    Set mySh = CreateObject("Shell.Application")
    Set myFolder = mySh.BrowseForFolder(0, msg, 0)
    If myFolder Is Nothing Then
        Folder_Define = ""
    Else
        Folder_Define = myFolder.Items.Item.Path
    End If
    Set myFolder = Nothing
    Set mySh = Nothing
End Function

Wendy02 · Accepted Answer

こんばんは。
#1です。

>このような手法はどこかＷｅｂに載っているのでしょうか？
本当は、MSDNといいたかったけれども、見当たらなかったです。
以前は、そちらで収録したつもりだったのですが……。

私が、他で参考にしていたところは、以下のサイトです。
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/

書籍もほしいと思いましたが、最近、半分以上は、もう少し上の段階の技術が混じってきて、敷居が高いです。

>上位のフォルダ及びその配下のフォルダを選択させたい場合

今、試してみましたが、このAPI関数で、出来ますね。
http://www.alato.ne.jp/kazu-/vb/tip06.htm

今回のような場合は、hwnd を、0　にしてかまわないと思います。
一応、Excel2000以上なら大丈夫です。

KenKen_SP · Answer

既に解決済みのようですが。。

> 特定のフォルダ以下を選択する場合はこのやり方でＯＫだと思いますが、
> 上位のフォルダ及び...

CreateObject("Shell.Application")  の BrowseForFolder では無理です。

SHBrowseForFolder API でフォルダ選択ダイアログを呼び出すか、
簡単に済ますなら Excel2002 以降限定になりますけど FileDialog
で FolderPicker を使うとか。

参考URL：
http://officetanaka.net/excel/vba/tips/tips39.htm
http://www.asahi-net.or.jp/~ef2o-inue/download/sub09_020_110.html

Wendy02 · Answer

こんばんは。

以下のように換えればよいのではありませんか？
Const STARTFOLDER As String ="任意のフォルダ"

Set myFolder = mySh.BrowseForFolder(0, msg, &H0, STARTFOLDER)

エクセルVBA、フォルダ選択時のパスを指定するには？

こんばんは。

既に解決済みのようですが。

こんばんは。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング