通过文件夹中的所有工作簿循环vba函数

Question

我想遍历文件夹中的所有工作簿，提取名为“Sheet Name”的工作表，并将它们保存为.csv文件，并使用它们所源自的文件的名称。有什么快速的方法呢？

有问题的vba函数示例：

Sub Sheet_SaveAs()
  Dim wb As Workbook
  Sheets("Sheet Name").Copy  
  Set wb = ActiveWorkbook       
  With wb
  .SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.name, FileFormat:=xlCSV
  '.Close False
  End With
End Sub

非常感谢您寻找

编辑：不重复，因为我正在从多个工作簿中提取工作表，而不是从单个工作簿中提取多个工作表。

EDIT2：谢谢大家。

Answer 1

像这样。

更改此路径以适合您的文件夹

finally

码

strFolder = "c:\temp"