用VBA另存excel文件，运行错误’1004‘，方法’SaveAs‘作用于对象’-workbook‘时...

fh7188

用下面的语句另存excel文件，如果选择一个已经存在的文件覆盖保存，就会提示：在当前位置发现已经存在名为“***”的文件，您希望将该文件替换掉吗？如果我选择“否”或者“取消”会出错：运行错误’1004‘，方法’SaveAs‘作用于对象’-workbook‘时失败。
请各位专家、大虾们帮忙修改一下次代码！让这个EXCEL另存为的时候不再提示因上图提示的更新源文件而产生的运行错误！谢谢！

Sub 导出成绩评分表()
' Cells.Select
Columns("A:AJ").Select
    Range("A2").Activate
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ChDir "d:\"
        ActiveWorkbook.SaveAs Filename:= _
        "d:\成绩评分表.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
            End Sub

maditate

楼主的意思是不想“覆盖”已存在的文件？如果是不想覆盖已存在的文件，可以写句错误处理句，也可以在另存之前先探测一下同文件名是否已经存在。

fh7188

maditate 发表于 2017-6-6 21:45
楼主的意思是不想“覆盖”已存在的文件？如果是不想覆盖已存在的文件，可以写句错误处理句，也可以在另存之 ...

覆盖已存在的文件，是没有问题，就是点“否”或“取消”时，出现错误的对话框，我的意思是点“否”或“取消”时，直接退出“sub"

maditate

fh7188 发表于 2017-6-6 21:52
覆盖已存在的文件，是没有问题，就是点“否”或“取消”时，出现错误的对话框，我的意思是点“否”或“取 ...

是呀，不想覆盖，所以要错误处理。或者在另存之前先探测一下

fh7188

老师怎么改，水平不够啊，能不能帮着修改一下。

ilikevba2011

试试看这个：
ActiveWorkbook.activesheet.SaveAs Filename:= "d:\成绩评分表.xls"

fh7188

已经解决：
Application.CutCopyMode = False
On Error Resume Next
ChDir "d:\"

twj007

fh7188 发表于 2017-6-7 11:35
已经解决：
Application.CutCopyMode = False
On Error Resume Next

同样的错误，下面的代码如何修改才去掉这个错误？谢谢！

Private Sub CommandButton1_Click()
    Dim MyArr, MyPath As String, MyFullName As String
    MyArr = Sheet1.Range("A1").CurrentRegion
    If UBound(MyArr) < 2 Then Exit Sub
   
    Application.ScreenUpdating = False
   
    MyPath = ThisWorkbook.Path
    For i = 2 To UBound(MyArr)
        If Len(MyArr(i, 2)) > 0 Then
            MyFullName = MyPath & "\" & MyArr(i, 1) & Format(Date, "YYYYMMDD") & ".xls"
            Sheets(MyArr(i, 1)).Copy
            
            
            
            ActiveWorkbook.SaveAs Filename:=MyFullName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close
        End If
    Next i
    Application.ScreenUpdating = True
   

End Sub