[Resolved] XML-Excel export-import

Szia Imre!

Igen pontosan a teljes sémát ki szeretném menteni excelből, függetlenül attól, hogy csak egy részét feleltettem meg és töltöttem ki.
Egész egyszerűen a fejlesztőeszközök fülön a forrásnál betöltöttem a programból kimentett xml sémát, megfeleltettem a számomra fontos adatokat az excel egyes celláival, majd kitöltöttem, de az exportálásnál nem tudom megadni, hogy ne csak a kitöltött cellákat olvassa vissza, hanem azokkal együtt az egész sémát.
Microsoft XML v6.0 -ra gondolsz? …nem gondoltam, hogy pár érték oda-vissza írásához ilyen nagy fába kell vágnom a fejszét 🙁
PQuery nem lehet megoldás vagy akkor kezdjek neki VBA-ban?

Irbisz

Szia Imre!

Sajnos hiába próbálom tömegesen, kimentésnél nem tudom azt a struktúrát reprodukálni, amit a másik program beolvas.
Az tűnik a legegyszerűbbnek, hogy egy makróval kicseréljem az xml-ben az adott értékeket.
Erre van esetleg tipped, hogyan tudnám vagy merre fele keresgéljek?

Köszönöm, Irbisz!

Szia!
Pontosan ezt szeretném csak excel cellákban kitöltött feliratokra akarom kicserélni az xml egyes értékeit.
Nem tudom, mit csinálok rosszul, de hiába pipálom be a tools/references -ben a Microsoft XML v6.0 -ot, akkor sem fut le a linken leírt makró (fnUpdateXMLByTags meghívásánál elakad).
Irbisz

Biztosan kihagyok vagy elrontok valamit. Első körben, mielőtt a saját xml-nek nekiállok ki akartam próbálni, hogy működik-e a megadott kód, ezért letöltöttem a link által megadott minta xml-t (https://msdn.microsoft.com/en-us/library/ms762271%28v=vs.85%29.aspx), majd egy üres excelben a vba tools/references-ben bekapcsoltam a Microsoft XML v6.0 -ot. Ezt követően a weboldalról bemásoltam a kódot és a csatolt kép alapján elakadt (az olvasás amúgy működik).

Szia Imre!
Egyrészt rosszul gondolod, noha messze nem vagyok egy vba guru, de írtam már pár makrót, jó párat meg összeraktam (pl ez is egy hosszabb vba ellenőrző, fájl betöltő-átíró processzus lenne, aminek a többi része már jobbára megvan).
Másrészt, ami a diagnózist illeti, miszerint hülye vagyok, ezúttal pontos.
Mentségemre szolgáljon, hogy lopott perceimben próbálom ezt összehegeszteni, xml-lel még sosem volt dolgom és arra a meggyőződésemre fókuszáltam, hogy biztosan rossz xml libraryt töltök be, akkor sem kapcsolva, mikor a megjegyzésnél állt le a kód.
Elnézést kérek érte 🙁
Ezek után persze nehéz segítséget kérni, de ha mégis megteszed, nagyon megköszönöm, mert a CDATA értékeket sehogy sem sikerül megadnom, kicserélnem. Mellékeltem az xml fájlt és kb ez lenne a kód váza:

Function fnUpdateXMLByTags()
Dim mainWorkBook As Workbook
Set mainWorkBook = ActiveWorkbook

Set oXMLFile = CreateObject("Microsoft.XMLDOM")
XMLFileName = "c:\Users\Irbisz\Downloads\Munka\Nevezéktan\out\projectinfo.xml"
oXMLFile.Load (XMLFileName)

Set oAttribute = oXMLFile.SelectSingleNode("/ProjectInfo/Fix1/value/CDATA")
oAttribute.Text = mainWorkBook.Sheets("Munka1").Range("B" & 3).Value

Set oAttribute = oXMLFile.SelectSingleNode("/ProjectInfo/Custom2/value/CDATA")
oAttribute.Text = mainWorkBook.Sheets("Munka1").Range("B10").Value & " - " & mainWorkBook.Sheets("Munka1").Range("B11").Value

oXMLFile.Save (XMLFileName)

End Function

Irbisz

• A hozzászólás módosításra került: 4 years telt el-irbisz.

Szia Imre!
Sehogy sem sikerült felülírnom a cdatat, az object browserben már mindent kipróbáltam, azonosítani a node-ot, stb..
úgyhogy maradt a favágó megoldás, azaz kiürítettem a meglévő cdata értéket és a createCDATASection paranccsal létrehoztam egy újat.
Végül ez lett a váz:

Sub UpdateXML()

Dim mainWorkBook As Workbook
Set mainWorkBook = ActiveWorkbook

Set oXMLFile = CreateObject("Microsoft.XMLDOM")
XMLFileName = "útvonal\projectinfo.xml"
oXMLFile.Load (XMLFileName)

Set oAttribute = oXMLFile.SelectSingleNode("/ProjectInfo/FixKeys/Fix1/value")
oAttribute.Text = ""

Set ParentNode = oXMLFile.SelectSingleNode("/ProjectInfo/FixKeys/Fix1/value")
Set childNode = oXMLFile.createElement("value")
Set CData = oXMLFile.createCDATASection("value")
CData.Data = mainWorkBook.Sheets("Munka1").Range("B2").Value & " - " & mainWorkBook.Sheets("Munka1").Range("B3").Value
ParentNode.appendChild CData

oXMLFile.Save (XMLFileName)

End Sub

A célnak megfelel, szépen végigfut, a forrásprogram is hibátlanul visszaolvassa, de azért nem biztos, hogy az ilyen megoldásokat kellene mutogatni 😀