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

• #37596 lenkei83 tag

  Új Válasz 2018-03-23 10:34:28 #37596

  Ú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

  

  lenkei83

  tag

  Sziasztok!

  UTF-8 kódolásban jártas valaki? A kód adott, kisebb csinosítás még lesz rajta de a baj az, hogy ha be akarom importálni a kapott VCF fájlt androidrba akkor az ékezetek elszállnak. Hogyan lehet beapplikálni a kódba UTF-8 kódolást?

  Köszi & üdv
  P.

  Private Sub Create_VCF()
'Open a File in Specific Path in Output or Append mode
Dim FileNum As Integer
Dim iRow As Double
iRow = 2
FileNum = FreeFile
OutFilePath = "D:\OutputVCF.VCF"
Open OutFilePath For Output As FileNum

'Loop through Excel Sheet each row and write it to VCF File
While VBA.Trim(Sheets("Munka1").Cells(iRow, 1)) <> ""
LName = VBA.Trim(Sheets("Munka1").Cells(iRow, 1))
Email = VBA.Trim(Sheets("Munka1").Cells(iRow, 3))
PhNum = VBA.Trim(Sheets("Munka1").Cells(iRow, 2))

Print #FileNum, "BEGIN:VCARD"
Print #FileNum, "VERSION:3.0"
Print #FileNum, "N:" & LName
Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
Print #FileNum, "EMAIL:" & Email
Print #FileNum, "END:VCARD"
iRow = iRow + 1
Wend

'Close The File
Close #FileNum
MsgBox "Contacts Converted to Saved To: " & OutFilePath & " "
End Sub

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