[已解决]求备份时以原文件名称备份vba修改

icenotcool

各位老师，我有一个想原文件备份的vba来修改，不知该怎么定义原名称，先谢谢各位老师了！
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs "D:\2014年考勤备份\2014年3月备份\“？？？？？？？？”xls"不知该怎么定义
Workbook.Close True, Filename
Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2014-3-31 10:59

    Application.DisplayAlerts = False
    With ThisWorkbook
        .SaveCopyAs "D:\2014年考勤备份\2014年3月备份\" & .Sheets("月度考勤簿").[f1] & ".xls"
        .Close True
    End With
    Application.DisplayAlerts = True


改自2楼的回复

跳转到最佳答案楼层

那么的帅

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Application.DisplayAlerts = False
   
3.     ActiveWorkbook.Save
   
4.     ActiveWorkbook.SaveCopyAs "D:\2014年考勤备份\2014年3月备份" & ThisWorkbook.Name & ".xls"   '不知该怎么定义
   
5.     Workbook.Close True, Filename
   
6.     Application.DisplayAlerts = True
   
7. End Sub

复制代码

icenotcool

老师，因为我这个备份文件的工作簿名称是关联“月度考勤簿”工作表里F1单元格的，但是我另存后的文件该单元格名称变成“办公室.xls”了，但是我想保持原单元格内容“办公室”，该怎么改？

爱疯

    Application.DisplayAlerts = False
    With ThisWorkbook
        .SaveCopyAs "D:\2014年考勤备份\2014年3月备份\" & .Sheets("月度考勤簿").[f1] & ".xls"
        .Close True
    End With
    Application.DisplayAlerts = True


改自2楼的回复

那么的帅

icenotcool 发表于 2014-3-31 10:17
老师，因为我这个备份文件的工作簿名称是关联“月度考勤簿”工作表里F1单元格的，但是我另存后的文件该单元 ...

THISWORKBOOK.name 返回当前工作簿的名称
如果想要返回某个工作表的某个单元格的内容，需要进行执行，如 下面的代码

1. ActiveWorkbook.SaveCopyAs "D:" & Sheets("月度考勤簿").Range("F1").Value & ".xls"

复制代码

icenotcool

谢谢那么的帅老师，你的也是测试没有问题的