Excel VBA помещает дополнительную пустую строку в конец текстового файла при экспорте

Question

У меня есть макрос Excel VBA, который выводит в текстовый файл.Внизу текстового файла всегда есть пустая строка, и у меня возникают проблемы с ее удалением.Любые полезные предложения будут с благодарностью!Спасибо

Sub testExport()

  Dim fPath As String, exportTxt As String
  fPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Sample_" & Format(Now(), "HHNNSS") & ".txt"

  exportTxt = "Project: Sample Output" & vbCrLf
  exportTxt = exportTxt & "Model Version: 1 "


  Open fPath For Append As #1    'write the new file
  Print #1, exportTxt
  Close #1

End Sub

Answer 1

Из справки оператора Print # и способов указать charpos после вывода данных:

charpos Указывает точку вставки для следующего символа. Использовать точка с запятой для позиционирования вставки указать сразу после последнего символ отображается. Используйте Tab (n), чтобы поместите точку вставки в Абсолютный номер столбца. Использовать вкладку с нет аргумента для размещения вставки указать в начале следующего зона печати. Если charpos опущен, следующий символ печатается на следующем линия.

Попробуйте вместо этого следующее:

Print #1, exportTxt;

Answer 2

То, что я делал и работал, было после того, как я создал текстовый файл, подсчитал строки с данными, которые я хотел скопировать, а затем перебрал их, создав новый файл, используя Print # 1, exportTxt; а также Печать # 1, "", за исключением последнего ряда.

Open sOrgFile For Input As #1
Do While Not EOF(1)
iCounter = iCounter + 1
Line Input #1, sData
If sData = "" Then Exit Do
Loop
Close #1

Open sOrgFile For Input As #1
Open sDestFile For Output As #2
Do While Not EOF(1)
iCounter2 = iCounter2 + 1
Line Input #1, sData
    If sData = "" Then Exit Do
Print #2, sData;
If iCounter2 <> iCounter Then Print #2, ""
sData = ""
Loop

Answer 3

Print #1, exportTxt;

печатает все в одну строку.без разрыва строки.