Files in a Directory 遍历目录下的文件

Sub Files_In_A_Directory()
    ' 第1步：声明变量
    Dim directory As String, fileName As String, sheet As Worksheet, i As Integer, j As Integer

    ' 第2步：关闭屏幕更新，加快执行速度
    Application.ScreenUpdating = False

    ' 第3步：初始化目录变量，用 Dir 函数找第一个符合条件的文件
    directory = "c:\test\"
    fileName = Dir(directory & "\*.xl??")

    ' 第4步：建立 Do While 循环，只要还找得到文件就继续
    Do While fileName <> ""

        ' 第5步：记录第几个文件，把文件名写进 A 列
        i = i + 1
        j = 2
        Cells(i, 1) = fileName

        ' 第6步：打开这个 Excel 文件
        Workbooks.Open (directory & fileName)

        ' 第7步：把这个文件里每张工作表的名称写进对应行
        For Each sheet In Workbooks(fileName).Worksheets
            Workbooks("files-in-a-directory.xlsm").Worksheets(1).Cells(i, j).Value = sheet.Name
            j = j + 1
        Next sheet

        ' 第8步：关闭这个文件
        Workbooks(fileName).Close

        ' 第9步：找下一个符合条件的文件
        fileName = Dir()

    Loop

    ' 第10步：恢复屏幕更新
    Application.ScreenUpdating = True
End Sub