- 博客(3)
- 收藏
- 关注
RSS订阅原创 恢复关闭系统提示
Application.DisplayAlerts=Flase '关闭系统提示Application.DisplayAlerts=true '恢复系统提示代码开始前 关闭系统提示代码结束 恢复系统提示
2021-07-08 14:23:51
73
原创 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
1043
原创 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
2765
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人