vba - Excel自定义格式添加“之前和之后的记录

Question

我要加 "在我的excel记录之前。我还想加 "|在每条记录之后。

我在 VBA 中使用自定义格式。

我的格式是 "\""@\""|"
我的结果是

"""1111""|" """Noel Gallagher""|"   |   """Individual""|"   """Employee""|" """111""|"  """Main Road""|"    """Town""|" """""|" """County"|"    """City""|" |   |   |   |   |   |   |   |   |       |   |   |   |   |   |   """IE""|"   """AAA""|"  """Value""|"

我需要

"1111"| "Noel Gallagher"|""|"Individual"|"Employee"|"111"|"Main Road"|"Town"|""|"County"|"City"|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|"IE"|"AAA"|"Value"|

我似乎无法通过自定义格式获得正确的结果。有没有替代的解决方案？

Answer 1

现在我对您的问题有了更好的理解，下面的代码应该可以为您提供所需的内容。

这将采用选定的范围并将其导出(使用您的文本限定符和分隔符要求)到一个名为 outputfile.txt 的文件。在 x 驱动器上。根据需要更改此设置。这意味着您不需要使用 Excel 保存文件，这一切都在宏中完成。

我假设您不希望/不需要文件每一行的最后一个管道。如果不是这种情况并且需要它，请删除将其剥离的行(它从 If Right(outputline, 1)... 开始)

Sub export_range_with_quotes_and_pipe()
    vbQt = """"
    delim = "|"
    exportfilename = "x:\outputfile.txt"
    Dim rng As Range
    Set rng = Selection ' or this could be a range such as = range("A2:X50")
    ff = FreeFile
    'create text file for output
    Open exportfilename For Output As ff
    'read each row from range
    For Each r In rng.Rows
        outputline = ""
        'read each cell in row R
        For Each c In r.Cells
            'build outputline from each cell in row R
            outputline = outputline & vbQt & c.Cells(1, 1).Text & vbQt & delim
        Next
        'strip last pipe delimiter as not required
        If Right(outputline, 1) = delim Then outputline = Left(outputline, Len(outputline) - 1)
        'send outputline to file
        Print #ff, outputline
    Next
    ' close file
    Close ff
    Set rng = Nothing
End Sub