Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33680 / 76738

←次へ　｜　前へ→


	【48274】Re:フォルダファイルの指定について

りん

- 07/4/11(水) 8:42 -


	引用なし

	パスワード

まちゃさん、おはようございます。

>file-------フォルダ1---最新---book1.xls
>　　　　　フォルダ2---最新---book2.xls
>　　　　　フォルダ3---最新---book3.xls
>　　　　　　
>のような階層で入っているのですが
>ファイル指定の仕方がわかりません。

>fileの下に名前の違うフォルダがいくつか入っています。
>各フォルダの下のフォルダは名前が一緒で”最新”とあります。
>その下のxlsファイルをすべて拾っていきたいのです。
>（xlsファイルの名前も統一されていません）
目安箱の、「【74】FilePathを列挙するサンプル」より。
Sub CallFilePathList1()
　　Dim objFSO　　　　　As Object
　　Dim strTargetPath　 As String　　　　　 '対象フォルダパス
　
　　Set objFSO = CreateObject("Scripting.FileSystemObject")
　　strTargetPath = "C:\File" '親
　　Call EnumFilePathList1(objFSO.GetFolder(strTargetPath))
End Sub
'本体
Sub EnumFilePathList1(objFolder As Object)
　　Dim objTargetFile　As Object
　　Dim objSubFolder　 As Object
　
　　'ファイル名を列挙
　　For Each objTargetFile In objFolder.Files
　　　　'エクセルファイルならばイミディエイトウィンドウに転記
　　　　With objTargetFile
　　　　　　If UCase(Right(.Path, 3)) = "XLS" Then Debug.Print .Path
　　　　End With
　　Next objTargetFile
　
　　'サブフォルダを検索
　　For Each objSubFolder In objFolder.SubFolders
　　　　Call EnumFilePathList1(objSubFolder)
　　Next objSubFolder
End Sub
これでエクセルファイル名を取得して、フォルダ名が条件を満たすものを取得するといいのではないでしょうか？

0 hits

▼

【48245】フォルダファイルの指定について まちゃ 07/4/9(月) 22:11