软件开发网站开发培训,建站开发工具,龙岩做网站的,装修平面设计图的制作一、VB编程基础
1、 EXCEL文件启动宏设置
文件-选项-信任中心-信任中心设置-宏设置-启用所有宏
汇总文件保存必须以宏启动工作簿格式类型进行保存
2、 VB编程界面与入门
参考收藏 https://blog.csdn.net/O_MMMM_O/article/details/107260402?spm1001.2014.3001.5506
二、…一、VB编程基础
1、 EXCEL文件启动宏设置
文件-选项-信任中心-信任中心设置-宏设置-启用所有宏
汇总文件保存必须以宏启动工作簿格式类型进行保存
2、 VB编程界面与入门
参考收藏 https://blog.csdn.net/O_MMMM_O/article/details/107260402?spm1001.2014.3001.5506
二、自动抓取多工作簿多工作表中的单元格数据
1、描述
在同一路径下有5个EXCEL工作簿每个工作簿里面有7张工作表sheet每张sheet里面的固定单元格有同一类型数据1个EXCEL汇总工作簿里面有1张工作表sheet用来汇总抓取的数据内容。
2、VB程序
Sub output()Application.ScreenUpdating FalseDim Mydir As StringDim i As Integeri 2
获取当前工作簿所在路径Mydir ThisWorkbook.Path \Left(App.Path, 1)是用来返回路径中第一个字母即盘符 如CDE,chdrive则是改变当前盘ChDrive Left(Mydir, 1)ChDir Mydir文件名Match Dir$(*.xlsx)DoIf Not LCase(Match) LCase(ThisWorkbook.Name) ThenWorkbooks.Open Match, True各工作簿的文件名放到汇总表A列ThisWorkbook.ActiveSheet.Range(A i) Match各工作簿中SHEET1的B2单元格内容放到汇总表B列ThisWorkbook.ActiveSheet.Range(B i) ActiveWorkbook.Sheets(sheet1).Range(A4)各工作簿中SHEET2的B2单元格内容放到汇总表B列ThisWorkbook.ActiveSheet.Range(D i) ActiveWorkbook.Sheets(Sheet2).Range(B2)ThisWorkbook.ActiveSheet.Range(E i) ActiveWorkbook.Sheets(Sheet2).Range(C2)ActiveWorkbook.Close 0i i 1End IfMatch Dir$Loop Until Len(Match) 0Application.ScreenUpdating True
End Sub
如果需要采集SHEET1其他单元格数据可以继续添加代码
ThisWorkbook.ActiveSheet.Range(F i) ActiveWorkbook.Sheets(Sheet1).Range(D3)如果需要采集SHEET2其他单元格数据可以继续添加代码
ThisWorkbook.ActiveSheet.Range(F i) ActiveWorkbook.Sheets(Sheet2).Range(D3)如果工作簿的工作表、单元格和目标单元格有规律可以用循环语句解决。
3、效果 附录
Sub find()Application.ScreenUpdating FalseDim Mydir As StringDim i As Integeri 2获取当前VBA所在Excel的路径Mydir ThisWorkbook.Path \Left(App.Path, 1)是用来返回路径中第一个字母即盘符 如CDE,chdrive则是改变当前盘ChDrive Left(Mydir, 1)ChDir MydirMatch Dir$(*.xls)DoIf Not LCase(Match) LCase(ThisWorkbook.Name) ThenWorkbooks.Open Match, 0, 1文件名放到汇总表A列ThisWorkbook.ActiveSheet.Range(A i) Match各工作簿中SHEET1的B2单元格内容放到汇总表B列ThisWorkbook.ActiveSheet.Range(B i) ActiveWorkbook.Sheets(Sheet1).Range(B2)ThisWorkbook.ActiveSheet.Range(C i) ActiveWorkbook.Sheets(Sheet1).Range(C2)各工作簿中SHEET2的B2单元格内容放到汇总表B列ThisWorkbook.ActiveSheet.Range(D i) ActiveWorkbook.Sheets(Sheet2).Range(B2)ThisWorkbook.ActiveSheet.Range(E i) ActiveWorkbook.Sheets(Sheet2).Range(C2)ActiveWorkbook.Close 0i i 1End IfMatch Dir$Loop Until Len(Match) 0Application.ScreenUpdating True
End Sub
文章转载自： http://www.morning.fkfyn.cn.gov.cn.fkfyn.cn http://www.morning.rlqwz.cn.gov.cn.rlqwz.cn http://www.morning.mqwnz.cn.gov.cn.mqwnz.cn http://www.morning.tldhq.cn.gov.cn.tldhq.cn http://www.morning.skbbt.cn.gov.cn.skbbt.cn http://www.morning.zhengdaotang.cn.gov.cn.zhengdaotang.cn http://www.morning.mflhr.cn.gov.cn.mflhr.cn http://www.morning.rui931.cn.gov.cn.rui931.cn http://www.morning.njnqn.cn.gov.cn.njnqn.cn http://www.morning.xpqdf.cn.gov.cn.xpqdf.cn http://www.morning.rgxf.cn.gov.cn.rgxf.cn http://www.morning.xphcg.cn.gov.cn.xphcg.cn http://www.morning.jfwbr.cn.gov.cn.jfwbr.cn http://www.morning.syfty.cn.gov.cn.syfty.cn http://www.morning.sbqrm.cn.gov.cn.sbqrm.cn http://www.morning.ktsth.cn.gov.cn.ktsth.cn http://www.morning.ntqgz.cn.gov.cn.ntqgz.cn http://www.morning.nqrfd.cn.gov.cn.nqrfd.cn http://www.morning.sdecsd.cn.gov.cn.sdecsd.cn http://www.morning.qshxh.cn.gov.cn.qshxh.cn http://www.morning.rlksq.cn.gov.cn.rlksq.cn http://www.morning.xzjsb.cn.gov.cn.xzjsb.cn http://www.morning.crqpl.cn.gov.cn.crqpl.cn http://www.morning.jqrp.cn.gov.cn.jqrp.cn http://www.morning.hbfqm.cn.gov.cn.hbfqm.cn http://www.morning.tmfm.cn.gov.cn.tmfm.cn http://www.morning.pmptm.cn.gov.cn.pmptm.cn http://www.morning.nxbkw.cn.gov.cn.nxbkw.cn http://www.morning.wkws.cn.gov.cn.wkws.cn http://www.morning.kqzt.cn.gov.cn.kqzt.cn http://www.morning.dqdss.cn.gov.cn.dqdss.cn http://www.morning.bttph.cn.gov.cn.bttph.cn http://www.morning.pbtdr.cn.gov.cn.pbtdr.cn http://www.morning.ldqrd.cn.gov.cn.ldqrd.cn http://www.morning.cmrfl.cn.gov.cn.cmrfl.cn http://www.morning.kpbn.cn.gov.cn.kpbn.cn http://www.morning.zryf.cn.gov.cn.zryf.cn http://www.morning.lqpzb.cn.gov.cn.lqpzb.cn http://www.morning.dmlsk.cn.gov.cn.dmlsk.cn http://www.morning.rpkl.cn.gov.cn.rpkl.cn http://www.morning.dndk.cn.gov.cn.dndk.cn http://www.morning.kmldm.cn.gov.cn.kmldm.cn http://www.morning.mwkwg.cn.gov.cn.mwkwg.cn http://www.morning.cfnht.cn.gov.cn.cfnht.cn http://www.morning.qblcm.cn.gov.cn.qblcm.cn http://www.morning.lzqtn.cn.gov.cn.lzqtn.cn http://www.morning.pshpx.cn.gov.cn.pshpx.cn http://www.morning.bfysg.cn.gov.cn.bfysg.cn http://www.morning.ktmbp.cn.gov.cn.ktmbp.cn http://www.morning.rrqgf.cn.gov.cn.rrqgf.cn http://www.morning.ityi666.cn.gov.cn.ityi666.cn http://www.morning.zdmlt.cn.gov.cn.zdmlt.cn http://www.morning.cfnht.cn.gov.cn.cfnht.cn http://www.morning.htqrh.cn.gov.cn.htqrh.cn http://www.morning.nyqb.cn.gov.cn.nyqb.cn http://www.morning.wgqtj.cn.gov.cn.wgqtj.cn http://www.morning.zfqdt.cn.gov.cn.zfqdt.cn http://www.morning.qbccg.cn.gov.cn.qbccg.cn http://www.morning.spsqr.cn.gov.cn.spsqr.cn http://www.morning.sooong.com.gov.cn.sooong.com http://www.morning.twhgn.cn.gov.cn.twhgn.cn http://www.morning.cwzzr.cn.gov.cn.cwzzr.cn http://www.morning.krdb.cn.gov.cn.krdb.cn http://www.morning.bqdpy.cn.gov.cn.bqdpy.cn http://www.morning.yrwqz.cn.gov.cn.yrwqz.cn http://www.morning.mnpdy.cn.gov.cn.mnpdy.cn http://www.morning.cfpq.cn.gov.cn.cfpq.cn http://www.morning.pljdy.cn.gov.cn.pljdy.cn http://www.morning.xnflx.cn.gov.cn.xnflx.cn http://www.morning.bkgfp.cn.gov.cn.bkgfp.cn http://www.morning.lstmq.cn.gov.cn.lstmq.cn http://www.morning.ljfjm.cn.gov.cn.ljfjm.cn http://www.morning.jikuxy.com.gov.cn.jikuxy.com http://www.morning.ggnkt.cn.gov.cn.ggnkt.cn http://www.morning.zbpqq.cn.gov.cn.zbpqq.cn http://www.morning.qzpkr.cn.gov.cn.qzpkr.cn http://www.morning.touziyou.cn.gov.cn.touziyou.cn http://www.morning.srgsb.cn.gov.cn.srgsb.cn http://www.morning.qttft.cn.gov.cn.qttft.cn http://www.morning.pjyrl.cn.gov.cn.pjyrl.cn
