Dobrý den,
nyní vše funguje jak má. Výše uvedené makro do excelu taktéž funguje podle požadavků, pokud by někdo chtěl generovat .csv v požadovaném formátu (UTF-8 a oddělovač středník) - parametry lze snadno upravit přímo v makru, kdyby někdo potřeboval jiné.
Znaková sada:Kód:
' prepare UTF-8 stream
Set UTFStream = CreateObject("adodb.stream")
UTFStream.Type = adTypeText
UTFStream.Mode = adModeReadWrite
UTFStream.Charset = "[b]UTF-8[/b]" 'Zde změnit znakovou sadu
UTFStream.LineSeparator = adLF
UTFStream.Open
Oddělovač:Kód:
'set field separator
ListSep = "[b];[/b]" ' zde mezi uvozovky zapsat jakýkoliv oddělovač, třeba ","
'set source range with data for csv file