Saving .xltm as .xlsx fails using VBA

[Kayslover]

Hi All,

I have a template which is Macro Enabled ending with .xltm

Through VBA (in a macro), I am attempting to save the template as an ordinary file with a new name. The file is currently defined as the Active Workbook and I am using the following command:-

ActiveWorkbook.SaveAs fPath & ".xlsx", 51.

I have also tried using the following command:-

ActiveWorkbook.SaveAs Filename:=fPath & ActiveWorkbook.Name&".xlsx", FileFormat:=xlOpenXMLWorkbook

I get a run-time error 1004.

Please note

fPath is defined as Dim fPath As String, fPath = ThisWorkbook.Path & "\"

Where am I going wrong? I am a newbie to VBA so please be gentle.

 

[Kayslover]

Fluff,

Yes. Trying to save xlsm files to xlsx.

 

[Fluff]

In that case try

   Dim fPath As String
   fPath = ThisWorkbook.Path & "\"
   With ActiveWorkbook
      Application.DisplayAlerts = False
      .SaveAs fPath & Split(.Name, ".")(0) & ".xlsx", 51
      Application.DisplayAlerts = True
   End With

 

[EXCEL MAX]

At beginning try to create new workbook as macro enabled file (.xlsm) instead to do that in macro enabled template(.xltm).
When you trying to get file path from macro enabled template with fPath = ThisWorkbook.Path you get empty file path. You need to specify path.
When you using macro enabled file(.xlsm) you can get this path.

 

[Fluff]

At beginning try to create new workbook as macro enabled file (.xlsm)

The OP has already done that.

 

[Kayslover]

Fluff,

Worked like a dream, Thank you very very much.

One further question, how can delete all file from the folded which have an extension of ".xltx" in one statement. I have to delete 4 of these and I am doing them one by one.

 

[Fluff]

As that is a totally different question, it needs a new thread. Thanks