|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2016 - [решено] импорт в vcf файл |
|
2016 - [решено] импорт в vcf файл
|
Старожил Сообщения: 300 |
Профиль | Отправить PM | Цитировать Привет, подскажите есть вот такой код создает 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 |
|
Отправлено: 14:09, 28-11-2018 |
Старожил Сообщения: 300
|
Профиль | Отправить PM | Цитировать листы, названные по-русски ("Лист1" ...), а в коде vba на английском языке ("Sheet1" ...)
|
Отправлено: 06:58, 29-11-2018 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Файл vcf;Телефонные контакты на компьтере;адресная книга Windows;Open Contacts; | 121212 у | Программирование и базы данных | 3 | 24-03-2016 14:04 | |
файл vcf; адресная книга Windows;VCArdOrganizer; телефонные контакты на компьютере | 121212 у | Хочу все знать | 1 | 15-03-2016 12:11 | |
CMD/BAT - Скопировать телефоны из .VCF | Valek271183 | Скриптовые языки администрирования Windows | 11 | 18-05-2015 18:26 | |
Офис и Текст - vcf не сохраняются изменения после редактирования | makatuk | Программное обеспечение Windows | 0 | 03-01-2015 18:14 | |
Офис и Текст - импорт .vcf | clop1000 | Программное обеспечение Windows | 0 | 29-06-2013 00:13 |
|