|
本帖最后由 xuyongyanxyy 于 2015-5-28 09:47 编辑
有几百个类似附件中的Excel文件,名称不一样,但都是需要名为Data_1工作表中的F列,G列,及K列的信息, 需要合并到一张表上。求教高手相应的VBA代码。
万分感谢
本帖最后由 爱疯 于 2015-5-27 16:59 编辑
Sub Click()
Dim p, f, A, B(1 To 60000, 1 To 4), s, i
p = ThisWorkbook.Path
f = Dir(p & "\file\")
Do While f <> ""
With Workbooks.Open(p & "\file\" & f)
A = Sheets(5).UsedRange
For i = 2 To UBound(A)
s = s + 1
B(s, 1) = A(i, 6)
B(s, 2) = A(i, 7)
B(s, 3) = A(i, 11)
B(s, 4) = f
Next i
.Close 0
End With
f = Dir
Loop
Workbooks.Add
[a1].Resize(s, 4) = B
ActiveWorkbook.SaveAs p & Format(Now, "yyyymmhh-hhmmss")
ActiveWorkbook.Close
End Sub
1.rar
(240.95 KB, 下载次数: 20)
|
|