Тема импорт в vcf файл. Привет, подскажите есть вот такой код создает vcf файл из таблице, раньше в office 2007 работало все ок, переустановили мне на 2016 и где выделено красным выдает ошибку. Подскажите что не так
Код
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("Sheet1").Cells(iRow, 1)) <> ""
LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1))
FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2))
PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3))
Print #FileNum, "BEGIN:VCARD"
Print #FileNum, "VERSION:3.0"
Print #FileNum, "N:" & LName & ";" & FName & ";;;"
Print #FileNum, "FN:" & LName & " " & FName
Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
Print #FileNum, "END:VCARD"
iRow = iRow + 1
Wend
'Close The File
Close #FileNum
MsgBox "Contacts Converted to Saved To: " & OutFilePath & "
End Sub
Добрый день, подскажите пожалуйста, сделал в VBA с помощью кода, ктр в начале темы, получился VCF файл, импортировал в контакты, но имена контактов выглядят так
Текст макроса #1 выводит файл в кодировке win-1251 (точнее, в кодировке Windows по умолчанию). Программы импорта в других операционных системах ожидают кодировку utf-8.
Уважаемый doober, спасибо за Ваш труд! Макрос выполняется как надо, но остался один забавный баг Обратите внимание на то, что отображается в ячейке E5, после выполнения макроса.
Это не баг, а команда, прописанная в коде. Вероятно, для того, чтобы вы знали, что этот файл уже сохранен в VCF, и где этот VCF искать. А чтобы не стыдно было делиться, нужно устранить это ' The result file must be in UTF-8 encoding without BOM.