VBA:如何遍历文件夹下面所有工作簿，然后每个工作簿添加一个新工作表

使用dir可以编列文件夹，一般结构是：

path="d:\xls\"

filename=dir(path & "*.xls*")

while filename<>""

    set wb=workbooks.open(path & filename)

    wb.sheets.add

    wb.save

    wb.close

    filename=dir

wend

修改为：

Sub prt()

Dim ws As Workbook, path$, d$

Application.ScreenUpdating = False

path = ThisWorkbook.path & "\"

d = Dir(path & "*.xls")

Do While d <> ""

    If d <> ThisWorkbook.Name Then

        Set ws = Workbooks.Open(path & d)

        ws.Sheets("sheet2").PrintOut

        ws.Close False

    End If

    d = Dir

Loop

Application.ScreenUpdating = True

End Sub

---