| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 455 人关注过本帖, 1 人收藏
标题:求助高手怎么将文件夹中多个Excel表中F列实测面积的汇总数据提取出来放在一 ...
只看楼主 加入收藏
jackh
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2017-11-9
结帖率:60%
  已结贴   问题点数:20  回复次数:3   
求助高手怎么将文件夹中多个Excel表中F列实测面积的汇总数据提取出来放在一个新建的Excel中
附件: 您没有浏览附件的权限,请 登录注册
2017-11-10 21:22
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:143
专家分:950
注 册:2017-7-8
  得分:0 
汇总表的格式?提供样表
2017-11-11 06:28
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:143
专家分:950
注 册:2017-7-8
  得分:20 

程序代码:

Sub test()

Dim FileName As String
Dim r, i As Integer
Dim iSum As Double
Dim Workbook As Workbook
FileName = Dir(ThisWorkbook.Path & "\*.xlsx")
 Do While FileName <> ""
 Set Workbook = Application.Workbooks.Open(ThisWorkbook.Path & "\" & FileName)
 
 With Workbook

  r = .Sheets(1).Cells(Rows.Count, "f").End(xlUp).Row
   iSum = 0
    For i = 4 To r
    iSum = iSum + Sheets(1).Cells(i, "f").Value
    Next
    .Close False
  End With
 
 r = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1
  Sheet1.Cells(r, 1) = Left(FileName, Len(FileName) - 5)
  Sheet1.Cells(r, 2).Value = iSum
  
 FileName = Dir
 Loop
End Sub




[此贴子已经被作者于2017-11-11 08:30编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2017-11-11 08:22
jackh
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2017-11-9
  得分:0 
谢谢&#128077;
2017-11-13 12:41







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033717 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved