VBA提取当前文件夹内工作表指定单元格值

1、新建工作薄，表格第一行为名称行，如图

2、按下alt+F11进入VBA代码编辑界面

3、选中模块，添加模块1，并打开

4、在模块中输入代码

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

5、保存，退出，将该表放到要提取数值的文件夹内，打开工作表，点击工具-宏-宏

6、选中test宏，执行

7、提取结果就出来了，这样办公是不是很效率呢。。。