TAB从Excel VBA / MACRO分离的txt文件

我需要做一个Excel文件,其中有一些值..在一个选项卡分隔值的文本文件….解决scheme1 ​​-i可以将其保存为制表符分隔文本文件..但问题是它也节省了列标题,我不需要。不知道如何改变!

解决scheme2 – 我有这样的代码:

Public Sub CharacterSV() Const DELIMITER As String = " |" Dim myRecord As Range Dim myField As Range Dim nFileNum As Long Dim sOut As String nFileNum = FreeFile Open "Test.txt" For Output As #nFileNum For Each myRecord In Range("A2:A" & _ Range("A" & Rows.Count).End(xlUp).Row) With myRecord For Each myField In Range(.Cells, _ Cells(.Row, Columns.Count).End(xlToLeft)) sOut = sOut & DELIMITER & myField.Text Next myField Print #nFileNum, Mid(sOut, 2) sOut = Empty End With Next myRecord Close #nFileNum End Sub 

现在我可以控制哪些单元格与我的代码中的“范围”function分开tab..howhow..how如何指定制表符分隔符 “Const DELIMITER”,而不是pipe道分隔符? 也似乎在第一个值之前(即从第一个单元格)添加分隔符。我如何使它从第一个值之后开始(但包括txt文件中的第一个单元格值?)

how do i specify the tab delimiter "Const DELIMITER " instead of the pipe separator?

对于以上,你可以使用vbTab

也似乎在第一个值之前(即从第一个单元格)添加分隔符。我如何使它从第一个值之后开始(但包括txt文件中的第一个单元格值?)

这行代码:

 sOut = sOut & DELIMITER & myfield.txt 

首先添加分隔符,因为第一次通过你的循环,sOut =“”。 将此代码更改为:

 sOut = sOut & myfield.txt & DELIMITER 

然后在你的循环结束后,如果你不需要额外的分隔符,使用修剪操作将其删除。