怎样通过VB实现多个EXCEL中特定行列的数据的提取

Question

怎样通过VB实现多个EXCEL中特定行列的数据的提取，并且最终放到一个新的excel中，比如说我要吧每个excel中第3行数据提去出来

Answer 1

楼上的都不可使用
我来给个能用的。如果好用 希望楼主多给点分

你在桌面建立个新的excel 命名为 "汇总" (程序运行完可以改名）
并将你的多个excel 放在 D盘根目录下的 “提取”文件夹 ，即创建个文件夹
并命名为“提取”,注意 这些名字都是不带双引号的。

以上步骤做好 然后打开名为 汇总 的excel

依次点击键盘 alt+F11 alt+i m

把以下代码复制进去
Sub 汇总数据()

Application.ScreenUpdating = False

p = "d:\\提取\\"

f = Dir(p & "*.xls")

Do While f <> ""

Workbooks.Open p & f

r = r + 1

ActiveSheet.Rows(3).Copy

Workbooks("汇总.xls").Sheets("sheet1").Activate
ActiveSheet.Range("A" & r).Select
ActiveSheet.Paste
Application.CutCopyMode = xlCut
Workbooks(f).Activate
ActiveWorkbook.Saved = True

ActiveWindow.Close

f = Dir

Loop

Application.ScreenUpdating = True
End Sub

我这里使用的 excel 2003 如果是你用的2007
把代码中的
Workbooks("汇总.xls").Sheets("sheet1").Activate
改为
Workbooks("汇总.xlsx").Sheets("sheet1").Activate

f = Dir(p & "*.xls")
改为
f = Dir(p & "*.xlsx")

这里是复制的第3行
如过要复制别的行
把代码中的
ActiveSheet.Rows(3).Copy
3 改为你想要的行

然后 敲击 F5 点运行 就ok了

如果还有什么问题可以 百度hi 我 上班时间我都在