VBA提取当前文件夹内工作表指定单元格值
批处理，批量提取文件夹内所有excel工作表中指定单元格数值，并返回到目标工作表中，便于统计，查找、计数
操作方法
- 01
新建工作薄，表格第一行为名称行，如图
- 02
按下alt+F11进入VBA代码编辑界面
- 03
选中模块，添加模块1，并打开
- 04
在模块中输入代码 Sub test() Application.ScreenUpdating = False p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls") m = ThisWorkbook.Name R = 1 Do If f <> m Then Workbooks.Open (p & f) R = R + 1 With Workbooks(m).Sheets(1) .Cells(R, 1) = Sheets("sheet1").[h12] '将A1值放在新表的第1列 .Cells(R, 2) = Sheets("sheet1").[b27] '将A1值放在新表的第1列 .Cells(R, 3) = Sheets("sheet1").[c27] '将B2值放在新表的第2列 End With ActiveWorkbook.Saved = True ActiveWorkbook.Close End If f = Dir Loop Until f = "" Application.ScreenUpdating = TrueEnd Sub
- 05
保存，退出，将该表放到要提取数值的文件夹内，打开工作表，点击工具-宏-宏
- 06
选中test宏，执行
- 07
提取结果就出来了，这样办公是不是很效率呢。。。