< návrat zpět

MS Excel


Téma: Excel a XML (XSD) rss

Zaslal/a 4.4.2014 23:37

Dobrý večer,
prosím o pomoc s načtením XML formátu do MS Excel 2010. XML soubor nahraji a Excel vytvoří XSD mapování. Ale jsou tam následující chyby:

1) jedna XML věta se načte několikrát (nevím proč)
2) nelze potom zpět exportovat do XML souboru

Nenapád někoho kde dělám chybu?

Děkuju moc za jakoukoliv pomoc nebo nápad.
Zdenek

Příloha: zip18657_xml_ukazka.zip (50kB, staženo 32x)
stop Uzamčeno - nelze přidávat nové příspěvky.

#018706
avatar
a co presne potrebujete???

lebo ten testovaci subor co ste poslali ma connection na mrtve linky

... takze neviem ci to chcete riesit cez connectionn alebo chcete spravit nejaku aplikacku co by editovala xml-kocitovat
#018723
avatar
dobrý večer,
snažím se umět pomocí XSD schematu vyexportovat tabulku v Excelu. Chtěl bych si vytvořit jednoduchý formulář (User Form), kde zadám data a ty uložím do tabulky. Pomocí XSD schematu pak veexportuji a vytvořím XML soubor. Jednoduché VBA mi dovolí zabalit do uživatlsky příjemné formy.

Problém je, že když načtu XSD schema, nedokážu následně vyexportovat tabulku do XML formátu.

Zaujal mne komentář "connection na mrtve linky". evidentě dělám něco špatně protože netuším co to je a jak odstranit.

Děkuju za pomoc a pokud je potřeba rád zašlu i další popis.citovat
#018786
avatar
nejak som to velmo nestudoval lebo tu prilohu co ste poslali je dost zla

- mrve linky znamenaju ze tam mate connectivitu na nejaky subor ktory nemam pristupny
- dalsia vec ta tabulka co tam je nema nic spolocne s tym XMLkom co ste tam pridali

tak vam posielam len pre zabavu kod ktory pracuje s XML ... da saa s nim citat a aj zapisovat do XML:

Private xmldoc As New MSXML2.DOMDocument
Private nodelist As MSXML2.IXMLDOMNodeList

Sub test()
xmldoc.Load (ActiveWorkbook.Path & "\Soubor v XML.xml")
Set nodelist = xmldoc.SelectNodes("//pain.001.001.02")
End Sub

treba potom este v VBA nastavit referenciu: Microsoft XML, v6.0

potom staci len si dat v debugery a pozerat child nodov a mozte s tym citat a aj zapisovatcitovat
#018825
avatar
Dobrý večer,

děkuju za kod. Jdu ho vykoušet, dnad se mi povede jej správně použít:-)

Zdraví
Zdeněkcitovat
#018826
avatar
Tak se mi nedaří použít uvedený kód 7. Zaškrtnul referenci na XML 6.0. Použil jsem v tomto tvaru:

Private xmldoc As New MSXML2.DOMDocument
Private nodelist As MSXML2.IXMLDOMNodeList

Sub POM_tlačítko1_Kliknutí()
xmldoc.Load (ActiveWorkbook.Path & "c:\temp\SEPA CT pain.001.001.02_1TR.xml")
Set nodelist = xmldoc.SelectNodes("//pain.001.001.02")
End Sub

a při volání sezastaví makro hned na prvním řádku a nahlási chybu: Compile error: User-defined type not defined.

Vypadá to, že má problém s "DOMDocument". Vidíte prosím někdo, kde dělám chybu?citovat
#018920
avatar
Našel jsem způsob jak využít XSD a pomocí něho importovat a exportovat data.

ActiveWorkbook.XmlMaps("Nazev XSD Schema v Excel").Export
ActiveWorkbook.XmlMaps("Nazev XSD Schema v Excel").Import

Uzavírám tedy toto téma a moc děkuji za rady, které mne poholy se zorientovat v tomto tématu! 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje