1、新建工作薄，表格第一行为名称行，如图
2、按下alt+F11进入VBA代码编辑界面
3、选中模块，添加模块1，并打开
4、在模块中输入代码Sub test() Application.ScreenUpdating = False p = ThisWorkboo娱浣嫁装k.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
5、保存，退出，将该表放到要提取数值的文件夹内，打开工作表，点击工具-宏-宏
6、选中test宏，执行
7、提取结果就出来了，这样办公是不是很效率呢。。。
