| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 406 人关注过本帖
标题:请求高手帮忙写段代码批量从表格中提取某几个字段列到新表中并求和
只看楼主 加入收藏
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
结帖率:66.67%
  已结贴   问题点数:20  回复次数:18   
请求高手帮忙写段代码批量从表格中提取某几个字段列到新表中并求和
附件: 您没有浏览附件的权限,请 登录注册
2019-01-02 21:00
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2019-01-02 21:04
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
从地块信息中提取信息并汇总到图2新表中
2019-01-02 21:05
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
求代码
2019-01-02 23:01
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1200
专家分:1289
注 册:2005-3-14
  得分:2 

程序代码:

Private Sub CommandButton1_Click()

 Dim dbAddr
    dbAddr = ThisWorkbook.Path & "\" & "官塘驿镇白羊村一组村民小组湖北地信Excel文件.xls"
    Dim Conn As ADODB.Connection  '连接
    Set Conn = New ADODB.Connection

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    connstrxls = "DBQ=" & dbAddr & ";DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};"
    Conn.Open connstrxls
Sql = "select * from [地块信息$] order by 承包方编码"
rs.Open Sql, Conn

i = 2
Do While Not rs.EOF
    Range("A" & i) = rs("承包方编码")
    Range("b" & i) = rs("承包方名称")
    Range("C" & i) = rs("宗地坐落")
    Range("D" & i) = rs("宗地编码")
    Range("E" & i) = rs("宗地名称")
    Range("F" & i) = rs("土地类型")
    Range("G" & i) = rs("实测面积")
    i = i + 1
   rs.MoveNext
Loop

Application.DisplayAlerts = False
irows = ActiveSheet.UsedRange.Rows.Count

For m = irows To 2 Step -1
    If Cells(m, 1) = Cells(m - 1, 1) Then
       Range(Cells(m - 1, 1), Cells(m, 1)).Merge
       Range(Cells(m - 1, 2), Cells(m, 2)).Merge
       Range(Cells(m - 1, 3), Cells(m, 3)).Merge
       Range(Cells(m - 1, 8), Cells(m, 8)).Merge
       Range(Cells(m - 1, 9), Cells(m, 9)).Merge
       Range(Cells(m - 1, 10), Cells(m, 10)).Merge
       Range(Cells(m - 1, 11), Cells(m, 11)).Merge
    End If
Next

End Sub



求和部份没空弄,自已看一下加上代码就可以了
附件: 您没有浏览附件的权限,请 登录注册

loading...
2019-01-03 10:34
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
运行时有错误
附件: 您没有浏览附件的权限,请 登录注册
2019-01-03 10:49
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1200
专家分:1289
注 册:2005-3-14
  得分:0 
要引用ado组件

loading...
2019-01-03 12:12
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1200
专家分:1289
注 册:2005-3-14
  得分:0 
我上传的要个文件要放一起运行

loading...
2019-01-03 12:14
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1200
专家分:1289
注 册:2005-3-14
  得分:0 
我把表版本转成97版了,注意文件名及后缀
官塘驿镇白羊村一组村民小组湖北地信Excel文件.xls

loading...
2019-01-03 12:16
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:33
帖 子:342
专家分:1799
注 册:2016-3-10
  得分:15 


附件代码供参考(没做优化),一般来说参照代码,肯定能做出你要的结果

1、根据原始表提取出目的表
2、目的表只对第一个人员做了格式处理
3、其实控制输出格式可以用循环及数组的,自己琢磨着做。



做了格式处理,你看看。




[此贴子已经被作者于2019-1-3 15:52编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2019-01-03 14:12







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

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