Question

如何对同一文件夹下多个excel文件进行相同的宏操作

我已经写好了一个宏，称它为sub A
sub A实现的是，把当前打开的工作簿复制一个，再把所有工作表的所有单元格复制，在原位置选择性粘贴数值，然后把新生成的这个只有数值的文件在相同目录下另存为原工作簿文件名+数值。
现在有很多工作簿，我把它们都放在同一个文件夹下，我现在需要一个按钮，点一下后，整个工作簿所有excel文件都执行sub A，excel文件名没有规律。
大概要实现的步骤就是，打开第一个excel，执行sub A，关闭第一个excel，打开第二个excel，执行sub A，关闭第二个excel，以此类推到最后一个excel。我更希望可以形成一个exe文件，或者在excel里的宏
这是代码，请大家再帮忙看看！

Answer 1

存放在同一文件夹下有点难，不如先放在另外一个文件夹

 Dim r&, Filename$, wb As Workbook, sht As Worksheet,  fn$
    Application.ScreenUpdating = False
    Filename = Dir(ThisWorkbook.Path & "\*.xlsx")
    Do While Filename <> ""
        If Filename <> ThisWorkbook.Name Then
            fn = ThisWorkbook.Path & "\" & Filename
            workbooks.open(fn)
            .
            .
            .
        End If
        Filename = Dir '取得其他工作簿名称
    Loop
    Application.ScreenUpdating = True

Answer 2

dir ifile as string
ifile=dir("c:\123\*.xls")
while ifile<>""
调用宏A(ifile)
iffile=dir
wend