[已解决]求文本分割

hhh0310

新建文件夹.rar (1.91 KB, 下载次数: 9)

2016-9-30 15:18 上传

点击文件名下载附件



表中没有编号，假定有10000打记录，生成记事本文件，已加上编号。

要求分割并生成记事本文件，每个记事本文件记录不超过3000笔，自助加上编号并能统计出每一个记事本文件总笔数及总金额。

谢谢！

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-9-30 18:47

常规想法做的代码

跳转到最佳答案楼层

苏子龙

1. Sub tt()
   
2.     Dim str$, arr, i%, n%
   
3.     arr = Range("a1").CurrentRegion
   
4.     Open ThisWorkbook.Path & "/" & "abc.txt" For Output As 1
   
5.         For i = 1 To UBound(arr)
   
6.         str = ""
   
7.         For n = 1 To UBound(arr, 2)
   
8.             str = str & "," & arr(i, n)
   
9.         Next n
   
10.         str = i & str
    
11.         Print #1, str
    
12.         Next i
    
13.     Close #1
    
14.     Erase arr
    
15. End Sub
    

复制代码

hhh0310

苏子龙 发表于 2016-9-30 15:57

文本未被分割，要求每个记事本不超过3000笔，多个记事本均从123开始编号，并能统计出每个记事本文件的总笔数及总金额。
记事本文件最好这样命名，3000-1565523.23
前面总笔数，后面总金额，中间加一个“-”。

苏子龙

常规想法做的代码