[已解决]请问一下数据导出时如何才能不出现提示是否替换对话框

zxc1152468

Sub 数据导出()
    Dim i As Integer
    Dim sh As Worksheet
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "Sheet1*" Then
            Sheets(i).Copy
            Set sh = ActiveSheet
            sh.SaveAs ThisWorkbook.Path & "\" & "2014年" & ".xls"
            ActiveWorkbook.Close True
        End If
    Next
End Sub
请问一下数据导出时如何才能不出现提示是否替换对话框，直接替换

最佳答案

月排行榜 / 总排行榜

ppp710715

2015-1-8 22:47

加上一句：Application.DisplayAlerts = False

1. Sub 数据导出()
   
2.     Dim i As Integer
   
3.     Dim sh As Worksheet
   
4. Application.DisplayAlerts = False
   
5.     For i = 1 To Sheets.Count
   
6.         If Sheets(i).Name Like "Sheet1*" Then
   
7.             Sheets(i).Copy
   
8.             Set sh = ActiveSheet
   
9.             sh.SaveAs ThisWorkbook.Path & "" & "2014年" & ".xls"
   
10.             ActiveWorkbook.Close True
    
11.         End If
    
12.     Next
    
13. Application.DisplayAlerts = true
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

ppp710715

加上一句：Application.DisplayAlerts = False

1. Sub 数据导出()
   
2.     Dim i As Integer
   
3.     Dim sh As Worksheet
   
4. Application.DisplayAlerts = False
   
5.     For i = 1 To Sheets.Count
   
6.         If Sheets(i).Name Like "Sheet1*" Then
   
7.             Sheets(i).Copy
   
8.             Set sh = ActiveSheet
   
9.             sh.SaveAs ThisWorkbook.Path & "" & "2014年" & ".xls"
   
10.             ActiveWorkbook.Close True
    
11.         End If
    
12.     Next
    
13. Application.DisplayAlerts = true
    
14. End Sub
    

复制代码