excel如何将录制的宏应用到不同文件夹下的.xls文档

把“共享工作簿”的操作录制成一个新宏。

如何把这个宏应用到a、b、c三个文件夹下所有.xls文档？

高手指教。
a、b、c三个文件夹下有300多个.xls文档

这300多个.xls文档都需要共享，我录制一个“共享工作簿”的宏，但是如此快速的应用到300多个.xls文档？

一个一个的设置太麻烦了。

需要用到vba吗？

回:uuct

保存成“个人宏工作簿”，设置一个快捷键，打开一个.xls文档，设置一下，但是这样太慢了，有300多个文档呢，有没有更快的方法？或者是写一段vba代码？

在D盘建一个“Test”文件夹，并在Test文件夹下面放一个“结果”文件夹，把你要共享的文件拷贝到Test文件夹下，然后打开一个空白Excel文档执行下面的代码。
Sub xlsShare()
Dim Axls As String
Dim PsDoc As Workbook
Dim CurPath, Newpath As String
'On Error Resume Next
ChDrive "D"
ChDir "D:\test"
Axls = Dir("*.xls")
Application.ScreenUpdating = False
Do While Axls <> ""
CurPath = CurDir("D")
Set PsDoc = Workbooks.Open(Axls)
Workbooks(Axls).Activate

ChDrive "D"
ChDir "D:\test\结果"

With ActiveWorkbook
.KeepChangeHistory = True
.ChangeHistoryDuration = 30
End With
ActiveWorkbook.SaveAs Filename:=Axls, AccessMode:=xlShared
With ActiveWorkbook
.AutoUpdateFrequency = 5
.AutoUpdateSaveChanges = True
End With
ActiveWindow.Close SaveChanges:=False

ChDrive "D"
ChDir "D:\test"