後ほど Sub 一覧表作成() Dim arrSubFolders() As String Dim targetPath As String Dim i As Integer With Sheets("Sheet2") .Select .Range("B2") = "フォルダ名" .Range("C2") = "ファイル名" .Range("D2") = "更新日" .Range("E2") = "フルパス" End Wit…