帮我把绝对路径改下··················

80013025

帮我把（绝对路径 E:\管理系统\）改成，
根据当前工作表位置，
将它复制到表格当前位置所在目录的（DATA自动备份）文件夹里

Sub 复制工作表一自动A() '
     Dim p As String, F As String
    'ThisWorkbook.Save
     p = "E:\管理系统\____________________DATA备份\DATA自动备份\"
     'p = "\管理系统\____________________DATA备份\DATA自动备份\"‘改成这样
     F = ThisWorkbook.FullName

     With CreateObject("Scripting.FileSystemObject")
        If .FolderExists(p) = False Then .CreateFolder p
        .CopyFile F, p
         Call 复制工作表一自动B(p, .GetBaseName(F), .GetExtensionName(F))
    End With
End Sub

Sub 复制工作表一自动B(p, F, E) '
    Dim OldName, NewName
    OldName = p & F & "." & E
    NewName = p & "自动复制一" & F & Format(Now, "-yyyy-mm-dd-hhmmss.") & E
   'NewName = p &  f & Format(Now, "-yyyy-mm-hh-hhmmss.") & e
    Name OldName As NewName    ' 更改文件名。
    MsgBox "提示：系统已复制，上一次编辑的表格", 48
End Sub