Need to save a copy in my own location in old Excel format

ActiveWorkbook.SaveAs "I:\Group \Shared Services\Accounts\" _
    & "UPLOAD - " & Format(Range("T1"), "dd-mm-yyyy"), FileFormat:=56

I need to save this in the same location as current file instead of saving at a given location. It is really important to use FileFormat:=56 as this need to upload to a connector.

Answers


ActiveWorkbook.SaveAs ActiveWorkbook.Path _ 
    & "\UPLOAD - " & Format(Range("T1"), "dd-mm-yyyy") & " ", 56

51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx) 52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm) 50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb) 56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)


Need Your Help

Django confirm_login_allowed wrong error message

django django-login django-custom-user

I followed this example from docs in order make the login form throw custom error message if the user account is not verified (I have custom user model). My source code: