Excel批量合并 / 批量另存为
xls另存为xlsx在要合并和文件同级目录下, 新建一个Excel文件,按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。'***********访问当前文件夹下所有子文件夹及文件,Dim iFile(1 To 100000) As StringDim count As IntegerSub xls2xlsx() iPath = ThisWorkbook.Path On Error Resume Nex
原创
2021-01-10 13:04:18 ·
3715 阅读 ·
4 评论