サブフォルダパス（）
薄暗い$ fpは、Asのobmappがオブジェクト
=のCreateObject（ "Shell.Applicationの"）BrowseForFolderセットobmappを。（0、 "ファイルのディレクトリを選択："、0、0）
の場合は、何もないobmappない次にである
FP = obmapp ＆.Self.Path ""
そうでなければ
終了サブが
あれば終了
MsgBoxにFP
End Subのを
VBAは、組み込みのダイアログでフォルダのパスを取得します
おすすめ
転載: www.cnblogs.com/zhujie-com/p/11695608.html
おすすめ
ランキング