Hirdetés

Új hozzászólás Aktív témák

  • Louro

    őstag

    Sziasztok!

    Tudtok arra módot, hogy egy munkalap tartalmát könnyű szerrel kimentsem .csv állományba (igazából XML, de ez most lényegtelen szerintem) és fontos, hogy utf-8 kódolással?

    Amit most használok:

    Dim xml_text As Variant

    'Stream létrehozása az XML-hez
    Set st = CreateObject("ADODB.Stream")

    'Karakterkódolás beállítása
    st.Charset = "utf-8"
    st.Type = 2 ' adTypeText

    st.Open

    xml_text = GetTextFromRangeText(XMLsablon.UsedRange)

    st.WriteText xml_text


    'XML mentése
    st.SaveToFile ThisWorkbook.Path & "\A60_bevallás_" & Application.Text(Now(), "yyyymmdd") & ".xml", 2

    A GetTextFromRangeText igazából csak annyit csinál sajnos erőforrásigényesen, hogy egy változóban összeszedem a tartalmakat. A makróm feldolgozásának közel 90%-a erre megy el :(

Új hozzászólás Aktív témák

Hirdetés