以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  批量转换XLS文件为XLSX文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163799)

--  作者：sysckj --  发布时间：2021/4/25 12:22:00 --  批量转换XLS文件为XLSX文件 请教大侠，我在“H:\\111"目录下保存了几百个XLS文件，想通过FOXTABLE批量转为XLSX文件，保存到目录”H:\\222"目录下，这个要怎么写代码？

--  作者：有点蓝 --  发布时间：2021/4/25 13:55:00 --   参考： Dim App As New MSExcel.Application try For Each File As String In IO.Directory.GetFiles("H:\\111", "*.xls")     Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(File)     Wb.SaveAs(File & ".xlsx",51) next     App.quit catch ex As Exception     msgbox(ex.message)     App.quit End try

--  作者：sysckj --  发布时间：2021/4/25 15:52:00 --   收到，谢谢。