求大侠帮忙，VBA打开多个文件，提取不同列到不同sheet

excel_2014

附件中有一个idata excel 文件，其余两个是要打开的文档。idata excel文件里面我写了一个宏，其中m=1的时候，excel会把那两个文档的第二列数据I2全部复制到sheet1中，当m=2时候，会把那两个文档的第三列数据I3全部复制到sheet2中。可是，我不知道怎么实现让m循环，让它自动完成这些动作。假如我有100个这样文档，我不可能手动改m 100次。多谢指导！！
或者 你有更简单的实现方法。

qq632726678

我也是 初学者 希望可以帮到你！

1. 
   
2. Sub dd()
   
3. Dim row1, column1, wb As Workbook, mp$, mf$, ma, mb
   
4.     Application.DisplayAlerts = False
   
5.     Application.ScreenUpdating = False
   
6.     mp = ThisWorkbook.Path & ""
   
7.     mf = Dir(mp & "*.cd2")
   
8.     x = 0
   
9.         While mf <> ""
   
10.         If mf <> ThisWorkbook.Name Then
    
11.             Set wb = Workbooks.Open(mp & mf)
    
12.              x = x + 1
    
13.             row1 = Cells(Rows.Count, x).End(xlUp).Row
    
14.             column1 = Cells(5, Columns.Count).End(xlToLeft).Column
    
15.             ma = Range("b2:b4")
    
16.             For a = 1 To column1 - 1
    
17.             mb = Range(Cells(5, a + 1), Cells(row1, a + 1))
    
18.             ThisWorkbook.Sheets(a).Cells(2, x).Resize(UBound(ma), UBound(ma, 2)) = ma
    
19.             ThisWorkbook.Sheets(a).Cells(5, x).Resize(UBound(mb), UBound(mb, 2)) = mb
    
20.             Next a
    
21.             End If
    
22.             wb.Close False
    
23.              mf = Dir
    
24.             
    
25.             Wend
    
26.                 Set wb = Nothing
    
27.      Application.DisplayAlerts = True
    
28.      Application.ScreenUpdating = True
    
29. End Sub
    

复制代码

data.zip (17.8 KB, 下载次数: 6)

2014-6-20 15:59 上传

点击文件名下载附件
附件