自动将 Excel 2007 转换为 Excel 97-2003 工作簿

Question

我需要将 Excel 2007 转换为 Excel 97-2003 工作簿，

我通过打开 excel 并另存为 Excel 97-2003 工作簿手动执行此操作
但我希望它是自动化的。 有没有可能

Answer 1

将您希望转换的文件的文件规范放在 Sheet1 的 A 列中，如下所示：

.

然后运行这个小的 VBA 宏：

Sub asdf()
    Dim s As String, N As Long, i As Long
    Sheets("Sheet1").Activate
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        s = Cells(i, 1).Value
        Workbooks.Open Filename:=s
        s = Replace(s, ".xlsx", ".xls")
        s = Replace(s, "xlsm", ".xls")
        ActiveWorkbook.SaveAs Filename:=s, _
            FileFormat:=xlExcel8, Password:="", _
            WriteResPassword:="", _
            ReadOnlyRecommended:=False, _
            CreateBackup:=False
        ActiveWorkbook.Close
    Next i
End Sub