Получение дополнительной пустой строки при экспорте диапазона Excel в файл .txt

Shai Rado спросил: 14 ноября 2017 в 06:16 в: vba

Я пытаюсь скопировать диапазон Excel в файл .txt.

Экспорт выполнен успешно, за одним исключением. Он добавляет одну"дополнительную" пустую строку в конец.

Я прочитал и протестировал многие решения на SO (и других сайтах), но все еще безуспешно.

Мой код (соответствующая часть)

' === Export to the .txt file ===
Dim TxtFileName As String, lineText As StringTxtFileName = ThisWorkbook.Path & "\Inv_" & Format(Date, "yyyymmdd") & ".txt"Open TxtFileName For Output As #1
With StockSht
    For i = 1 To LastRow
        For j = 1 To 3
            If j = 3 Then
                lineText = lineText & .Cells(i, j).Value2
            Else ' j = 1 or 2
                lineText = lineText & .Cells(i, j).Value2 & vbTab
            End If
        Next j
        Print #1, lineText
        lineText = ""
    Next i
End With
Close #1

Мои StockSht (объект листа) и LastRow определены правильно и получают их значения.

Снимок экрана конца экспортированного файла .txt

0 ответов