If(CanWrite([主系统!即时备份路径]) = True,CopyRows("销售表") And Export([主系统!即时备份路径],"销售表","62265","销售明细")And DelFor("销售明细"),MsgBox("目标文件当前不可写,请稍候再试...",1,4))