EXCEL删除宏

[STlucky]

我有很多个EXCEL文件，里面都有宏代码
如果一个一个删除宏的话很麻烦~~
请问怎么样才能批量将这些文件的宏删除?
如放在同个文件夹然后用VBA处理...

[zsj1101]

方法有好多种，以下是其中的一种:
Function CancelMacro(FileName As String)
Dim Wk As Workbook
Set Wk = GetObject(FileName)
Wk.Sheets.Copy
Wk.Close savechanges:=False
Set Wk = Nothing
Application.DisplayAlerts = False
Call ActiveWorkbook.Close(True, FileName)
Application.DisplayAlerts = True
End Function

[BingCheung]

建议到http://www.officefans.net这个OFFICE专门的网站搜索一下相关资源！

[STlucky]

好的~~~~我试下
谢谢啊