VBA命令导出XML很好，但不要replace

我决定试试我的VBA方法，得到了一个小脚本运行，将我在工作表中的XML映射导出到XML，到目前为止工作正常，但是当该XML文件已经生成时，它将返回一个错误，而不是replace它…我尝试了很多方法，我已经看到了在这个论坛的其他主题和周围的网站，但因为我不知道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 

理想情况下我正在寻找的是：

出口

如果没有文件存在，只需导出（上面的脚本）

-if文件存在相同的path和名称>要求replace“是或否”

如果是，请更换

如果没有，退出

请帮助，谢谢！

Answer 1

寻找一个现有的文件，要求覆盖是否存在 – 如果这是select传递到。 .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