订阅VBA提取当前文件夹内工作表指定单元格值
来源：网络收集 点击： 时间：2024-05-13【导读】：
批处理，批量提取文件夹内所有excel工作表中指定单元格数值，并返回到目标工作表中，便于统计，查找、计数工具/原料moreexcel工作表、VBA方法/步骤1/7分步阅读
2/7
3/7
4/7
5/7
6/7
7/7
注意事项
新建工作薄，表格第一行为名称行，如图
2/7按下alt+F11进入VBA代码编辑界面
3/7选中模块，添加模块1，并打开
4/7在模块中输入代码
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). 将A1值放在新表的第1列 .Cells(R, 2) = Sheets(sheet1). 将A1值放在新表的第1列 .Cells(R, 3) = Sheets(sheet1). 将B2值放在新表的第2列 End With ActiveWorkbook.Saved = True ActiveWorkbook.Close End If f = Dir Loop Until f = Application.ScreenUpdating = TrueEnd Sub
5/7保存，退出，将该表放到要提取数值的文件夹内，打开工作表，点击工具-宏-宏
6/7选中test宏，执行
7/7提取结果就出来了，这样办公是不是很效率呢。。。
注意事项该程序为示例，具体数据提取根据个人情况修改VBA代码
单元格版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_755112.html
上一篇：羽绒服怎么洗才没有水印
下一篇：《尼尔斯骑鹅旅行记》人物有哪些
