.a文件转换为.lib文件_Excel xls文件批量转换成xlsx文件

最近在帮忙做一个教育质量监测工作，需要我对总体抽取样本。总体样本已经收集到，现在已经可以进行抽样，但是收集到的数据文件有两种格式，分别是xlsx和xls文件。为了方便抽样，想把数据格式进行统一，网上找了相关的代码，可以进行批量修改格式。

输入下面的代码

Sub xls2xlsx()

Dim FilePath, MyFile, iPath, Name, OutPath As String

iPath = ThisWorkbook.Path

OutPath = Dir(iPath & "\xlsx", vbDirectory)

If OutPath = "" Then

    MkDir (iPath & &