[решено] импорт в vcf файл - Компьютерный форум OSzone.net

Привет, подскажите есть вот такой код создает 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