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

• #43048 Louro őstag

  Új Válasz 2020-02-11 22:13:05 #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