Erstellen von Excel-Makro für den Export von XML zu einem bestimmten Ordner

Ich brauche ein makro zu erstellen (was ich noch nie gemacht habe) und wenn Euch kann mich zu einer richtigen Weg, es wäre wirklich zu schätzen.

Was mache ich derzeit:
Ich habe erstellt ein mapping von XML, die ich in Excel importiert werden. Sobald es in Excel importiert werden, werden die Nutzer dann gehen Sie vor und fügen Sie einige Daten in Sie und exportieren Sie Sie erhalten eine XML-Datei, die dann Benutzer können legen Sie es auf einem FTP, auf dem der job in die Hand nimmt und importiert Sie in die Datenbank ein.

Hier ist das problem:
Der export hat folgenden Knoten, was ich nicht will:

 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
 <Root xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">

Stattdessen möchte ich ersetzen Sie es mit folgenden:

<?xml version="1.0" ?>
<Root xmlns="http://tempuri.org/CourseImport.xsd">

Wie kann ich automatisieren? Gibt es irgendeine Einstellung in Excel, die machen könnte es passieren?

Im Grunde will ich das exportieren, um meinen root, statt des Standard-root und ich wollen automatisch können drop die Datei in den angegebenen Pfad ein: Beispiel: \Entwicklung\Schule\Kurs importieren

Dank!

InformationsquelleAutor NonProgrammer | 2013-02-28

  1. 1

    Mein Kollege tatsächlich half mir mit dieser. Ich dachte, ich sollte erzählen, was ich Tat

    Sub ExportXML()
'
' Export XML Macro exports the data that is in Excel to XML.
'
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

'
newFileName = Application.GetSaveAsFilename("out.xml", "XML Files (*.xml), *.xmls")
If newFileName = False Then
Exit Sub
End If
If objFSO.FileExists(newFileName) Then
objFSO.DeleteFile (newFileName)
End If
ActiveWorkbook.XmlMaps("Root_Map").Export URL:=newFileName


Set objFile = objFSO.OpenTextFile(newFileName, ForReading)


Dim count
count = 0
Do Until objFile.AtEndOfStream
 strLine = objFile.ReadLine
 If count = 0 Then
    strNewContents = strNewContents & "<?xml version=""1.0"" ?>" & vbCrLf
ElseIf count = 1 Then
    strNewContents = strNewContents & "<Root xmlns=""http://tempuri.org/import.xsd"">" & vbCrLf
Else
    strNewContents = strNewContents & strLine & vbCrLf
End If
count = count + 1

Loop

objFile.Close

Set objFile = objFSO.OpenTextFile(newFileName, ForWriting)
 objFile.Write strNewContents

objFile.Close
End Sub

    InformationsquelleAutor NonProgrammer

Schreibe einen Kommentar