Expected: list separator or ) Error

[Legacy 319654]

What am I missing? I have a macro workbook trying to save as .xlsx workbook in folder xlsx_xlsx.

I get compile error: Expected: list separator or )

Sub ssFile()

ActiveWorkbook.SaveAs ("C:\Users\pnix4\Desktop\xlsm_xlsx\HireTerm  “ & Format(Now(), “DD-MMM-YYYY”) & “.xlsx”)


End Sub

Thanks

 

[Rick Rothstein]

What am I missing? I have a macro workbook trying to save as .xlsx workbook in folder xlsx_xlsx.

I get compile error: Expected: list separator or )

Sub ssFile()
  ActiveWorkbook.SaveAs [B][COLOR="#FF0000"]([/COLOR][/B]"C:\Users\pnix4\Desktop\xlsm_xlsx\HireTerm  “ & Format(Now(), “DD-MMM-YYYY”) & “.xlsx”[B][COLOR="#FF0000"])[/COLOR][/B]
End Sub

Your code worked fine for me once I replaced the "stylized" quote marks your code above is using with normal quote marks.

I would also note that you do not need the surrounding parentheses that I highlighted in red above.

I don't know if it was intentional or not, but you have two spaces after the word "HireTerm" (normally, I would expect only one space there).

 

[gallen]

try this:

    ActiveWorkbook.SaveAs "C:\Users\pnix4\Desktop\xlsm_xlsx\HireTerm  " & Format(Now(), "DD-MMM-YYYY"), xlOpenXMLWorkbook

Edit: of course if the Activeworkbook is the workbook running the code then it will need to be in macro-enabled format: xlOpenXMLWorkbookMacroEnabled

 

[Legacy 319654]

Thanks, I retyped regular quotes and () and it worked...

 

[cerfani]

some of your quotes look funny

Sub Test()
    Dim a, b, c As String
    a = "C:\Users\pnix4\Desktop\xlsm_xlsx\HireTerm  “"
    b = Format(Now(), “DD - MMM - YYYY”)
    c = “.xlsx”
    
    MsgBox a & b & c
End Sub

this does not compile because of ... c = “.xlsx”

that is probably your problem

vba actually inserted a quote at the end of my a variable so vba is not liking your quote characters

 

[Legacy 319654]

I am still missing sometime. It did not convert the .xlsm file to xlsx format.

ActiveWorkbook.SaveAs ("C:\Users\pnix4\Desktop\HireTerm  " & Format(Now(), "DD-MMM-YYYY") & ".xlsx")

 

[cerfani]

you need to set the format parameter... gallen posted what to do above

 

[Legacy 319654]

I get an error message "the following feature can not be saved as a macro free workbook"
ActiveWorkbook.SaveAs "C:\Users\pnix4\Desktop\aaaaaHireTerm " & Format(Now(), "DD-MMM-YYYY"), xlOpenXMLWorkbook

This code makes another Macro file
ActiveWorkbook.SaveAs "C:\Users\pnix4\Desktop\aaaaaHireTerm " & Format(Now(), "DD-MMM-YYYY"), xlOpenXMLWorkbookMacroEnabled

For some reason I can not get it to convert from macro to non macro file.

 

[cerfani]

that is not an error but a notification I believe... try disabling notifications so excel performs the default action to the notification, i think it is just a warning that you will lose vba code

 

[Legacy 319654]

Thank all for the help

Sub ssFile()

Application.DisplayAlerts = False


ActiveWorkbook.SaveAs "C:\Users\pnix4\Desktop\jjjjjjjHireTerm " & Format(Now(), "DD-MMM-YYYY"), xlOpenXMLWorkbook

Application.DisplayAlerts = True

End Sub