批量提取excel单元格到新表格

《批量提取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表格所在文件夹，点击确定，程序自动提取