[已解决]为什么生成文本文件首行和其它行不对齐？

爱疯

Sub Click()
    Dim arr
    arr = Range("a1").CurrentRegion
    Call toTxT(arr, "c:\1.txt")
End Sub
'二维数组写入txt
Sub toTxT(arr, Fullpath)
    Dim s() As String, i As Long
    ReDim s(1 To UBound(arr))
    For i = 1 To UBound(arr)
        s(i) = Join(Application.Index(arr, i, 0), " ")
    Next
    Open Fullpath For Output As #1
    Print #1, , Join(s, vbCrLf)
    Close #1
End Sub
1.rar (8.93 KB, 下载次数: 11)

2013-12-10 00:01 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2013-12-10 08:43

把这句
Print #1, , Join(s, vbCrLf)

改成
Print #1, Join(s, vbCrLf)

跳转到最佳答案楼层

dongqing1998

因为字符串长度不同，直接JOIN可能会出现问题。
楼主试试下面的代码：

1. Sub test()
   
2.     Dim arr, i%, j%
   
3.     arr = Range("a1").CurrentRegion
   
4.     Open "C:\2.txt" For Output As #1
   
5.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             Print #1, arr(i, j) & Space(20 - LenB(StrConv(arr(i, j), vbFromUnicode)));
   
8.         Next
   
9.         Print #1,
   
10.     Next
    
11.     Close #1
    
12. End Sub

复制代码

zjdh

把这句
Print #1, , Join(s, vbCrLf)

改成
Print #1, Join(s, vbCrLf)

爱疯

dongqing1998 发表于 2013-12-10 04:20
因为字符串长度不同，直接JOIN可能会出现问题。
楼主试试下面的代码：

谢谢dongqing1998！


Sub test2()
    Dim arr, i%, j%, x, y
    arr = Range("a1").CurrentRegion
    Open "C:\2.txt" For Output As #1
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)

            '>>>
            x = StrConv(arr(i, j), vbFromUnicode)
            y = LenB(x)
            Debug.Print x, y
            '<<<

            Print #1, arr(i, j) & Space(20 - LenB(StrConv(arr(i, j), vbFromUnicode)));
        Next
        Print #1,
    Next
    Close #1
End Sub



常数 值 说明
vbFromUnicode 128 将字符串由Unicode转成系统的缺省码页。

1）我还是不理解 StrConv(字符串, vbFromUnicode) 转换后的特点，一味套用，可否解释下？以理解对本题的帮助
2）本题目的是把二维数组导出为文本文件。Join函数 和 index()工作表函数都是有限制的，所以当数据量足够大时，1楼报错，不知2楼方法吃的消么，有更快办法么？

爱疯

zjdh 发表于 2013-12-10 08:43
把这句
Print #1, , Join(s, vbCrLf)

谢谢zjdh!

可否说明下，对着语法，为什么你这样改了后就对齐了？

爱疯

唉，本题已评最佳了，

但问题是我还想知道怎样更快将“二维数组导出为文本文件”，

我再去开贴好了。。。。。

Dj_soo

放到单元格,然后将工作簿另存为文本?

爱疯

Dj_soo 发表于 2013-12-10 09:45
放到单元格,然后将工作簿另存为文本?

http://www.excelpx.com/thread-315160-1-1.html

来这儿吧