Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2016 - [решено] импорт в vcf файл

Ответить
Настройки темы
2016 - [решено] импорт в vcf файл

Старожил


Сообщения: 300
Благодарности: 8

Профиль | Отправить PM | Цитировать


Привет, подскажите есть вот такой код создает vcf файл из таблице, раньше в office 2007 работало все ок, переустановили мне на 2016
Код: Выделить весь код
While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> ""
. Подскажите что не так

Код: Выделить весь код
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
Благодарности: 8

Профиль | Отправить PM | Цитировать


листы, названные по-русски ("Лист1" ...), а в коде vba на английском языке ("Sheet1" ...)
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:58, 29-11-2018 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2016 - [решено] импорт в vcf файл

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Файл 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




 
Переход