@VBA
常用功能
关闭Excel功能提高效率
代码片
Application.ScreenUpdating = False '关闭屏幕刷新 当有数据在表上读写的时候,Excel会逐步展示给你看的,这个展示过程可能涉及到读写硬盘缓存之类操作,所以当有部分程序读写操作比较频繁时候,就会引起速度很慢,导致整个程序运行效率很低
Application.DisplayAlerts = False ' 显示特定的警告和消息关闭
读取文件夹下所有文件
Dim fso,FS As Object
Set fso = CreateObject("scripting.filesystemobject")
thisPath = ThisWorkbook.path ''当前文件夹路径
For Each FS In fso.getFolder(fromPath).files
Debug.Print FS.Name ''文件名称
Debug.Print FS ''文件名称全路径
FileCopy FS, thisPath & "/new/" & FS.Name ' 将源文件的内容复制到目的文件中。
Kill FS ''删除文件
Next
读取Excel
代码片
Dim fso As Object
Dim dataExcel, Workbook, w
1678




被折叠的 条评论
为什么被折叠?



