[求助] 各位老师帮助修改宏，谢谢！

无聊的疯子

顺序有关系么??提取完了排一下序就行了!!

wayy

一共就3文件，不用DIR了，直接写文件名就行了。

无聊的疯子

xhcyi 发表于 2012-5-31 10:29
顺序有关,有很百txt文件,只提取3个

就三个文件不如直接Copy,比写代码还快呢!!

wayy

1. Sub wayy()
   
2. Dim wj As String
   
3. Range("A2:L65536").ClearContents
   
4. s = 0: s1 = 1
   
5. For Each wj In Array("重点.txt", "指定.txt", "普通.txt")
   
6.     s = s + 1
   
7.     s2 = 0
   
8.     Open ThisWorkbook.Path & "" & wj For Input As #s
   
9.     Do While Not (EOF(s))
   
10.         Line Input #s, n
    
11.         s2 = s2 + 1
    
12.         If s2 > 1 Then
    
13.             Y = Split(n, ",")
    
14.             If UBound(Y) > 1 Then     '非空行
    
15.               s1 = s1 + 1
    
16.               For i = 0 To UBound(Y)
    
17.                 Cells(s1, i + 1) = Y(i)
    
18.                 Cells(s1, 21) = Right(wj, 12)
    
19.               Next i
    
20.            End If
    
21.         End If
    
22.     Loop
    
23.     Close #s
    
24. Next
    
25. End Sub

复制代码

这样试一下。

wayy

xhcyi 发表于 2012-5-31 18:48
for each控件变量必须为变体或对象

1. Sub aaa()
   
2. Dim arr
   
3. arr = Array("重点.txt", "指定.txt", "普通.txt")
   
4. For x = 0 To UBound(arr)
   
5.    MsgBox arr(x)
   
6. Next
   
7. End Sub

复制代码

按这个模式添加到代码里吧。