1

ワークシートにある XML マップを XML にエクスポートするための小さなスクリプトを実行して、VBA を試してみることにしました。これまでのところ問題なく動作しますが、その XML ファイルが既に生成されている場合は、置換ではなくエラーが返されます。それ... このフォーラムの他のトピックや Web で見た多くの方法を試しましたが、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 に答える