[已解决]如何用宏代码：将单元格的数据循环导入txt文本

lijian8003

请看附件  如何用宏代码将单元格的循环数据导入txt文本：
1、将AL1的数据导出15次，分别导入D:/数据/1.txt 2.txt …15.txt
2、将AM1的数据导出15次，分别导入D:/数据/16.txt 17.txt …30.txt
3、将AN1的数据导出15次，分别导入D:/数据/31.txt 32.txt …45.txt
……
210、将IM1的数据导出15次，分别导入D:/数据/3136.txt 3137.txt …3150.txt

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-2 04:55

1. Sub Macro1()
   
2. Dim arr, i%, j%, s&
   
3. arr = [al1:im1]
   
4. For i = 1 To UBound(arr, 2)
   
5.     For j = 1 To 15
   
6.         s = s + 1
   
7.         'D:/数据/替代ThisWorkbook.Path & ""
   
8.         Open ThisWorkbook.Path & "" & s & ".txt" For Output As #1
   
9.             Write #1, arr(1, i)
   
10.         Close #1
    
11.     Next
    
12. Next
    
13. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, i%, j%, s&
   
3. arr = [al1:im1]
   
4. For i = 1 To UBound(arr, 2)
   
5.     For j = 1 To 15
   
6.         s = s + 1
   
7.         'D:/数据/替代ThisWorkbook.Path & ""
   
8.         Open ThisWorkbook.Path & "" & s & ".txt" For Output As #1
   
9.             Write #1, arr(1, i)
   
10.         Close #1
    
11.     Next
    
12. Next
    
13. End Sub

复制代码

1032446692

想不通   这有什么意义呢