No.1
- 回答日時:
一例ですが、下記のコードは、ファイル選択ダイアログからファイル(複数可)を
選択し、フルパスでファイル名をアクティブシートのA1から下へ書き込みます。
Sub test1()
Dim FName As Variant
Dim I As Integer
FName = Application.GetOpenFilename _
("Excelファイル (*.xls), *.xls", , , , True)
For I = 1 To UBound(FName)
ActiveSheet.Cells(I, 1).Value = FName(I)
Next I
End Sub
こんなもので、どうにか参考になりませんか。
この回答への補足
回答ありがとうございます。
同じ様なのは、作れたのですが、
フォルダを選ぶと、そのフォルダの中のファイルを
全部表示するようにしたいのです。
わかりましたら、よろしくお願いします。
No.2
- 回答日時:
こんなのはどうでしょう、他にもっと良い方法があるのかもしれませんが。
Sub Test()
Dim FileName As Variant
FileName = Application.GetOpenFilename _
("JPEGファイル (*.jpg),*.jpg")
If FileName = False Then Exit Sub
MsgBox Mid(FileName, 1, _
InStrRev(FileName, "\") - 1)
End Sub
この回答への補足
回答ありがとうございます。
このVBAと同じように、ファイルを選択してフォルダ名を取得するようにしてるのですが
これを、直にフォルダを選ぶようにしたいのです。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
こんな使い方が正しいかどうか分かりませんし、ご希望のものとは少し違うかもしれませんが、参考までに…。
Sub Test2()
Dim FileName As Variant
FileName = Application.GetSaveAsFilename _
(InitialFileName _
:="フォルダを選択してください", _
FileFilter:="(*.---),*", _
Title:="フォルダの選択")
If FileName = False Then Exit Sub
MsgBox Mid(FileName, 1, _
InStrRev(FileName, "\") - 1)
End Sub
No.4
- 回答日時:
>> VBAでフォルダのフルパスを取得したいのですが出来るでしょうか?
> フォルダを選ぶと、そのフォルダの中のファイルを
> 全部表示するようにしたいのです。
うぅ~ん どっちなんでしょうかね。
なんか趣旨が一貫していないような気がしますが・・・
ホルダだけ指定するのであれば、組込みのダイアログを使用するのは、
無理があると思います。
それであればフォルダ名を選択するフォームを作ったら如何でしょうか。
選択するホルダは、ある1個のホルダの中の複数のホルダということで
いいのですか?
下記の例は、フォームにリストボックスとコマンドボタンを配置し、
そのリストボックスに表示されたフォルダの中から選択するように
したものです。
例では、ユーザーフォームの名前を UserForm1、リストボックスの名前を
ListBox1 とします。
"c:\test\"の中のホルダをリストボックスに表示し、選択したホルダの
中の標準ファイルだけをMsgBoxに表示します。
やりたいことがいまいち解りませんので、外れているかも知れませんが、
推測したところでは、こんな感じです。
Public MyPath As String
Sub test2()
Dim MyName As String
MyPath = "c:\test\"
MyName = Dir(MyPath, vbDirectory)
UserForm1.Show (vbModeless)
UserForm1.ListBox1.Clear
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) And vbDirectory) = _
vbDirectory Then
With UserForm1.ListBox1
.AddItem MyName
.ListIndex = 0
End With
End If
End If
MyName = Dir
Loop
End Sub
Private Sub CommandButton1_Click()
Dim FName As String
Dim Rw As Integer
Dim FNdsp As String
MyPath = MyPath & Me.ListBox1.Value & "\"
FName = Dir(MyPath, vbNormal)
Do While FName <> ""
If FName <> "." And FName <> ".." Then
If (GetAttr(MyPath & FName) And vbNormal) = _
vbNormal Then
Rw = Rw + 1
' Cells(Rw, 1).Value = FName
FNdsp = FNdsp & MyPath & FName & vbCrLf
End If
End If
FName = Dir
Loop
UserForm1.Hide
MsgBox FNdsp
End Sub
この回答への補足
すみません、質問がごちゃごちゃしてしまいました。
今作ってるのが、フォルダ名をセルに入れてVBAを実行すると
セルにファイルのリストを表示するものなので
そのフォルダ名を簡単に取得出来ないものかと調べていました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Windows 10 コマンドプロンプトの使い方 1 2022/10/13 14:43
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Visual Basic(VBA) Excel VBA ファイル取得について フォルダの中に、ファイル名“会議“を含むファイルが1つまた 9 2022/10/12 01:18
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
フォルダにリンクを貼りたい
-
ディレクトリ名変更してコピー...
-
保存先のフォルダ名を指定した...
-
平日出力されるログを月次処理...
-
pythonでDepixを起動
-
フォルダ選択ダイアログ:ネッ...
-
VBA 最新のフォルダ取得
-
EXPLORERで開いているフォルダ...
-
Excel VBA マクロ リストボックス
-
エクセルマクロで指定フォルダ...
-
Access VBA で フォルダ権限...
-
エクセルのデータをメモ帳に貼...
-
Pythonの作業環境・作業フォル...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
指定フォルダからファイルを全...
-
ツリービューを使って、エクス...
-
フォルダのサイズを一覧にした...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報