在VBA中使用“打印”时的空格

出于某种原因，我在尝试打印到平面文本文件时在每个值的前面都获得了很多空格。

'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，Cells（start_row – 2，i）＆“，”，

会给这种输出：

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

并在句尾使用分号：

打印#finalCSV，Cells（start_row – 2，i）＆“，”;

会给你这个输出：

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