Excel 2010 VBA 入门 092 数据处理之汇总多工作簿的数据

最新推荐文章于 2024-01-20 16:23:17 发布

ngbshzhn

最新推荐文章于 2024-01-20 16:23:17 发布

阅读量550

点赞数

分类专栏： # Excel 2010 VBA 入门

本文链接：https://blog.csdn.net/ngbshzhn/article/details/116697387

版权

本文介绍如何使用VBA在Excel 2010中汇总同一文件夹下多个工作簿的数据。通过示例和代码展示，讲解了GetObject函数的应用，以实现批量处理数据，计算所有大学外语学院各系2010年的招生总数。

摘要由CSDN通过智能技术生成

示例

如图所示，在同一个文件夹下有若干个结构相同的工作簿，其中存储了各个大学外语学院各系的招生人数。现需要对该文件夹下的所有工作簿中的数据汇总，求出所有大学外语学院各系2010年招生的总数。如何用VBA实现？

代码

Option Explicit

Sub 多工作薄汇总()
    Dim wbk As Workbook
    Dim shtSum As Worksheet
    Dim shtData As Worksheet
    Dim rowSum As Long
    Dim colSum As Long
    Dim rowNew As Long
    Dim rowData As Long
    Dim FileName As String
    Dim FilePath As String
    Dim Rng As Range
    Dim bln As Boolean
    Dim index As Long
    
    Set shtSum = Sheets("sheet1")
    
    FilePath = ThisWorkbook.Path & "\分表\"
    
    Application.DisplayAlerts = False
    
    rowNew = 1
    colSum = 2
    
    shtSum.Cells.Clear
    
    FileName = Dir(FilePath & "*.xls")
    
    Do While FileName <> ""
        colSum = colSum &#