VBA笔记

VBA打开文件自动执行宏：

Sub auto_open()
Application.Run "PERSONAL.XLSB!更新在线接电" '此处填工作簿和宏名，若宏位于此工作簿中，则整句直接改为宏名，也无需加双引号
End Sub

遍历文件夹下的所有文件：

Dim fna As String
fna = Dir("C:\周报\*.csv") '正则条件可修改
Do While fna <> ""
'语句块
fna = Dir
Loop

宏禁止屏幕更新：

Application.ScreenUpdating = False
Application.DisplayAlerts = False
'语句块
Application.ScreenUpdating = True
Application.DisplayAlerts = True

选取可用区域：

 

Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select