将多个EXCEL表中部分固定单元格的内容整理提取到一张工作表中

最新推荐文章于 2025-01-24 11:48:00 发布

咯好好

最新推荐文章于 2025-01-24 11:48:00 发布

阅读量6.3k

点赞数 3

分类专栏： excel进阶

本文链接：https://blog.csdn.net/qq_21036939/article/details/117513224

版权

本文介绍如何高效地从多个Excel工作表中提取特定固定单元格的数据，并整合到一张新的工作表中，适用于需要跨表汇总特定信息的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit
 
' 文件系统对象,用来操作文件/目录;
Private fso As New FileSystemObject
  
Sub 汇总当前目录下的文件()
    ' 得到当前工作簿所在目录的路径字符串;
    Dim strCurDir As String
    strCurDir = ThisWorkbook.Path
 
    ' 得到工作簿所在目录的文件夹对象;
    Dim objFolder As Folder
    Set objFolder = fso.GetFolder(strCurDir)
 
    ' i用于记录汇总表的当前行,由于数据从第二行开始,所以这里i=2;
    Dim i As Integer
    i = 2
 
    ' 得到当前工作簿的第一个工作表对象(也就是汇总表);
    Dim objSheet As Worksheet
    Set objSheet = ThisWorkbook.Sheets(1)
 
    ' 遍历汇总工作目录下的所有文件;
    Dim objFile As File
    For Each objFile In objFolder.Files
        ' 如果当前文件不是汇总文件(是数据文件),就打开,读取数据;
        If InStr(objFile.Name, "特采单清单汇总") = 0 Then
            ' 打开工作簿,并设置工作簿对象;
            Dim objBook As Workbook
            Set objBook = Workbooks.Open(objFile.Path)
 
            ' 设置第二个工作表对象,此对象对应每个数据文件;
            Dim objSheet2 As Worksheet
            Set objSheet2 = objBook.Sheets(1)