在空白表中的A1单元格放入文件路径,然后运行本宏即可Private Sub 文件夹操作()Application.ScreenUpdating = FalseFolderspec = [a1].ValueSelect Case WorksheetFunction.CountA(ActiveSheet.UsedRange)Case 1:i = 1Dim fs, fSet fs = CreateObject("Scripting.FileSystemObject")Set fs = fs.GetFolder(Folderspec)Set fs = fs.SubFoldersFor Each f In fs i = i + 1: j = 1: Cells(i, 1) = f.Name myName = Dir(Folderspec & "\" & f.Name & "\*") While myName <> "" j = j + 1: Cells(i, j) = myName ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, j), Address:=Folderspec & "\" & f.Name & "\" & myName myName = Dir() WendNextmyName = Dir(Folderspec & "\*") '文件While myName <> "" i = i + 1: Cells(i, 1) = myName ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Folderspec & "\" & myName myName = Dir()WendEnd Sub
