excel怎么将单个文件批量另存为多个文件-excel批量另存,excel批量另存为xls

打开这个excel ,另存为副本, (最好放到某个文件夹内)
按alt+F11, 视图---代码窗口 --把如下e799bee5baa6e997aee7ad94e58685e5aeb9333复制进去--按F5 运行即可

Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count

For i = b To 1 step -1
sheets(i).select
sheets(i).Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues

Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx"
.Close

End With
Next i

Application.ScreenUpdating = true

End Sub

用万能的VBA可以实现。

代码如下：
Public Sub 更改字体()
Dim fs, f, f1, fc, s
MyPath = "g:\TEST" ‘这是存放文件的目录，根e799bee5baa6e79fa5e98193e4b893e5b19e332据需要可以更改
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

sub aa
dim nwb as workbook
dim mypath,myfile
dim i, j
mypath = "目录路径"
myfile = Dir(mypath & "\*.xlsx") '.xlsx是后zhidao缀名看情况自专己改下
Do While myfile <> ""
   set nwb = workbooks.open(myfile)
   nwb.saveas("新完整路径及名称属") '做备份用的话用nwb.savecopyas
   nwb.close
   myfile=dir
loop
end sub