1

我决定尝试使用 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

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

出口

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

- 如果存在相同路径和名称的文件 > 要求替换“是或否”

- 如果是，更换

- 如果没有，退出

请帮忙，谢谢！

4

1 回答 1

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
于 2015-06-27T14:37:04.143 回答