有没有什么办法能让07片的EXCEL文件批量转换为03版的呢?

发布网友发布时间：2022-05-02 05:28

共3个回答

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

07版Excel 兼容 03 版Excel，如果需要在03版本查看07 版Excel，只需百度搜索 office 2007 兼容包，下载安装即可，

如果需要将07版本Excel转为 03 格式，仅需将07 版本Excel 另存为 97-2003 工作薄即可

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

如果这些Excel文件都在一个文件夹下，用宏可以实现。在该文件夹下新建一Excel，打开它，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub Find()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo Line1

Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1)
ChDir MyDir
Match = Dir$("*.xlsx")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0
ActiveWorkbook.SaveAs Replace(Match, ".xlsx", ".xls")
ActiveWorkbook.Close 0
End If
Match = Dir$
Loop Until Len(Match) = 0

Line1: Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

在此界面直接按F5运行此宏，所有的.xlsx文件另存为.xls。

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

可以用vba来完成