同一文件夹下若干表格相同区域提取

fymsir888

同一文件夹下有若干张人员登记表，格式都一样，只是登记的内容有多有少，现在想把各个人员登记表内容中人员情况部分即附件登记表表格中的B10:U17区域中的非空行进行复制后，选择性粘贴文本格式（因为有部分链接过来的内容）到汇总表的 B10：U10以下的区域（不要出现空行），恳请哪位大神帮忙解决，不胜感激！

laoau138

没有人回答，顶你啊，高手

Excel学徒123

1. dim strDir$,objWB as workbook,strPath$
   
2. strpath = "完整路径"
   
3. strdir = dir(strpath & "*.xls")
   
4. while len(strdir)>0
   
5.     set objwb = workbooks.open(strpath & strdir)
   
6.     '取数据代码
   
7.     objwb.close savechanges:=false
   
8. wend

复制代码

此格式，自行参考

laoau138

Excel学徒123 发表于 2016-9-10 21:40
此格式，自行参考

此贴过期超过半年，顶了两分钟有人做出来

你什么时候升版主了

Excel学徒123

laoau138 发表于 2016-9-10 22:23
此贴过期超过半年，顶了两分钟有人做出来

你什么时候升版主了

才升，没看时间，以为是新帖