将一个文件夹内Microsoft Office Excel 97-2003格式的excel文件全部另存为xlsx格式

您可以使用以下步骤将一个文件夹内的Microsoft Office Excel 97-2003格式的Excel文件全部另存为xlsx格式：

1. 打开Excel软件并启动宏录制器。
2. 选择“开发者”选项卡，然后单击“宏录制器”。
3. 在“宏录制器”窗口中选择“新建宏”，为宏命名并选择“个人工作簿”作为存储位置。
4. 单击“确定”开始录制宏。
5. 打开一个Microsoft Office Excel 97-2003格式的Excel文件。
6. 选择“文件”>“另存为”并更改文件类型为“Excel工作簿（*.xlsx）”。更改文件名并保存文件。
7. 关闭Excel文件并停止宏录制器。
8. 在工具栏中选择“查看代码”以打开VBA编辑器。
9. 将以下代码插入到新的模块中，以便将该宏应用于整个文件夹：

Sub  BatchConvertExcelFiles()
        Dim  strPath  As  String,  strFile  As  String
        strPath  =  "C:\路径\文件夹"  '更改为您要转换的文件夹的路径
        strFile  =  Dir(strPath  &  "\*.xls")
        Do  While  strFile  <>  ""
                Workbooks.Open  Filename:=strPath  &  "\"  &  strFile
                ActiveWorkbook.SaveAs  Filename:=strPath  &  "\"  &  Replace(strFile,  "xls",  "xlsx"),  _
                FileFormat:=xlOpenXMLWorkbook,  CreateBackup:=False
                ActiveWorkbook.Close
                strFile  =  Dir
        Loop
End  Sub  

10. 将第9步中代码中的“C:\路径\文件夹”更改为您要转换的文件夹的完整路径。
11. 单击“运行”，或按F5运行该宏。
12. 执行完该宏后，您的整个文件夹内的Excel文件都将被转换为xlsx格式。