通过批处理文件或 vba 从 .xls 转换为 .xlsm 的方法?

本文介绍了通过批处理文件或 vba 从 .xls 转换为 .xlsm 的方法?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

如何自动将 .xls 工作簿转换为 .xlsm?

How to I automate the conversion of .xls workbooks to .xlsm?

推荐答案

你可以试试这个代码:

Sub TrandformAllXLSFilesToXLSM()
Dim myPath As String

myPath = "C:Excel"
WorkFile = Dir(myPath & "*.xls")

Do While WorkFile <> ""
    If Right(WorkFile, 4) <> "xlsm" Then
        Workbooks.Open FileName:=myPath & WorkFile
        ActiveWorkbook.SaveAs FileName:= _
        myPath & WorkFile & "m", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        ActiveWorkbook.Close
     End If
     WorkFile = Dir()
Loop
End Sub

查看此主题了解更多信息

这篇关于通过批处理文件或 vba 从 .xls 转换为 .xlsm 的方法?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！