
VBAでフォルダを指定してエクセルファイル名を検索し、ファイル名のリストを作成しようとしています(Excel2010)。フォルダおよびファイルを連番で名づけた順に取得したいのですが、検索するフォルダが、01**,02**,03**・・・110**という連番で名づけられていた場合、検索順が、01,02,03,・・・09,110,111,112、・・となり、連番順に検索できません。1,2,3,・・・10,11・・と名付けると、1**からではなく10**から検索されてしまいます。
01,02,03**・・順で取得する方法と、1,2,3**・・の連番順で取得する方法を教えていただけるでしょうか。
よろしくお願いします。
Sub FileSearch(strPath As String)
Dim fso As Object
Dim strFolder As Variant
Dim strFile As Variant
Dim strPathExcel() As String
Dim l As Long
Set fso = CreateObject("Scripting.fileSystemObject")
For Each strFolder In fso.getfolder(strPath).subfolders
Call FileSearch(strFolder.Path)
Next strFolder
l = 0
For Each strFile In fso.getfolder(strPath).Files
If InStr(strFile.Type, "Excel") > 0 Then
ReDim Preserve strPathExcel(l)
strPathExcel(l) = strFile.Path
l = l + 1
End If
Next strFile
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは。
エクセル VBAだと思いますが、シートに出して、そこで関数やソートなどと組合せて操作したほうが早いと思います。
もし、コードで行うなら、フォルダの中身自体をソートするのかは分かりませんが、まず、以下のようにフォルダとファイルを分離することでしょうね。そして、フォルダに、ソートアルゴリズムを通せばよいです。ただ、ややこしいし、今のところ、一つ下のフォルダーしか調べていません。
'//
Sub TestMacro1()
Dim fso As Object
Dim strPath As String
Dim strFolder As Variant
Dim i As Long, n As Long, j As Long, l As Long
Dim a()
Dim strFile As Variant
Dim strPathExcel() As String
Dim inFiles() As Variant
Dim varFol As Variant
Dim x As Long, y As Variant
Dim ar2 As Variant
'******ユーザー設定**********
Const blnTXT As Boolean = False 'フォルダのテキスト比較
strPath = "C:\Users\Temp\" 'ユーザーフォルダー
'****************************
'Cells.Clear 'シート全体を消す
i = 0
Set fso = CreateObject("Scripting.fileSystemObject")
For Each strFolder In fso.getfolder(strPath).subfolders
ReDim Preserve a(i)
a(i) = strFolder.Path
i = i + 1
Next strFolder
Call Bubble_Sort(a(), blnTXT) 'バブルソート
ReDim inFiles(UBound(a()), 1)
For Each varFol In a()
For Each strFile In fso.getfolder(varFol).Files
If InStr(strFile.Type, "Excel") > 0 Then
ReDim Preserve strPathExcel(l)
strPathExcel(l) = Dir(strFile.Path)
l = l + 1
End If
Next strFile
inFiles(n, 0) = varFol
inFiles(n, 1) = strPathExcel()
n = n + 1
l = 0
Erase strPathExcel
Next varFol
i = 1: j = 1
For x = 0 To UBound(inFiles)
Cells(i, 1).Value = inFiles(x, 0)
ar2 = inFiles(x, 1)
On Error Resume Next
y = Empty
y = UBound(ar2)
On Error GoTo 0
If Not IsEmpty(y) Then
Cells(j, 2).Resize(y + 1).Value = Application.Transpose(ar2)
j = i + UBound(ar2) + 1 + 1
i = j
End If
Next x
End Sub
Sub Bubble_Sort(ByRef a(), Optional txt As Boolean = False)
'txt オプションは、text 比較の意味
Dim u As Long
Dim i As Long
Dim j As Long
Dim t As Variant
Dim m As Variant, n As Variant
u = UBound(a())
i = LBound(a())
Do While i < u
j = u
Do While j > i
If txt Then
m = Dir(a(j), vbDirectory)
n = Dir(a(i), vbDirectory)
Else
m = Val(Dir(a(j), vbDirectory))
n = Val(Dir(a(i), vbDirectory))
End If
If m < n Then '判定 <昇順
t = a(i)
a(i) = a(j)
a(j) = t
End If
j = j - 1
Loop
i = i + 1
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
VBAで新しい日付順にファイルを検索するには?
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サーバ内のフォルダ名と各フォ...
-
ファイル名と同名のフォルダを...
-
ファイルサイズを指定してファ...
-
Access VBA で フォルダ権限...
-
会社のネットワーク上のファイ...
-
Excelで指定したフォルダに保存...
-
ExcelのVBAでフォルダ指定がで...
-
フォルダの場所を可変にしたい...
-
VBAにてツリー階層表示ツールの...
-
excel VBA Dirにて検索したフォ...
-
Windows10でコマンドプロンプト...
-
【VBS】古い日付のフォルダを削...
-
エクセル VBA Filename:=Left(T...
-
【マクロ】フォルダAからダBへ...
-
VB6で7-ZIPのAPIを使用した圧縮...
-
VBA 最新のフォルダ取得
-
パス名に2バイト文字(マルチバ...
-
GetAttrが原因?
-
クラウドにあるフォルダを共有...
-
【マクロ】ファイル名の日付に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
会社のネットワーク上のファイ...
-
ファイル名と同名のフォルダを...
-
デスクトップの画像をhtmlに表...
-
VBA 最新のフォルダ取得
-
VBA フォルダ名に特定の文字を...
-
Excelで指定したフォルダに保存...
-
パス名に2バイト文字(マルチバ...
-
Excelのハイパーリンクについて...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
ExcelVBAでフォルダへのハイパ...
-
VBA フォルダの複数選択ができない
-
フォルダ内のPDFファイル名を変...
-
エクセルマクロで指定フォルダ...
-
excel VBA Dirにて検索したフォ...
-
エクセルのデータをメモ帳に貼...
-
サーバ内のフォルダ名と各フォ...
-
条件に合うフォルダが存在する...
-
VBA フォルダ名と画像ファイル...
おすすめ情報