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

答案:3 悬赏:80 手机版

解决时间 2021-11-07 03:43

提问者网友：疯孩纸
2021-11-06 17:23

最佳答案

五星知识达人网友：纵马山川剑自提
2021-11-06 17:50

如果这些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。

全部回答

1楼网友：天凉才是好个秋
2021-11-06 18:40

可以用vba来完成

2楼网友：上分大魔王
2021-11-06 18:31

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

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息