MS Excel

Ahoj,
pokouším se z Excelu kde mám asi 200 kontaktů naimportovat tyto kontakty do telefonu (Huawei P8). Narazil jsem na problém s převodem diakritiky - v telefonu se místo diakritiky zobrazují otazníky.
Když si z telefonu vyexportuju kontakt s diakritikou, tak je jméno tohoto kontaktu zapsáno například takto:
N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:=4E=6F=76=C3=A1=6B;;;

V přiloženém souboru se pomocí makra pokouším vytvořit VCard pro hromadný import kontaktů.
Jak upravit makro tak, aby se diakritika v telefonu zobrazovala správně?

Zaslat odpověď >

eLCHa(24.8.2016 19:48)#032426

Od boku

CHARSET=windows-1250citovat

DusanU(26.8.2016 8:39)#032441

Vytvořil jsem kód, kde jsem nastavoval různé typy kódování (ISO-8859-1, Windows -1250, ISO-8859-2 _autotodetect_all), ale bez úspěchu :(

Dim fsT As Object

Set fsT = CreateObject("ADODB.Stream")
sFileName = Application.ThisWorkbook.Path & "\VCard.vcf"
fsT.Type = 2
fsT.Charset = "ISO-8859-1"
fsT.Open
fsT.WriteText "BEGIN:VCARD" & vbCrLf
fsT.WriteText "VERSION:2.1" & vbCrLf
fsT.WriteText "N:;" & "ěščřžýáíéúů" & ";;;" & vbCrLf
fsT.WriteText "FN:" & "ěščřžýáíéúů" & vbCrLf
fsT.WriteText "TEL;WORK:" & 774856951 & vbCrLf
fsT.WriteText "TEL;WORK:" & 774856951 & vbCrLf
fsT.WriteText "END:VCARD" & vbCrLf

fsT.SaveToFile sFileName, 2citovat

eLCHa(26.8.2016 8:46)#032442

Exportoval jsem si VCard z outlooku a vypadá to, že charset musíte použít u každého pole zvlášť - tedy asi nejlépe u všechBEGIN:VCARD
VERSION:2.1
N;CHARSET=windows-1250:xy.
FN;CHARSET=windows-1250:yxy
ORG:yxyxyx
TITLE;CHARSET=windows-1250:Finanční controller
TEL;CELL;VOICE:+420 123 456 789
EMAIL;PREF;INTERNET:yx@yx.xy
END:VCARDcitovat

Téma: Tvorba VCard - problém s diakritikou

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje