[已解决]点击按钮将C盘，DATA文件夹中的表格，拷贝到D盘，

excel010

爱疯 发表于 2016-5-6 21:52
Private Sub CommandButton1_Click()
    Dim DestinationPath As String

谢谢老师帮忙~！！！你真是个大好人！！！

爱疯

'不关闭原来的工作簿，备份副本。
Private Sub CommandButton1_Click()
    Dim p$, f$
    p = "D:\DATA\"
    If Dir(p, vbDirectory) = "" Then MkDir p    '不支持多级目录
    f = ThisWorkbook.Name
    f = VBA.Replace(f, ".", Format(Now, "-yyyy-mm-dd-hh-mm-ss."))
    ActiveWorkbook.SaveCopyAs p & f
End Sub

工作记录一5.rar (13.5 KB, 下载次数: 5)

2016-5-16 21:15 上传

点击文件名下载附件




Workbook.SaveCopyAs 方法，用这个更简单