VBA to file save as in the format of .xls

[ariel20029]

Hi, I have a macro that generates a Journal entry form and I found a simple code to open the file save as window so my team can rename the file to what ever they want. But I would like to have the format automatically save as an excel file. Is there easy code to do this? I used the simple code below to open the file save as window.
thanks so much,
Sharon


Application.GetSaveAsFilename

 

[dmt32]

Hi,

see if this helps.

    Dim FileSaveName As Variant


    FileSaveName = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, FileFilter:="Excel 2003 (*.xls), *.xls")


    If FileSaveName <> False Then
    
        ActiveWorkbook.SaveAs FileSaveName, FileFormat:=56 'xlExcel8 (97-2003 format xls)
        
    Else
    
        Exit Sub
    
    End If

Dave

 

[ariel20029]

Hi,

see if this helps.

    Dim FileSaveName As Variant


    FileSaveName = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, FileFilter:="Excel 2003 (*.xls), *.xls")


    If FileSaveName <> False Then
    
        ActiveWorkbook.SaveAs FileSaveName, FileFormat:=56 'xlExcel8 (97-2003 format xls)
        
    Else
    
        Exit Sub
    
    End If

Dave

Sorry for the delay in getting back to you... this worked perfectly!!!!
thank you
Sharon

 

[dmt32]

Sorry for the delay in getting back to you... this worked perfectly!!!!
thank you
Sharon

That's ok glad solution worked for you & your feedback very much appreciated.

Dave