將檔案另存新檔,檔名結構為"年月日.XLS"

以下程式為將另存的新檔存入同檔資料夾內:
With ThisWorkbook
　　.SaveCopyAs .Path & "\" & Format(Date, "yymmdd") & ".xls"
End With
於
標籤：

1 則留言:

  1. ~~阿~奇~毛~~2018年3月30日 上午9:25

    實測EXCEL2007
    With ThisWorkbook
    　　.SaveCopyAs .Path & "\" & Format(Date, "yymmdd") & ".xls"
    End With
    End Sub
    如果結尾是End With系統警告結尾必須是End Sub
    如果結尾是End Sub系統警告結尾必須是End With

    回覆刪除

訂閱： 張貼留言 (Atom)