当前位置：首页 → 问答吧 → 2维数组写入TXT的问题

2维数组写入TXT的问题

时间：2011-08-06

来源：互联网

Sub Macro1()
Dim arr, i, j, stra As String
arr = Sheet1.Range("a1").CurrentRegion
Open ThisWorkbook.Path & "\aaa.txt" For Output As #1

1 2 3 4 5 6 7 8 9 10 11 12 13
2 3 4 5 6 7 8 9 10 11 12 13 14
3 4 5 6 7 8 9 10 11 12 13 14 15
4 5 6 7 8 9 10 11 12 13 14 15 16
5 6 7 8 9 10 11 12 13 14 15 16 17
6 7 8 9 10 11 12 13 14 15 16 17 18
7 8 9 10 11 12 13 14 15 16 17 18 19
8 9 10 11 12 13 14 15 16 17 18 19 20
9 10 11 12 13 14 15 16 17 18 19 20 21
10 11 12 13 14 15 16 17 18 19 20 21 22
11 12 13 14 15 16 17 18 19 20 21 22 23
12 13 14 15 16 17 18 19 20 21 22 23 24
13 14 15 16 17 18 19 20 21 22 23 24 25
14 15 16 17 18 19 20 21 22 23 24 25 26
15 16 17 18 19 20 21 22 23 24 25 26 27
16 17 18 19 20 21 22 23 24 25 26 27 28
17 18 19 20 21 22 23 24 25 26 27 28 29
18 19 20 21 22 23 24 25 26 27 28 29 30
19 20 21 22 23 24 25 26 27 28 29 30 31

For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)

   stra = stra & vbTab & arr(i, j) '每行字符前多了个VBTAB

Next
   stra = stra & vbCrLf
Next
Print #1, stra
Close #1
End Sub

'问题，怎么使每行数据前后都没有VBTAB

作者: Qinqinjiang 发布时间: 2011-08-06

作者: Qinqinjiang 发布时间: 2011-08-07

Sub Macro1()
Dim arr, i, j, stra As String
arr = Sheet1.Range("a1").CurrentRegion
Open ThisWorkbook.Path & "\aaa.txt" For Output As #1
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)

   stra = stra & IIf(j = 1, "", vbTab) & arr(i, j)

Next
   stra = stra & vbCrLf
Next
Print #1, stra
Close #1
End Sub

作者: doitbest 发布时间: 2011-08-07

stra = stra & IIf(j = 1, "", vbTab) & arr(i, j)
谢谢，原来是这样啊，这样会多开支好多时间

作者: Qinqinjiang 发布时间: 2011-08-07

写程序有时象捅窗户纸，点一下就可以了

作者: doitbest 发布时间: 2011-08-07