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

Question

如题所述

Answer 1

使用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追问

最后一行wend是什么