VBA (EXCEL) Строка вырезана (не напечатано все жало)

Question

Я создаю генератор для Google VCF в VBA. Строка генерируется правильно (проверяется при просмотре), но вся строка не печатается в файл (строка обрезается). Строка также обрезается, когда я пытаюсь скопировать / вставить ее из часов.

Единственными специальными символами в строке являются EOL (CHR (10)). Строка вырезана в середине слова.

Sub ExcelTocsv()
Dim FileNum As Integer
Dim iRow As Integer
Dim iColumn As Integer
Dim googlestring As String
Dim mystring As String


iRow = Cells(2, 3)
iColumn = 55
' set a unique integer for the new
' text file
FileNum = FreeFile
' Save this vcf file on desktop
OutFilePath = VBA.Environ$("UserProfile") & "\Desktop\MyContacts.VCF"
Open OutFilePath For Output As FileNum

With Sheets("Google")
While VBA.Trim(.Cells(iRow, 1)) <> ""
    googlestring = "Name,Given Name,Additional Name,Family Name,Yomi Name,Given Name Yomi,Additional Name Yomi,Family Name Yomi,Name Prefix,Name Suffix,Initials,Nickname,Short Name,Maiden Name,Birthday,Gender,Location,Billing Information,Directory Server,Mileage,Occupation,Hobby,Sensitivity,Priority,Subject,Notes,Language,Photo,Group Membership,E-mail 1 - Type,E-mail 1 - Value,Phone 1 - Type,Phone 1 - Value,Phone 2 - Type,Phone 2 - Value,Address 1 - Type,Address 1 - Formatted,Address 1 - Street,Address 1 - City,Address 1 - PO Box,Address 1 - Region,Address 1 - Postal Code,Address 1 - Country,Address 1 - Extended Address,Organization 1 - Type,Organization 1 - Name,Organization 1 - Yomi Name,Organization 1 - Title,Organization 1 - Department,Organization 1 - Symbol,Organization 1 - Location,Organization 1 - Job Description,Website 1 - Type,Website 1 - Value" & Chr(10)
    For iColumn = 2 To 56
        mystring = mystring & Cells(iRow, iColumn)
        If iColumn < 56 Then
            mystring = mystring & ","
        Else
            mystring = mystring & Chr(10)
        End If
    Next


' Start printing the data in above specified
' format of VCF file format
    Print #FileNum, googlestring
    Print #FileNum, mystring

    iRow = iRow + 1
Wend
End With
'Close The File
MsgBox "Total " & iRow - Cells(2, 3) & " Contacts are exported to VCF File. It is saved on your Desktop"
Close #FileNum
End Sub

Answer 1

Извини всех.Код в порядке, но я выполнил отладку и остановил его с помощью MsgBox (последняя, ​​но одна строка кода), который говорит, что контакты сохранены (в этот момент я проверил, что написано).Последняя строка - Закрыть файл.Файл не был закрыт и также не распечатан до конца).

Я переместил msgbox на последнюю строку кода, чтобы предотвратить это:))