<문제>

다른이름으로 저장시 파일명을 지정해 주었으며,
만약 기존에 다른 파일이 있다면, 덮어 씌울지 를 결정하는
메세지가 나오는데, 무조건 강제로 덮어 씌우는 명령어를
추가 할려면 어떻게 해야 하나요?

 

<방법1>

Application.DisplayAlerts 속성을 변경해 엑셀 경고 대화상자를 표시하지 않도록 하면됨.

Application.DisplayAlerts = False

=> Application.DisplayAlerts = True
------------------------------------------------------------------------------------------------

<방법2>

Sub 새파일로저장()
Dim strPath As String
Dim strFile As String
strPath = "C:\Documents and Settings\SAMSUNG\바탕 화면"
strFile = "\test1.xls"    
    Range("A6:B14").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Range("A1").Select
    With Application
     .CutCopyMode = False
     .DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=strPath & strFile
     .DisplayAlerts = True
    End With
    ActiveWorkbook.Close
End Sub