覆盖时如何抑制"File already exists"提示？

Question

我正在使用脚本将 Excel 格式的 Outlook 日历下载到我的硬盘。每次使用都会提示文件已经存在，因为之前下载的文件还在。

有没有办法抑制这个提示？我想覆盖而不必手动单击是。

Sub calendar_download()

    Dim myNameSpace As Outlook.NameSpace
    Dim tdystart As Date
    Dim tdyend As Date
    Dim myAppointments As Outlook.Items
    Dim currentAppointment As Outlook.AppointmentItem
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim i As Long
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlWorkbook = xlApp.Workbooks.Add
    Set xlWorksheet = xlWorkbook.Worksheets(1)

    With xlWorksheet
        .Cells(1, 1).Value = "Body"
        .Cells(1, 2).Value = "Start"
        .Cells(1, 3).Value = "End"
        .Cells(1, 4).Value = "Subject"
    End With
    
    Set myNameSpace = Application.GetNamespace("MAPI")
    
    tdystart = VBA.Format(Now, "Short Date")
    tdyend = VBA.Format(Now + 1, "Short Date")
 
    Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
 
    myAppointments.Sort "[Start]"
 
    myAppointments.IncludeRecurrences = True
 
    Set currentAppointment = myAppointments.Find("[Start] >= """ & tdystart & """ and [Start] <= """ & tdyend & """")
    i = 2
    While TypeName(currentAppointment) <> "Nothing"
        Debug.Print currentAppointment.Subject
        xlWorksheet.Cells(i, 1).Value = currentAppointment.Body
        xlWorksheet.Cells(i, 2).Value = currentAppointment.Start
        xlWorksheet.Cells(i, 3).Value = currentAppointment.End
         xlWorksheet.Cells(i, 4).Value = currentAppointment.Subject
        i = i + 1

        Set currentAppointment = myAppointments.FindNext
    Wend
    
    xlWorksheet.Columns("A:D").EntireColumn.AutoFit
    xlWorkbook.SaveAs "C:\calendar\Calendardownload.xlsx" ' <------- Change this Path to the location you want to save the file to
    xlWorkbook.Close

End Sub

Answer 1

您可以在保存前删除现有文件。在 xlWorkbook.SaveAs ... 之前插入以下行：

  If Len(Dir("C:\calendar\Calendardownload.xlsx")) <> 0 Then
      Kill "C:\calendar\Calendardownload.xlsx"
  End If

首先会检测文件是否存在

覆盖时如何抑制"File already exists"提示？

How to suppress "File already exists" prompt when overwriting?

outlook

vba