- Excel VBA 質問スレ Part68
259 :デフォルトの名無しさん (ワッチョイ b7e5-cmNC)[sage]:2020/09/16(水) 19:55:21.82 ID:KOE6L/fW0 - >>257
拾い物、動くかどうかは知らん Sub ボタン1_Click() Dim Shell, Folder Set Shell = CreateObject("Shell.Application") Set Folder = Shell.Namespace(Range("A1").Value) Fil = Dir(Range("a1").Value & "\*.*") Rows("5:65536").ClearComments i = 5 Do While Fil <> "" For j = 0 To 40 Cells(i, j + 1).Value = Folder.GetDetailsOf(Folder.ParseName(Fil), j) Next i = i + 1 Fil = Dir() Loop Set Folder = Nothing Set Shell = Nothing End Sub
|
|