[已解决]如何给宏代码加入循环语句

lijian8003

yyyydddd8888 发表于 2013-10-26 23:11
我也不清楚，我是xp 的系统，excel2003
你在出错的提示框中点一下调试按钮，看看出错的是哪一句代码，再 ...

With Application.FileSearch
就是这一句

yyyydddd8888

lijian8003 发表于 2013-10-26 23:17
With Application.FileSearch
就是这一句

把代码改成下面的试试：
附件如下，请测试：
数据.rar (12.29 KB, 下载次数: 3)

2013-10-26 23:23 上传

点击文件名下载附件

1. Sub 导入数据()
   
2.     Dim i&, j&, k&, s as string
   
3.     ThisWorkbook.Sheets(2).Columns("a:u").ClearContents
   
4.     Application.ScreenUpdating = False
   
5.    s = Dir(ThisWorkbook.Path & "\*.txt")
   
6.      Do While s <> ""
   
7.      i = i + 1
   
8.      s = Dir
   
9.      Loop
   
10.     k = 1
    
11. For j = 1 To i
    
12.     With Workbooks.Open("D:\数据\z" & j & ".txt")
    
13.         .ActiveSheet.Range("A1:u300").Copy ThisWorkbook.Sheets(2).Range("a" & k)
    
14.         .Close False
    
15.     End With
    
16.     k = k + 300
    
17.     Next j
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

lijian8003

yyyydddd8888 发表于 2013-10-26 23:21
把代码改成下面的试试：
附件如下，请测试：

谢谢您的帮助！代码完美解决问题。

yyyydddd8888

lijian8003 发表于 2013-10-26 23:26
谢谢您的帮助！代码完美解决问题。

能帮助你解决问题非常高兴！刚才忘记了在申明变量部分申明新变量 s
你加一句：dim s as string