[已解决]如何提高代码的运行速度

lijian8003

下列代码将excel各列数据导入txt文本，速度慢。能否提速？
Sub 导出()
    Dim x
    For x = 1 To 702
        Call 导出1(x)
    Next x
End Sub
Sub 导出1(x)
Dim i&, j%, k, s, arr
      arr = Sheets("参数1").UsedRange
      Open "d:\分解\参数1\" & Format(x, "0000") & ".txt" For Output As #1
          For i = 1 To 1470
              s = ""
              For j = x To x '假设数据区域有多列
                s = s & vbTab & arr(i, j)
              Next
              Print #1, Mid(s, 2)
          Next
      Close #1
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-19 11:38

小改一下，

1. Sub 导出()
   
2.     Call 导出1(1, 5)       '导出第1列--第5列
   
3. End Sub
   
4. Sub 导出1(x1, x2)
   
5. Dim i&, j%, k, s, arr
   
6.       arr = [a1].CurrentRegion
   
7.       Open ThisWorkbook.Path & "" & Format(x1, "0000") & "-" & Format(x2, "0000") & ".txt" For Output As #1
   
8.           For i = 1 To UBound(arr)
   
9.               s = ""
   
10.               For j = x1 To x2 '假设数据区域有多列
    
11.                 s = s & vbTab & arr(i, j)
    
12.               Next
    
13.               Print #1, Mid(s, 2)
    
14.           Next
    
15.       Close #1
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

金樽空对月

你干吗要建立那么多的TXT文件，我刚开始学习这方面的，但是我觉得要建立这么多文件，慢应该是正常的。或者你上个附件，我们也学习学习一下，{:35:}

grf1973

小改一下，

1. Sub 导出()
   
2.     Call 导出1(1, 5)       '导出第1列--第5列
   
3. End Sub
   
4. Sub 导出1(x1, x2)
   
5. Dim i&, j%, k, s, arr
   
6.       arr = [a1].CurrentRegion
   
7.       Open ThisWorkbook.Path & "" & Format(x1, "0000") & "-" & Format(x2, "0000") & ".txt" For Output As #1
   
8.           For i = 1 To UBound(arr)
   
9.               s = ""
   
10.               For j = x1 To x2 '假设数据区域有多列
    
11.                 s = s & vbTab & arr(i, j)
    
12.               Next
    
13.               Print #1, Mid(s, 2)
    
14.           Next
    
15.       Close #1
    
16. End Sub
    

复制代码