VBA Code to change file format .xlm to .xlxs

[foxyginger]

I'm working on a project that requires MACROS, but is also required to be saved as *.xlxs to run in the database I'm using. Is there a way to build a MACRO to achieve this? I realize that .xls and .xlsx both are created to protect against MACROS, so I understand if this is not realistic.

[Paul_Hossler]

I'd write a macro (which has to be in the XLSM) that writes a COPY of the XLSM workbook (or just the desired worksheets) to a new workbook which is then saved as a XLSX

[foxyginger]

That's a great way to think about it!

This is what I found on another forum-- I'll try this just changing my filename format.

Sub SaveAs()
 
    Dim FName           As String
    Dim FPath           As String
 
    FPath = "G:\Exceptions\"
    FName = "Exceptions" & Format(Date, "ddmmyy") & ".xls"
 
    Sheets("DataSort").Copy
    ThisWorkbook.Sheets("Sheet1").SaveAs Filename:=FPath & "\" & FName
 
End Sub

[Paul_Hossler]

1. The [#] icon will insert [ CODE ] ....... [/ CODE ] markers for you to paste the macro between; does some formatting and makes it easier to read

2. You can use the macro recorder to give you something to work with as a starting point

Option Explicit
Sub Macro1()
    
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\USER\Documents\test_09062017.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

[foxyginger]

Great, thank you so much!