excel - 如何自动将 Excel xls 文件转换为 Excel xml 格式？

Question

我有大约 200 个标准 Excel 2003 格式的 Excel 文件。

我需要将它们全部保存为 Excel xml - 基本上与打开每个文件并选择另存为...，然后选择保存类型: < em>XML 电子表格

您知道自动化该任务的任何简单方法吗？

Answer 1

这是一个例程，它将转换单个目录中具有 .xls 扩展名的所有文件。

它采用一种直接的方法。工作簿中的所有 VBA 代码都将被删除，工作簿不会以 .xlsm 扩展名保存。不会显示任何不兼容警告，而是自动接受更改。

Sub Convert_xls_Files()

Dim strFile As String
Dim strPath As String

    With Application
        .EnableEvents = False
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
'Turn off events, alerts & screen updating

        strPath = "C:\temp\excel\"
        strFile = Dir(strPath & "*.xls")
'Change the path as required

    Do While strFile <> ""
        Workbooks.Open (strPath & strFile)
        strFile = Mid(strFile, 1, Len(strFile) - 4) & ".xlsx"
        ActiveWorkbook.SaveAs Filename:=strPath & strFile, FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close True
        strFile = Dir
    Loop
'Opens the Workbook, set the file name, save in new format and close workbook

    With Application
        .EnableEvents = True
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
'Turn on events, alerts & screen updating

End Sub