CODEWITHSUNDEEP
vbabatch-fileautomationxlsm
BING
BING

Reputation: 21

Way to convert from .xls to .xlsm via a batch file or vba?

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

Upvotes: 1

Views: 11842

Answers (1)

JMax
JMax

Reputation: 26611

You can try this code:

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

See this thread for more info

Upvotes: 3

Related Questions