- ベストアンサー
（vba）フォルダの中の全てのファイル名を取得したい
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
＞どうすればいいのかがさっぱりわかりません。 ＞For Each...Next ステートメントとDirと "*.*"を使うのはなんとなくわかるのですが まで大筋が判っておれば、できると思うが。つまるところ、習い覚えの経験が不足していると思う。 ーー For Each...Next ステートメントとDirを使う、もＷＥＢ照会で知ったのでしょう。 大筋はわかっているようだから、さらに突っ込んで、どこがわからないのか絞って質問すべきです。 Ｇｏｏｇｌｅで「フォルダ ファイル Ｄｉｒ ＶＢＡ」で照会したら イヤと言うほどズバリに近いコード例が出ると思うよ。なぜＷＥＢ照会を活用しないのか。 http://officetanaka.net/excel/vba/tips/tips95.htm ほか多数。 サブフォルダーを含まないものなら簡単。
その他の回答 (1)
- mitarashi
- ベストアンサー率59% (574/965)
「vba フォルダの中の全てのファイル名を取得したい」 で検索すると、よりどりみどり見つかります。 手前味噌（死語？）ですが、 http://okwave.jp/qa4847039.html のNo.2にサブフォルダー対応版のコードを回答してあります。
お礼
ありがとうございます。参考になりました。
関連するQ&A
- VBA 一つのフォルダの中のフォルダ名とファイル名
一つのフォルダの中のフォルダ名とファイル名を取得したい場合は ************************************** Sub test() Dim MyFileName As String Dim MyFolderName As String Dim myFSO As Object Dim MyFolder As Scripting.Folder MyFolderName = "C:\" 'フォルダを取得 MyFileName = Dir(MyFolderName & "*.*") Do While MyFileName <> "" Debug.Print MyFileName MyFileName = Dir() Loop 'ファイルを取得 Set myFSO = CreateObject("Scripting.FileSystemObject") With myFSO With .GetFolder(MyFolderName) For Each MyFolder In .SubFolders Debug.Print MyFolder.Name Next End With End With Set myFSO = Nothing End Sub ************************************** の様に ファイル名・フォルダ名をそれぞれループして取得しないとダメでしょうか？ もうちょっとスマートなコードはありますか？
- ベストアンサー
- その他（プログラミング・開発）
- 全てのサブフォーム名を取得したい
オフィス２００７です。 Sub test() Dim obj As AccessObject For Each obj In CurrentProject.AllForms Debug.Print obj.Name Next End Sub --------------------------------- 上記のコードでデータベースのすべてのフォーム名は取得できますが フォーム１に乗っかっている複数のサブフォームを取得するにはどうすればいいのでしょうか？ サブフォームに独自の名前を付けて、IFステートメントを使うしかないですか？
- ベストアンサー
- オフィス系ソフト
- 全てのプリンター名を取得したい
エクセルで全てのプリンターのプリンター名・ドライバー名・ポート名を取得する コードを実行したいのですが Sub Sample() Dim prtLoop As Printer For Each prtLoop In Application.Printers With prtLoop Debug.Print "Device name: " & .DeviceName Debug.Print "Driver name: " & .DriverName Debug.Print "Port: " & .Port End With Next prtLoop End Sub これをそのまま貼り付けて実行しようとすると、 「prtLoop As Printer」が、ユーザー定義型は定義されていません。 になります。 何に参照設定すればいいのかわからないので、 とりあえず Dim prtLoop As Object にしたのですが、 今度は For Each prtLoop In Application.Printers で 実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 になります。 どうすればいいか教えてください。
- ベストアンサー
- Excel（エクセル）
- ブックのすべてのシート名を取得するコード
何が間違いなんでしょうか？ エクセル２００３です。 ブックのすべてのシート名を取得するコードを考えてるのですが なぜか一番左のシート名しか取得できません。 コードは↓です。 ----------------------------------- Sub test01() Dim x As Workbook For Each x In Workbooks Debug.Print ActiveSheet.Name Next End Sub ----------------------------------- できないので「Workbooks」の部分を「ThisWorkbook」に変えてみたところ 実行時エラーになってしまいました。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- フォルダ内にあるファイル名を取得するVBA
エクセル2010を使用しています。 VBA（マクロ）で以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 「マクロ」ファイルにある「実行」Sheetというにある「実行」ボタンで L2に入力したパス内にあるファイル（.xlsや.xlsmや.xlsbが混在しますが、基本的には全てエクセルファイル）のファイル名を K8から下へ取得したいのですが・・ 参考にしたコードでは うまく動作しませんでした。 以下では、L2のパスを参照するのも組めていないため、コード内に直接パスを書き込んでいますが 実際は、パスを変動させて使いたいので、L2を参照できるようになると助かります。 ※パスは、質問用に仮置きで「パス」としています。 Sub Sample() Dim buf As String, cnt As Long Const Path As String = "パス" buf = Dir(Path & "*.*") Do While buf <> "" cnt = cnt + 8 Cells(cnt, 11) = buf buf = Dir() Loop End Sub また、このコードでは 実行ファイル自体のファイル名も取得してしまうようなので、 実行ファイル以外のファイル名を取得したいです。 ご指導のほど、よろしくお願い致します。
- ベストアンサー
- Visual Basic
- DIR関数を使ったファイル名の取得
おはようございます。 txtファイル名とdocファイル名を取得したく、以下のコードを作成してみました。 DIR関数を使って、ファイルリストボックスのPatternプロバディのように、複数の形式のファイル名を同時に取得する方法はあるのでしょうか? 是非、教えてください。よろしくお願いします。 ----------------------------- Private Sub Form_Load() Dim MyName MyName = Dir("C:\My Documents\*.txt") Do While MyName <> "" MsgBox MyName MyName = Dir Loop MyName = Dir("C:\My Documents\*.doc") Do While MyName <> "" MsgBox MyName MyName = Dir Loop End End Sub -------------------------------------
- ベストアンサー
- Visual Basic
- 全サブフォルダのファイルの取得
VB6のFileSystemObjectを使って、サブフォルダの中のファイルを取得したいのです。 For Each ～ Next 文などをつかっていろいろやっているのですが、どうしてもサブフォルダ以降のサブサブフォルダから下が取得できません。 誰か教えてください。
- ベストアンサー
- Visual Basic
- ファイル名の取得（エクセルVBA）
エクセル９７を使用しています。 過去ログを見て、ファイル名の取得にDir関数が使えることは、判ったのですが、不特定数のファイル名に対応する方法が思いつきません。 特定のフォルダ内の、数が可変するファイルのファイル名を、検索した時点で、全部セル（または変数でも可）上に取得する方法って、ありますでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ExcelVBAでサブフォルダ名などを取得したい
ExcelVBAで、Dドライブ内の特定のフォルダ（D:\My Documents等）の中にある全てのフォルダ名やファイル名を取得したいのですが、方法が分かりません。 Dドライブのすぐ下にあるフォルダはDirで取得できるようなのですが、サブフォルダ名が取得できないのです。 具体的にどのように書いたらよいかお教えいただけるとうれしいです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- フォルダ内のファイル名取得の仕方が分かりません
Apache2.0.47、PHP4.3.2で使用しています。 フォルダ内のファイル名の取得を以下のように書いています。 （scandirは使えませんでした） <?php $dir = "test_dir"; $dh = opendir($dir); while (false !== ($filename = readdir($dh))) { $files[] = $filename; } sort($files); print_r($files); ?> "."と".."も取得されるので、以下のように変更したのですが同じ結果でした。 <?php $dir = "test_dir"; $dh = opendir($dir); while (false !== ($filename = readdir($dh))) { if(filename!=". "){ if(filename!=".. "){ $file[] = $filename; } } } sort($files); print_r($files); ?> "."と".."をはぶいたファイル名だけを取得したい場合にはどうすればよいのでしょうか？ よろしくお願いします。
- ベストアンサー
- PHP
お礼
その条件で調べればよかったですね。 ありがとうございます。