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 回答