将Excel工作表保存到文本文件时，如何增加字符长度功能？

下面的代码将活动工作表保存到文本文件中。问题是它产生了一个疯狂的输出，在另一行上打印了行的某些部分

这是我的密码

Sheets("TreeEng.xml").Select

ActiveWorkbook.SaveAs Filename:=thisWB.path & "\TreeEng.txt", FileFormat:=xlTextPrinter ' //Save as text (tab delimited) file
If ActiveWorkbook.Name <> ThisWorkbook.Name Then '//Double sure we don't close this workbook
    ActiveWorkbook.Close False
End If

Sheets（“TreeEng.xml”）。选择
ActiveWorkbook.SaveAs文件名：=thisWB.path&“\TreeEng.txt”，文件格式：=xlTextPrinter'//另存为文本（制表符分隔）文件
如果是ActiveWorkbook.Name ThisWorkbook.Name，则“//再次确认不关闭此工作簿
ActiveWorkbook.Close为False
如果结束

这是它产生的输出：

<DATAPACKET>
    <ROWDATA>
        <ROW TITLE="Israel" INDENT="0" HREF="01_01_Introduction_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title2" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Distinctive Features of the Employment Environment" INDENT="1" HREF="02_01_Distinctive Features of the Employment Environment_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title3" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Key Changes in Recent Years" INDENT="1" HREF="03_01_Key Changes in Recent Years_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title3" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Key Breakpoints Related to Number of Employees" INDENT="1" HREF="04_01_Key Breakpoints Related to Number of Employees_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title3" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Start of Employment" INDENT="1" HREF=" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title3" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Contract of Employment" INDENT="2" HREF="05_01_Contract of Employment_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title4" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Non-Compete and Other Clauses" INDENT="2" HREF="05_02_Non-Compete and Other Clauses_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title4" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Framework for Employee Participation and Representation" INDENT="2" HREF="07_01_Framework for Employee Participation and Representation_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title4" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Collective Bargaining" INDENT="2" HREF="07_02_Collective Bargaining_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title4" DXPARSE="TRUE" ENABLED="TRUE" />
        <ROW TITLE="Industrial Action" INDENT="2" HREF="07_03_Industrial Action_ETCISR.htm" HREF_JD="" IMG="" STYLE="" INCLUDE="" CODE="" CLASS="tree_title4" DXPARSE="TRUE" ENABLED="TRUE" />
    </ROWDATA>
</DATAPACKET>   

Tim Williams写了一个链接，太棒了！它起作用了！Tim Williams写了一个链接，太棒了！它起作用了！