实在整不会了，只好来当伸手党了。求解决提取文件夹下特定工作表的特定行数据的问题

练大脖子

上个月开始陆陆续续学习VBA，结果写第一个程序就踢到铁板了。

我的需求是这样的：在不需要打开其中的工作簿的情况下，读取某一文件夹下（如果在程序中设置目标文件夹比较麻烦，那干脆就设置成    D:\本月工资表   好了）下的所有的工资单，点击汇总表中的“开始提取”按钮，将其中每个工作簿中的某一张表的合计行提取到本汇总表中，提取出来的汇总数据最前面还有一列以各工资单文件A2单元格中的文本值或是以文件名作为数据的索引号。
现在我想不明白的地方在于：1、文件夹中可能存在多种格式的工作簿，可能是xls/xlsx/xlsm格式都有，如何确保所有的文件不会因格式问题漏网？2、每一个工资表工作簿中可能有数量不等的工作表，我只需要取其中一张表头为“轨道公司工资单”的工作表中的合计行数据，由于这张表可能索引号、标签名、位置、是否激活等情况都不一致，我只能根据A1单元格的文本值是否为“轨道公司工资单”来判定是否是需要取值的工作表，如何来实现这一思路？3、合计行的位置是不定的，而且由于表后有行数不等的说明备注，也不能直接提取最后一行数据，我的想法是根据工资表中某一行第2列文本值是否为“总计”来判断是否是需要提取的合计数行号，不知是否可行？或者还有更简单的思路？
我也搜索过论坛里各位大佬已有的作品，似乎没有找到这种在工作表名称不确定、又需要提取特定一张工作表而且行号不确定的情况下批量提取某一行数据的案例，在此求各位大佬指点迷津！

microyip

1、文件夹中可能存在多种格式的工作簿，可能是xls/xlsx/xlsm格式都有，如何确保所有的文件不会因格式问题漏网？

1. Dir(文件夹 & "\*.xls*")

复制代码

1. For Each wSH In Sheets
   
2. If wSH.Name Like "*轨道公司工资单" Then
   
3. End If
   
4. Next

复制代码

1. Cells(Rows.Count,合计列所在列号).End(xlup).Row

复制代码

获取最后一行，然后往上找合计就是了

xiangbaoan

工资表及汇总.rar (57.3 KB, 下载次数: 21)

2022-7-6 06:29 上传

点击文件名下载附件

练大脖子

microyip 发表于 2022-7-6 01:27
1、文件夹中可能存在多种格式的工作簿，可能是xls/xlsx/xlsm格式都有，如何确保所有的文件不会因格式问题漏 ...

谢谢大佬的指点，还分了这么多项，感激不尽！
只是最后一项还是有点问题，因为该表最后几行可能会是数量不定的注释、说明，因此不能从最后一行向上取值，我的想法是查找本表中“总计”文本出现的行，并据此确定行号。

练大脖子

xiangbaoan 发表于 2022-7-6 06:29

谢谢您！真是太感谢了！

sdytsxd991122

练大脖子

sdytsxd991122 发表于 2022-7-6 09:09

再次表示感谢！读完xiangbaoan和您的代码后，我最大的感受就是我好像大大低估了VBA实现自定义需求的难度……