ここから本文です

【VBA】 ファイルオープンダイアログのようなものを作りたいのですが・・・・・ ...

moe********さん

2012/9/2012:01:56

【VBA】 ファイルオープンダイアログのようなものを作りたいのですが・・・・・

ファイルオープンダイアログのようなウィンドウをVBコードで作りたいです.

ボタンを押下するとウィンドが表示されて指定のフォルダにあるファイルを絞り込んで表示させたいのです.
たとえば,「C:\test\」フォルダにある拡張子がdatのファイルのみを表示させたい.
そこで選択されたファイル名を関数の戻り値として受け取りたいのです.

ファイルオープンダイアログですと実際にファイルを展開して読み込む動きになるので,求めてる動作と違います.
単にファイル名だけ受け取りたいです.
ファイル名を選択するのにダイアログウィンドのようなものを使いたいと思っています.
ファイル作成日時等も同時に記載されていると良いです.

どなたかご教授願います.

閲覧数:
262
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

riv********さん

2012/9/2012:30:28

作らなくとも
Function File選択(パス As String) As String
Dim Fname As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "CSVファイル", "*.csv"
.InitialView = msoFileDialogViewDetails
.InitialFileName = パス
.AllowMultiSelect = False
If .Show = True Then
Fname = .SelectedItems(1)
End If
End With
File選択 = Fname
End Function
でファイル名が受け取れます(Openせずに)。

これでは不満でしょうか?

質問した人からのコメント

2012/9/20 13:07:51

笑う 完璧です!ありがとうございます!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる