VBA常用代码
feixiaoniu987
这个作者很懒,什么都没留下…
展开
-
恢复关闭系统提示
Application.DisplayAlerts=Flase '关闭系统提示Application.DisplayAlerts=true '恢复系统提示代码开始前 关闭系统提示代码结束 恢复系统提示原创 2021-07-08 14:23:51 · 65 阅读 · 0 评论 -
VBA 搜索文件夹下所有xlsx文件,并运行宏
Sub 遍历文件夹下所有文件()''' Dim MyFile As String Dim Arr(100) As String Dim count As Integer MyFile = Dir("C:\Users\60930\Desktop\孔隙体积压缩系数-已完成67\孔隙体积数据2020.12.20-51块\" & "*.xlsx") count = count + 1 Arr(count) = MyFile Do .原创 2021-07-08 09:52:12 · 1004 阅读 · 0 评论 -
VBA 保存文件名和储存
Sub 保存文件名() Range("A1:J20").Select aa = Mid(ActiveWorkbook.Name, 1, 22) '切片文件名字符 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\excel-HONG\" & aa & ".pdf" _ , Quality:=xlQualityStandard, ...原创 2021-07-08 09:48:25 · 2641 阅读 · 0 评论