怎样批量修改同一文件夹下的多个EXCEL文件字体??

发布网友发布时间：2022-04-30 17:15

共3个回答

热心网友时间：2022-06-28 06:20

先打开excel程序，点击工具——选项，找到字体，做好相应的设置后，确定退出，关闭excel程序，再打开你的excel文件，字体就被设置为统一的格式。

热心网友时间：2022-06-28 06:20

用万能的VBA可以实现。

代码如下：
Public Sub 更改字体()
Dim fs, f, f1, fc, s
MyPath = "g:\TEST" ‘这是存放文件的目录，根据需要可以更改
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(MyPath)
Set fc = f.Files

i = 1
For Each f1 In fc
MyName = f1.Name
Workbooks.Open (MyPath & "\" & MyName)
For Each mys In ActiveWorkbook.Sheets

Cells.Select

With Selection.Font
.Name = "仿宋" ’将字体设置为仿宋，也可以根据需要更改
End With
Next
ActiveWorkbook.Close

Next
End Sub

热心网友时间：2022-06-28 06:21

字库内替换