VBA命令可以導出XML，但是不能替換

Question

我決定嘗試使用VBA的方式，運行了一個小腳本以將工作表中已有的XML映射導出為XML，到目前為止一切正常，但是當該XML文件已經生成時，它將返回錯誤而不是替換它...我嘗試了在論壇和網絡上其他主題中看到的多種方法，但是由於我不知道VBA協議需要花費很多時間，有人可以幫忙嗎？

到目前為止，我有：

    Sub Export_Main_XML()

Dim JobNumber As String
JobNumber = Sheet12.Range("A4").Text
XMLName = ThisWorkbook.Path & "\" & JobNumber & "_Main_Export.xml"
    ActiveWorkbook.XmlMaps("Main_XML_Map").Export URL:=XMLName
End Sub

理想情況下，我正在尋找的是：

出口

-如果不存在文件，則僅導出（上面的腳本）

-如果存在相同路徑和名稱的文件>請替換為“是或否”

-如果是，請更換

-如果否，請退出

請幫助，謝謝！

Answer 1

查找現有的文件，要求覆蓋如果存在的話-如果是這樣的選擇，通true來.Export ，表示你的意圖來替代它：

JobNumber = Sheet12.Range("A4").Text
XMLName = ThisWorkbook.Path & "\" & JobNumber & "_Main_Export.xml"

'' does it exist already?
If Dir$(XMLName) <> "" Then
    '' exists
    If MsgBox("Overwrite " & XMLName & " ?", vbYesNo, "Confirm Overwrite") = vbNo Then Exit Sub
End If

'' pass true to overwrite
ActiveWorkbook.XmlMaps("Main_XML_Map").Export XMLName, True