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（2007年至2013年的Excel二进制工作簿，有或没有宏，xlsb） 56 = xlExcel8（Excel 2007-2013中的97-2003格式，xls）

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

1 个答案: