XLS 自动保存文件代码
2020-12-19 本文已影响0人
枫信华
Private Sub Workbook_Open()
If Left(Me.Name, 2) <> 20 Then
p = Me.Path & "\"
f = Format(Now, "yyyy-mm-dd-hh-mm-ss")
Me.SaveCopyAs p & f & ".xls"
End If
End Sub
Private Sub Workbook_Open()
If Left(Me.Name, 2) <> 20 Then
p = Me.Path & "\"
f = Format(Now, "yyyy-mm-dd-hh-mm-ss")
Me.SaveCopyAs p & f & ".xls"
End If
End Sub