質問: VBA初心者です。 エクセルVBAについて、詳しい方のご教授をお願い致します。 ■やりたいこと C:\作業用フォルダを検索。
回答: セル(C、10)、セル(C、11)・・・がC10,C11...だと思いますが、その場合です。 Sub sample() Dim fso As Object Dim rootFolder As String Dim targetFolder As String Dim subFolder As Variant Dim r As Long Dim file As String rootFolder = "C:\作業用フォルダ\" '大本のフォルダ targetFolder = InputBox("フォルダ=") 'フォルダ名入力 If targetFolder = "" Then Exit Sub '空白なら終わり 'フォルダ検索 Set fso = CreateObject("Scripting.FileSystemObject") 'fso If Not fso.FolderExists(rootFolder & targetFolder) Then '目的のフォルダが無ければ MsgBox subFolder & " フォルダ無し" Exit Sub '終了 End If 'Aチーム、Bチーム内テキスト検索 Range("C10:C" & Rows.Count).ClearContents '結果クリア(必要なら) r = 10 '結果表示行(初期値=10) For Each subFolder In Array("Aチーム", "Bチーム") 'サブフォルダを順に file = Dir(rootFolder & targetFolder & "\" & subFolder & "\*.txt") 'サブフォルダ内のテキストファイル Do While file <> "" 'ファイルがある間 Range("C" & r).Value = rootFolder & targetFolder & "\" & subFolder & "\" & file 'テキストファイル名表示 r = r + 1 '結果表示行+1 file = Dir '次のファイル名 Loop Next If r = 10 Then MsgBox "作業無し" End Sub