VBAでユーザーにフォルダを指定させたい

質問

Win2000でEXCEL97を使ってます。
　ExcelVBAでダイアログボックスなどによりユーザーにフォルダを指定させたいのです。
　ファイルを指定させるには、GetOpenFileNameメソッドを使えば出来ることは分かったのですが、フォルダを指定させるような方法が分からないのです。
　本で読んだところでは、Excel2002ではFileDialogプロパティで可能なようなのですが、Excel97では出来ないようで…
　97でも可能な方法があればご教授下さい。
　よろしくお願いします。

回答No.15

kakusuke · ベストアンサー

こんな感じで。
[標準モジュール側]
Option Explicit

Public FILEPATH As String

Public Sub FilePathGet()
UserForm1.Show vbModal
MsgBox FILEPATH
End Sub

[ユーザーフォーム側]
Option Explicit

Private Sub UserForm_Activate()
Dim I As Integer
Dim strFileName As String
Dim strWorkFileName As String
Dim strCurrentDirectory As String
Dim strCurrentDrive As String
'ドライブ名の保存
strCurrentDrive = Left$(CurDir$, 1)
'ディレクトリ名の保存
strCurrentDirectory = CurDir$

'読み込み専用のチェックボックスを隠す＆エクスプローラスタイル
CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNExplorer
'規定値をテキストファイルだけ抽出するように設定
CommonDialog1.Filter = "テキストファイル(*.txt)|*.txt|すべてのファイル(*.*)|*.*"
'キャンセル時のエラーナンバーを取得するように設定
CommonDialog1.CancelError = True
'エラーが発生してもプログラムを続行
On Error Resume Next
'コモンダイアログウインドウを「ファイルを開く」形式で表示
CommonDialog1.ShowOpen
'キャンセル時の処理
If Err.Number = cdlCancel Then
'エラーのクリア
On Error GoTo 0
'Command_Endに飛ぶ。
GoTo Command_End
End If
'その他のエラー時の処理
If Err.Number <> 0 Then
'エラーの番号と、エラーメッセージを表示
MsgBox Format$(Err.Number) & ":" & Err.Description, vbOKOnly + vbExclamation, "エラーです。(T_T)"
'Command_Endに飛ぶ。
GoTo Command_End
End If
strFileName = CommonDialog1.Filename
For I = Len(strFileName) To 1 Step -1
If Mid$(strFileName, I, 1) = "\" Then
'ファイルのパス名を取得する。
FILEPATH = Mid$(strFileName, 1, I - 1)
Exit For
End If
Next

Command_End:
'ドライブを元に戻す。
ChDrive strCurrentDrive
'ディレクトリを元に戻す。
ChDir strCurrentDirectory

Unload Me
End Sub

お礼

みなさま本当にありがとうございました。
非常に勉強になりました。
うまくいきそうです。
特に、kakusukeさん、2chさん、たくさんのご回答ありがとうございます。
どちらを20ptにすればいいのか悩みましたが、2chさんには申し訳ありませんが、先着のkakusukeさんに20ptとさせていただきました。
またよろしくお願いします。

回答No.6

kakusuke

browseforfolderだと、
あくまでも
存在しているフォルダしか
使えないので
不便だと思って、
common dialogコントロールを
薦めたんですがねぇ。
ＭＳＤＮにヘルプもあったはずだし。

ちなみに
>１．VBSって何でしょうか？勉強できるような本はありませんか？
たぶんＶＢＡでしょう。

>２．shell.applicationって何でしょうか？
shell32.dll
というプログラムの
クラスオブジェクト（機能）
を使いますよ
という意味。

>３．browseforfolderをヘルプで調べても出てきませんが？
shell32.dllのヘルプってそもそもあるんですか？
２ｃｈさんなら知ってそう。

回答No.5

2ch

っていうか＃１・＃２は無視か

どっちかっていうと、そっちの方がいい。
スクリプトは最終手段として考えるべき。

回答No.4

2ch

スレ見ろ

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=580219

回答No.3

GuruGuru22

こんにちは。
VBS 使うとできます。
こんな感じ。

Dim sh As Object
Dim myFolder As Object

Set sh = CreateObject("shell.application")
Set myFolder = sh.browseforfolder(0, "フォルダを選択してください", 0)

Debug.Print myFolder.Items.Item.Path

お礼

ありがとうございます。
うまくいきました。
申し訳ありませんが、質問があります。
超初心者ですみません。よろしくお願いします。

１．VBSって何でしょうか？勉強できるような本はありませんか？
２．shell.applicationって何でしょうか？
３．browseforfolderをヘルプで調べても出てきませんが？

回答No.2

kakusuke

COMDLG32.DLL
（systemフォルダもしくはsystem32フォルダにある。）
を参照設定して、
オブジェクト（コントロール）を
フォームに貼り付けて使えば
よろしいのではないでしょうか？

回答No.1

papayuka

こんにちは。

WindowsAPIを使わないとダメだったと思います。

http://www14.big.or.jp/~kawamura/
↑こちらのサイトにある、flist.xls で実現されていたと思います。（ソースも見れたと思います）