如何实现一个文件夹下的多个excel文件重复画图操作（VBA）？

Question

如何对同一个文件夹下的多个excel文件执行同一操作呢，比如在2010-05文件夹下的2010-05-01，2010-05-02，2010-05-03，直到2010-05-31文件名，在不打开所有文件的前提下执行统一操作，多谢了。

下面是我录制的对2010-05-01文件的sheet1 和 sheet2 操作的宏，想对其他的excel文件2010-05-02，2010-05-03，2010-05-04直到2010-05-31重复操作。谢谢大家了。

ActiveWindow.SmallScroll Down:=54
Range("A79:A223,C79:C223").Select
Range("C223").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A79:A223,C79:C223")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveWindow.Visible = False
Windows("New Microsoft Excel Worksheet.xls").Activate
Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=48
Range("A79:A223,C79:C223").Select
Range("C223").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("A79:A223,C79:C223")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
End Sub
想强调的是 在不打开所有文件的前提下执行统一操作，多谢了。

Answer 1

把这段代码复制到其他工作薄的VB里面，然后运行，楼主可以试下，因为你的代码不完整，我没有试