如何使用VBA代码批量将多个xlsx转换为xls格式

发布网友发布时间：2022-04-23 16:33

共2个回答

热心网友时间：2023-07-10 04:51

GIF：

Sub AA()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim F, X, wb, bm
    F = Application.GetOpenFilename("EXCEL文件,*.xlsx,", 1, MultiSelect:=True)
    For X = 1 To UBound(F)
        Set wb = Workbooks.Open(F(X))
        wb.SaveAs Filename:=Application.Substitute(F(X), "xlsx", "xls"), FileFormat:=xlExcel8
        wb.Close False
    Next X
    MsgBox "处理完成，请查阅"
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

    Application.ScreenUpdating = True
    End Sub

热心网友时间：2023-07-10 04:51

用宏代码才行追问请告知具体代码和步骤，感激不尽

追答你的多个xlsx怎样确定，是某个文件夹内的所有xlsx文件都要转换吗？这个文件夹的路径是什么？

全部栏目

如何使用VBA代码批量将多个xlsx转换为xls格式