选项卡从Excel VBA/宏中分离txt文件

我需要制作一个excel文件，其中包含一些值..到一个选项卡分隔的值文本文件。。。。 解决方案1 -我可以将它保存为一个选项卡分隔的文本文件。但问题是它还保存了我不需要的列标题。不知道如何更改它

解决方案2-我有以下代码：

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

现在我可以用代码中的Range函数控制制表符分隔哪些单元格。但是，如何指定制表符分隔符Const delimiter而不是管道分隔符？另外..似乎在第一个值之前添加delimeter，即从第一个单元格添加，如何使其从第一个值之后开始，但在txt文件中包含第一个单元格值？

如何指定制表符分隔符Const delimiter而不是管道分隔符

对于以上内容，可以使用vbTab

如何指定制表符分隔符Const delimiter而不是管道分隔符

对于以上内容，可以使用vbTab

另外，它似乎增加了delimeter 在第一个值之前，即从 第一个单元格如何启动 从第一个值之后的 将第一个单元格值包含在 txt文件

这行代码：

sOut = sOut & DELIMITER & myfield.txt

首先添加分隔符，因为第一次通过循环时，sOut=。将此代码更改为：

sOut = sOut & myfield.txt & DELIMITER

然后，在循环完成后，如果不希望在末尾添加额外的分隔符，请使用修剪操作将其删除

另外，它似乎增加了delimeter 在第一个值之前，即从 第一个单元格如何启动 从第一个值之后的 将第一个单元格值包含在 txt文件

这行代码：

sOut = sOut & DELIMITER & myfield.txt

首先添加分隔符，因为第一次通过循环时，sOut=。将此代码更改为：

sOut = sOut & myfield.txt & DELIMITER

---

然后在循环完成后，如果您不想在末尾添加额外的分隔符，请使用修剪操作将其删除。

谢谢。。。！！工作..如何添加已完成的消息？@Andread如果您在问如何将此标记为已接受的答案，则在向上和向下投票箭头下方的左侧有一个复选标记。谢谢。。。！！有效..如何添加已完成的消息？@Andread如果你在问如何将此标记为已接受答案，则在向上和向下投票箭头下方的左侧有一个复选标记。