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

    Mobilarena

    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

  • #9984 Fire/SOUL/CD félisten Zomb€€ #9978
    Új Válasz #9984
    Ú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

    Fire/SOUL/CD

    félisten

    válasz Zomb€€ #9978 üzenetére

    "Ezt be lehet építeni a makróba, hogy ne kelljen külön még átkódolni a .csv-t?"

    1. Attól függ, milyen módszerrel hozza létre a makró a CSV fájlt

    2. Az UTF8 mezei szöveges fájl, annyiban különbözik egy sima textfájltól, hogy az első 3 byte-ja rendre a következő (hexadecimálisan): 0xEF, 0xBB, 0xBF

    3. Az ASCII->UTF8 valós konverziónak, akkor van csak értelme (a 2. pont túl), ha tényleg speciális karakterek kerülnek a CSV-be, pl: äöüß, amit a weben is meg akarnak jeleníteni. Valószínű, hogy ezzel a fájllal is ez van... Ha ez a szitu, akkor egy példaprogi

    Private Sub CommandButton1_Click()

    Dim My_Real_UTF8_Conversion As Object
    Set My_Real_UTF8_Conversion = CreateObject("ADODB.Stream")

    My_Real_UTF8_Conversion.Type = 2
    My_Real_UTF8_Conversion.Charset = "utf-8"
    My_Real_UTF8_Conversion.Open
    My_Real_UTF8_Conversion.WriteText "ASCII nem fog változni, de ezek igen: äöüß"
    My_Real_UTF8_Conversion.SaveToFile "d:\FSCD_UTF8.UTF8", 2

    Set My_Real_UTF8_Conversion = Nothing

    End Sub

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