VBA- 遍历打开文件夹下所有xls文件，修改字体及默认鼠标指向

本文链接：https://blog.csdn.net/weixin_41844140/article/details/103188875

文件夹下的所有扩展名为xls的excel文件，修改所有工作表字体为“微软雅黑”，以及鼠标默认选中A1单元格

'Path是参数，调用 openFiles 这个方法时传过来的文件夹路径
Sub openFiles(Path)
    Dim File As String
    Dim WB As Workbook
        Application.ScreenUpdating = False '冻结屏幕，打开各个文件及关闭时屏幕不会晃瞎你的狗眼
        File = Dir(afterPath & "\*.xls")	'afterPath 是文件夹路径，(afterPath & "\*.xls")表示afterPath 路径下扩展名为.xls的文件
        Do While File <> ""
            Set WB = Workbooks.Open(afterPath & "\" & File)	'打开一个excel文件，WB表示打开的这个工作簿
            Call setPro(WB)	'调用setPro方法
            File = Dir '找寻下一个excel文件
        Loop
        Application.ScreenUpdating = True '解冻屏幕，让屏幕恢复正常刷新。和上面的那一句成对使用
End Sub

Sub setPro(WB As Workbook)
	'循环工作簿WB中的sheet（工作表）
    For i = 1 To WB.Worksheets.Count
        WB.Worksheets(i).Select	'选中当前工作表
        WB.Worksheets(i).Range("A1").Select	'工作表页面的鼠标指向A1，也就是默认选中的单元格时A1
        'Cells表示所有单元格
        With Cells.Font
            .Name = "微软雅黑"
        End With
    Next i
End Sub