Sub 当前日期()Dim idate As Dateidate = DateActiveSheet.Range("A1").Value = idateEnd Sub
有2个VBA函数可以获取当前系统日期:date()now()
不改变原始表格数据,打印时自动添加打印日期。
sub test ()range("A1")=dateend sub