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
本文标题:XLS 自动保存文件代码
本文链接:https://www.haomeiwen.com/subject/pwncnktx.html
网友评论