GoldenLine
Zaloguj się

konto usunięte

Temat: VBA - Generowanie pliku txt z kodowaniem UTF-8

Witajcie,
czy ktoś z was potrafi za pomocą makra utworzyć plik txt który będzie miał włączone kodowanie UTF-8?

Poniższy kod tworzy plik z kodowaniem ANSI.
Wiecie jak to zmienić na UTF-8?

Dim fs, PaczkaPozwow
Set fs = CreateObject("Scripting.FileSystemObject")
Set PaczkaPozwow = fs.CreateTextFile("C:\test.txt", True)

Będę wdzięczny za pomoc.
Link do wypowiedziLink
Łukasz N.

Łukasz N. ETL Developer

Temat: VBA - Generowanie pliku txt z kodowaniem UTF-8

Wystarczy podać trzeci parametr dla metody CreateTextFile
  fs.CreateTextFile("C:\test.txt", True,True)
Link do wypowiedziLink

konto usunięte

Temat: VBA - Generowanie pliku txt z kodowaniem UTF-8

Dzięki za odpowiedź.
Niestety dodanie tego parametru powoduje że plik jest w formacie unicode a nie UTF-8.

Ale jednak znalazłem rozwiązanie. Sprawę załatwia poniższy kod:
Option Explicit

Sub Save2File (sText, sFile)
Dim oStream
Set oStream = CreateObject("ADODB.Stream")
With oStream
.Open
.CharSet = "utf-8"
.WriteText sText
.SaveToFile sFile, 2
End With
Set oStream = Nothing
End Sub

' Example usage: '
Save2File "The data I want in utf-8", "c:\test.txt"

Dzięki za pomoc!Ten post został edytowany przez Autora dnia 18.02.14 o godzinie 22:10
Link do wypowiedziLink
Prze Or

Prze Or Znajdź sobie pracę,
którą lubisz, a do
końca życia nie
bę...

Temat: VBA - Generowanie pliku txt z kodowaniem UTF-8

Michał, Twoje rozwiązanie załatwia problem kodowania znaków. Jednak korzystając z niego, można do pliku txt zapisać coś jednorazowo. A co jeżeli chcę coś dodać do tego pliku?

Jak zmodyfikować to rozwiązanie, żeby dodawać do pliku txt kolejne wpisy bez usuwania tego co już w pliku się znajduje?

Pozdrawiam,
Przemek
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: VBA - Generowanie pliku txt z kodowaniem UTF-8

A ja podam podobne rozwiązane w postaci narzędzia: Dodatek XLS do CSV

Obrazek


Na stronce można oglądnąć jak to działa.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

[Excel VBA] Zapis z Excela ...




Wyślij zaproszenie do
Anuluj