Excel VBA 質問スレ Part83

Excel VBA 質問スレ Part83 (475ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞あぼーん

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

426: デフォルトの名無しさん [sage] 2025/07/18(金) 08:22:30.72 ID:avd6O0J8

>>417 はちょっと手抜きしてたので、ちゃんと作り直した｡
Sub 使い方()
　Set Result = New Collection
　DirMulti "C:\Documents", "A???\B*\Excel\2025????\File*.xlsx", Result, vbNormal
　(以下略)
End Sub

Sub DirMulti(HomePath, SearchPath, ResultCollection, Optional Attributes As VbFileAttribute = vbNormal)
　Pos = InStr(SearchPath & "\", "\")
　Search = Left(SearchPath, Pos - 1)
　NextSearch = Mid(SearchPath, Pos + 1)

Set SearchResult = New Collection
　Res = Dir(HomePath & "\" & Search, vbDirectory Or Attributes)
　Do While Res <> ""
　　If Res <> "." And Res <> ".." Then SearchResult.Add Res
　　Res = Dir()
　Loop

If NextSearch = "" Then
　　For Each Res In SearchResult
　　　ResultCollection.Add HomePath & "\" & Res
　　Next
　Else
　　For Each Res In SearchResult
　　　If (GetAttr(HomePath & "\" & Res) And vbDirectory) <> 0 Then
　　　　DirMulti HomePath & "\" & Res, NextSearch, ResultCollection, Attributes
　　　End If
　　Next
　End If
End Sub

http://mevius.5ch.net/test/read.cgi/tech/1749348402/426

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.026s