分享

VBA:批量提取文件夹内多个Excel表中的指定位置数据

 L罗乐 2017-09-04

【需求】

√ 同一文件夹内,多个Excel工作簿;

√ 同一文Excel簿内,有多个工作表;

√ 所有工作表的表格式完全相同;

√ 只提取每个工作表内同一个位置的的内容

√ 提取的结果依此存进专门的Excel工作簿里。

【方法】

Step1:将文件夹内存储了原始数据的Excel工作簿的名称做统一调整:

图1 统一Excel工作表名称

说明:

        √ 要求所有名称的差异仅在后面的最后一位数字。

Step2:新建一个汇总表,并编写VBA代码:

--------------------------------------------------------------------------------------------------------

Sub 各门店9月份营收数据提取()

   Dim i, j, k, x As Integer

   Dim wb As Workbook

   x = 2

   For i = 1 To 8

      Set wb = Workbooks.Open('C:\Users\bingangq\Desktop\月度/2017年财务预算_预算数_人民币_默认版本' & i)

      j = wb.Sheets.Count

         For k = 1 To j

            Workbooks('9月份所有门店营收').Sheets(1).Cells(x, 1) = wb.Sheets(k).Cells(1, 5)

            Workbooks('9月份所有门店营收').Sheets(1).Cells(x, 2) = wb.Sheets(k).Cells(50, 10)

            x = x 1

         Next k

      

   Next i

End Sub

--------------------------------------------------------------------------------------------------------

说明:

        √ 代码中黄色部分与存储位置、汇总表名相关,需要根据自己的实际情况做调整;

        绿色部分为提取数据在汇总表中的存储位置,同样需要根据自己的实际情况做调整



    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多