[已解决]一个保存时，如撤销就报错的问题1004

excel010

1.执行保存动作

2.点击取消

3.出现报错

4.报错位置

怎么解决这个问题？请老师帮忙调整下！
备份保存一工作记录一4.rar (15.18 KB, 下载次数: 5)

2016-7-3 23:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-4 08:31

你点击取消的时候取消了对工作簿的保存，加个放错吧：

1. Sub 备份工作表A() '打开表格执行
   
2. If MsgBox("您！是否【备份】当前【工作表】？", 4 + 32 + 256) = 7 Then Exit Sub
   
3.      Dim p As String, f As String
   
4.      On Error GoTo err
   
5.      ThisWorkbook.Save '备份前先保存表格
   
6.      p = "E:\管理"
   
7.      f = ThisWorkbook.FullName
   
8.    
   
9.      With CreateObject("Scripting.FileSystemObject")
   
10.         If .FolderExists(p) = False Then .CreateFolder p
    
11.         .CopyFile f, p
    
12.          Call 备份工作表B(p, .GetBaseName(f), .GetExtensionName(f))
    
13.     End With
    
14. err:
    
15. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

你点击取消的时候取消了对工作簿的保存，加个放错吧：

1. Sub 备份工作表A() '打开表格执行
   
2. If MsgBox("您！是否【备份】当前【工作表】？", 4 + 32 + 256) = 7 Then Exit Sub
   
3.      Dim p As String, f As String
   
4.      On Error GoTo err
   
5.      ThisWorkbook.Save '备份前先保存表格
   
6.      p = "E:\管理"
   
7.      f = ThisWorkbook.FullName
   
8.    
   
9.      With CreateObject("Scripting.FileSystemObject")
   
10.         If .FolderExists(p) = False Then .CreateFolder p
    
11.         .CopyFile f, p
    
12.          Call 备份工作表B(p, .GetBaseName(f), .GetExtensionName(f))
    
13.     End With
    
14. err:
    
15. End Sub

复制代码

韩立

直接副本不简单么