tu som to doplnil do toho makra:
Příloha: 
17084_cdata-excel.zip (14kB, staženo 20x)
citovat17084_cdata-excel.zip (14kB, staženo 20x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Export tabulky do XML - zamezení entit
MS Excel
Téma: Export tabulky do XML - zamezení entit 
Zaslal/a 28.12.2013 18:02
Při exportu tabulky do XML (podle vlastního schématu) jsou některé znaky nahrazeny html entitami, používám zde ale CDATA, v kterých je obsažen právě html kod, tedy nahrazení entitami je nežádoucí.
Je možnost funkci nahrazování entitami nějak ovlivnit?
Předem díky za odpovědi a čas všech zůčastněných
Strana: « předchozí 1
2
3
Díky za spolupráci,
přiložím zde pro případné další hledající výsledný kód univerzálněji upravený, okomentovaný
Sub VytvorXML()
'Jako jméno výstupního souboru použije jméno původního XLS souboru a přidá příponu ".xml"
JmenoSouboru = Application.ThisWorkbook.Path & "\" & Application.ThisWorkbook.Name & ".xml"
'expotrovat jako XML (použije mapování "Document_Mapování", a je uloženo do aktuálného adresáře a jako jméno je použito jméno původního XLS souboru a přidáno ".xml")
ActiveWorkbook.XmlMaps("Document_Mapování").Export URL:=JmenoSouboru
'otevře v předchozím kroku exportovaný XML soubor pro čtení a jeho obsah uloží do proměnné strXML
Dim hf As Integer: hf = FreeFile
Open JmenoSouboru For Input As #hf
strXML = Input$(LOF(hf), #hf)
Close #hf
'otevře soubuor pro zápis a zapíše do něj původní strXML proměnnou, která projde přes funkci OstranEntity
Open JmenoSouboru For Output As #hf
Print #hf, OdstranEntity(strXML)
Close #hf
End Sub
Private Function OdstranEntity(ByVal aString As String) As String
aString = Replace(aString, "<", "<")
aString = Replace(aString, ">", ">")
OdstranEntity = aString
End Function
citovat
přiložím zde pro případné další hledající výsledný kód univerzálněji upravený, okomentovaný
Sub VytvorXML()
'Jako jméno výstupního souboru použije jméno původního XLS souboru a přidá příponu ".xml"
JmenoSouboru = Application.ThisWorkbook.Path & "\" & Application.ThisWorkbook.Name & ".xml"
'expotrovat jako XML (použije mapování "Document_Mapování", a je uloženo do aktuálného adresáře a jako jméno je použito jméno původního XLS souboru a přidáno ".xml")
ActiveWorkbook.XmlMaps("Document_Mapování").Export URL:=JmenoSouboru
'otevře v předchozím kroku exportovaný XML soubor pro čtení a jeho obsah uloží do proměnné strXML
Dim hf As Integer: hf = FreeFile
Open JmenoSouboru For Input As #hf
strXML = Input$(LOF(hf), #hf)
Close #hf
'otevře soubuor pro zápis a zapíše do něj původní strXML proměnnou, která projde přes funkci OstranEntity
Open JmenoSouboru For Output As #hf
Print #hf, OdstranEntity(strXML)
Close #hf
End Sub
Private Function OdstranEntity(ByVal aString As String) As String
aString = Replace(aString, "<", "<")
aString = Replace(aString, ">", ">")
OdstranEntity = aString
End Function
citovat
Strana: « předchozí 1
2
3
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Čas od do
lubo • 19.4. 16:30
Makro smyčka
MilanKop • 19.4. 10:46
Makro smyčka
elninoslov • 19.4. 9:02
Čas od do
elninoslov • 19.4. 8:46
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
RSS nejnovější články