需要在我自己的位置以旧 Excel 格式保存一份副本

Question

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

我需要将其保存在与当前文件相同的位置，而不是保存在给定位置。
使用 FileFormat:=56 非常重要，因为这需要上传到连接器。

Answer 1

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

51 = xlOpenXMLWorkbook（2007-2013 年没有宏，xlsx） 52 = xlOpenXMLWorkbookMacroEnabled（2007-2013 年有或没有宏，xlsm） 50 = xlExcel12（Excel 2007-2013 年的二进制工作簿，有或没有宏，xlsb） 56 = xlExcel8（Excel 2007-2013 中的 97-2003 格式，xls）

需要在我自己的位置以旧 Excel 格式保存一份副本

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

excel

vba