Пробелы при использовании «Печать» в VBA

Question

По какой-то причине я получаю много пробелов перед каждым значением при попытке печати в плоский текстовый файл.

'append headers
Cells(start_row - 2, 1).Select
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Column
    If ActiveCell.Offset(0, 1).Column = ActiveCell.SpecialCells(xlLastCell).Column Then
        Print #finalCSV, Cells(start_row - 2, i) & "\n",
    Else
        Print #finalCSV, Cells(start_row - 2, i) & ",",
    End If
Next i

Пример вывода:

DC Capacity:hi,             Resistive Capacity:lo,      Resistive Capacity:hi,      Reactive Capacity:lo,

Есть ли способ избавиться от этих пробелов?

Answer 1

Print #finalCSV, Cells(start_row - 2, i) & ",";

Если я правильно помню свой VB, запятая вставляет вкладку, а точка с запятой просто подавляет символ новой строки.

Answer 2

Print #finalCSV, Trim(Cells(start_row - 2, i)) & ",",

Answer 3

Ответ Винсента верен, но я хочу сделать его еще более ясным:

Печать #finalCSV, Ячейки (start_row - 2, i) & ",",

даст такой вид вывода:

> DC Capacity:hi,             Resistive Capacity:lo,      Resistive
> Capacity:hi,      Reactive Capacity:lo,

и использовать точку с запятой в конце предложения:

Print #finalCSV, Ячейки (start_row - 2, i) & ",";

даст вам такой вывод:

> DC Capacity:hi,Resistive Capacity:lo,Resistive Capacity:hi,Reactive
> Capacity:lo,