近期在对xlsm文件反复调用宏的过程中,有以下几点细节可以帮助改进效率:
1、限定处理文件格式
fileName = Dir(folderPath & "*.xlsm")
2、跳过自动更新链接,同时非只读
Set wbSource = Workbooks.Open( _
fileName:=folderPath & fileName, _UpdateLinks:=0, _ReadOnly:=False)
3、循环需要调用宏
Application.Run "'" & wbSource.Name & "'!宏名_Click"
4、关闭源工作簿,不保存更改
wbSource.Close SaveChanges:=False
5、释放对象,加快运行速度
Set wsInput = Nothing
Set wsAn = Nothing
Set wbSource = Nothing
正文完