Question

如何对N个excel文件，批量执行同一个宏

请说详细的操作步骤，我对宏不了解，要执行的宏如下（这是我录制的）：这个网页上有说答案http://zhidao.baidu.com/question/1831979053266872820.html?qbl=relate_question_0&word=%C8%E7%BA%CE%B6%D4%B2%BB%CD%ACexcel%C5%FA%C1%BF%D7%F6%BA%EA%B4%A6%C0%ED然后我把题主的宏代码换成我自己的代码，但是提醒编译错误，究竟是怎么改的??
Sub K值平均值()
'
' K值平均值 宏
'
' 快捷键: Ctrl+k
'
Range("B8").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C)"
Range("B8").Select
Selection.Cut
Sheets.Add After:=ActiveSheet
Sheets.Add After:=ActiveSheet
Sheets("Sheet11").Select
Application.CutCopyMode = False
Sheets("Sheet11").Move Before:=Sheets(4)
Range("A1").Select
Sheets("Sheet10").Select
Selection.Copy
Sheets("Sheet11").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=AVERAGE(Sheet10!RC[1]:R[6]C[1])"
Range("A2").Select
End Sub

Answer 1

软件版本：Office2007

举例说明如下：

1.Alt+F11，输入代码如下：

代码解释：先查找当前文件夹下所有的xlsx文件，并通过循环依次打开文件

然后对当前激活状态的Excel文件执行宏命令（此处是给A1单元格赋值）

保存当前Excel文件，并关闭

继续打开下一个，重复上述操作。

2.F5执行代码：

3.这样，打开当前文件夹内的所有Excel文件，就都执行了赋值的宏命令：