Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #43048 Louro őstag
    Új Válasz #43048
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    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