欢迎来到天天文库
浏览记录
ID:2463675
大小:20.50 KB
页数:1页
时间:2017-11-16
《批量提取excel单元格到新表格》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、Subhebin()Dimfs,f,f1,fc,sSetfs=CreateObject("Scripting.FileSystemObject")DimfdAsFileDialogSetfd=Application.FileDialog(msoFileDialogFolderPicker)fd.Shows=fd.SelectedItems(1)Setf=fs.GetFolder(s)Setfc=f.Filesn=0ForEachf1InfcIfRight(f1.Name,3)<>"xls"ThenGoTontn=n+1Workbooks.Openf1.Na
2、meWorkbooks(1).Sheets(1).Cells(n,1)=Workbooks(2).Sheets(1).Cells(2,3)Workbooks(1).Sheets(1).Cells(n,2)=Workbooks(2).Sheets(1).Cells(2,8)Workbooks(1).Sheets(1).Cells(n,3)=Workbooks(2).Sheets(1).Cells(2,11)Workbooks(2).CloseSaveChanges:=Falsent:NextEndSub注:红色的数字代表建立的新表格中的第几列,蓝色的数字代表
3、要提取的excel表格中的那一个单元格,(2,3)代表的是第二行的第三列,即,1代表将要提取的表格的第二行第三列统一赋值到新建表格的第一列。使用方法:新建立一个excel,在左下方的sheet1上点击右键,选择查看代码,在弹出的框里输入上述代码,然后选择“运行”->“运行子进程/用户窗体”,后会弹出一个对话框,选择要处理的excel表格所在文件夹,点击确定,程序自动提取
此文档下载收益归作者所有