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