将选中的 xlsx或xls文件转换为xlsm文件

那时雨

在VBA开发论坛写代码，我最常用到的操作是将xlsx格式文件转换为xlsm。
虽然很简单，但是可以更简单。哈哈哈……
给大家分享一下我的方法。见附件：包含加载宏文件，可以作为日常格式转换使用。

cidanji

加载项文件我装了不显示为什么

LIUZHU

这是用另存为的方法吗？

那时雨

LIUZHU 发表于 2023-10-26 16:01
这是用另存为的方法吗？

是的。

1. Sub ConvertToXlsm()
   
2.     Dim filePath As String
   
3.    
   
4.     ' 获取要转换的工作簿路径和名称
   
5.     filePath = Application.GetOpenFilename("Excel 文件 (*.xls;*.xlsx),*.xls;*.xlsx")
   
6.    
   
7.     If filePath <> "False" Then
   
8.         ' 打开工作簿并保存为 xlsm 格式
   
9.         Dim wb As Workbook
   
10.         Set wb = Workbooks.Open(filePath)
    
11.         
    
12.         ' 确保文件保存为 xlsm 格式
    
13.         If Right(wb.FullName, 4) <> "xlsm" Then
    
14.             ' 构建新的文件路径和名称
    
15.             Dim newFilePath As String
    
16.             newFilePath = Left(wb.FullName, Len(wb.FullName) - 4) & ".xlsm"
    
17.             
    
18.             ' 保存工作簿为 xlsm 格式
    
19.             wb.SaveAs newFilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
20.         Else
    
21.             ' 如果工作簿已经是 xlsm 格式，则提示无需转换
    
22.             MsgBox "工作簿已经是 xlsm 格式，无需转换。"
    
23.         End If
    
24.     End If
    
25. End Sub
    

复制代码

caiyu93

不打开Excel保存是最好的,支持子文件夹内所有表格改格式(有递归遍历当前文件夹)