excel - TAB 从 Excel VBA/MACRO 分隔 txt 文件

标签 excel vba

我需要制作一个包含一些值的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

现在我可以用我的代码中的“范围”功能控制哪些单元格要分开。但是..我该怎么做 指定制表符分隔符 “Const DELIMITER”而不是管道分隔符?另外..它似乎在第一个值之前添加了分隔符(即从第一个单元格)我如何使它从第一个值之后开始(但在 txt 文件中包含第一个单元格值?)

最佳答案

how do i specify the tab delimiter "Const DELIMITER " instead of the pipe separator?
对于上述情况,您可以使用 vbTab

关于excel - TAB 从 Excel VBA/MACRO 分隔 txt 文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2340949/

相关文章:

php - 使用 PHP 和 MySql 中的印地语 (Unicode) 内容将数据导出到 Excel

excel - vba 中的预期函数或变量错误

excel - 为什么我会收到此编译错误 : Type Mismatch

.net - 在 Outlook 2007 或更高版本中控制加密和数字签名按钮

Excel VBA 从源工作簿复制粘贴到多表工作簿

excel - 复制并粘贴到另一个工作表的第一个空行,如果第一个单元格为空,则粘贴到上一行

VBA 列限制中的 SQL 命令

php表将其导出到excel

c# - 在不同的工作簿上运行 Excel 宏

events - Visual Basic 中的 MSWinsock.Winsock 事件处理