这段代码输出的文本为何跟复制出来的不一样？

czr0373

附件有两个文本，一个是这段代码生成的，
一个是复制粘贴生成的，
它们因何不一样？
如何让代码执行的结果跟复制粘贴的完全一样？
Sub prt2()
    Dim Filename As String, x As Integer, y As Integer, Arr
    Arr = Sheet1.Range("a1:h23")
    Filename = Application.ActiveWorkbook.Path & "\wb.txt"
    Open Filename For Output As #1
             For x = 1 To UBound(Arr, 1)
            For y = 1 To UBound(Arr, 2)
                   Print #1, Arr(x, y);
                 Next
            Print #1,
        Next
    Close
End Sub

f22cdefeh

个人猜测：
你复制的数据是带格式的 TAB间隔。
然而，你输出的数据源——数组是没有格式的。你文件的写操作也是没设置格式，或是用了默认格式，默认格式又不是tab间隔。
所以是输出格式的问题。

要么对数组中的数组 字符串化，其后格式化。
要么在输出到文件的过程中进行格式化，但是不知道VBA有没有格式输出的功能。

czr0373

f22cdefeh 发表于 2018-6-15 18:58
个人猜测：
你复制的数据是带格式的 TAB间隔。
然而，你输出的数据源——数组是没有格式的。你文件的写操 ...

多谢回复，非常感谢！