求助 菜鸟想输出excel结果为一个txt文件

ztyxcr

文件格式类似这样   有两列  一列是数字  一列是数据  数字与数据都会大于这个示例   
  想输出成一个txt文件   文件内容如下 格式是每个数字对应一行 数据用|隔开
a|b|c
d|e|f
g|h|i  
  j|k| l
求教

zhenghui13

根据前人的代码改写了一个.

1. Sub Excel2Text()
   
2. Dim t
   
3. Dim Fso As Object
   
4. Dim F$
   
5. Dim arr
   
6. Dim i, j
   
7. Dim Str$
   
8. Dim k
   
9. On Error Resume Next
   
10. t = Timer
    
11. F = "aaa.txt"
    
12. Kill ThisWorkbook.Path & "" & F
    
13. With Sheet1
    
14.     arr = .UsedRange
    
15.     Open ThisWorkbook.Path & "" & F For Output As #1
    
16.     k = arr(1, 1)
    
17.     Str = ""
    
18.     For i = 1 To UBound(arr, 1)
    
19.         If k = arr(i, 1) Then
    
20.             Str = Str & CStr(arr(i, 2)) & "|"
    
21.         Else
    
22.             Str = Left(Str, (Len(Str) - 1))
    
23.             Print #1, Str
    
24.             Str = CStr(arr(i, 2)) & "|"
    
25.             k = arr(i, 1)
    
26.         End If
    
27.     Next
    
28.     Close #1
    
29. End With
    
30. MsgBox (Timer - t)
    
31. End Sub

复制代码

ztyxcr

zhenghui13 发表于 2018-7-17 11:17
根据前人的代码改写了一个.

好的   我去测试一下  谢谢兄弟的帮助