启用宏的文件另存为两遍 xlsx文件

haishu79

ActiveWorkbook.Save
   
   
    Sheets("说明").Delete
    Sheets("ARS库存").Delete
    Sheets("ARS销售").Delete
   
    '自动保存
a = "y:\库审日常报表\每日报表\" & Format(Date, "yyyy年") & "\" & Format(Date, "mm月") & "\"

' 判断目录是否存在,如果没有就建立 月份目录
b = a & "静海店每日报表" & Format(Now(), "MMdd-hhmm") & ".xlsx"
'MsgBox b
'MsgBox Now()

If Dir(a, 16) = Empty Then
MkDir a
End If
  
   Sheets("首单").Select
ChDir a
   ActiveWorkbook.SaveAs Filename:=b, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
先保存此表，再删除无用表，然后另存为 xlsx 格式，有时候 没有问题有时候报错，如下图，求大神，另我想A目录保存一次，B目录保存或复制一次，如何写最方便

FileCopy ThisWorkbook.Path & "\" & 每日报表" & Format(Now(), "MMdd-hhmm") & ".xlsx", "z:\库审作业\每日报表\" & Format(Date, "yyyy年") & "\" & Format(Date, "mm月") & "\" & "每日报表" & Format(Now(), "MMdd-hhmm") & ".xlsx

liulang0808

没有附件，也仅有部分代码，建议楼主检查ActiveWorkbook吧
看看正常保存有无异常吧
另外ActiveWorkbook是哪个文件？可以考虑两次saveas吧。