| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 859 人关注过本帖
标题:请求高手帮忙写段代码批量从表格中提取某几个字段列到新表中并求和
只看楼主 加入收藏
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
运行错误
附件: 您没有浏览附件的权限,请 登录注册
2019-01-03 20:42
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
运行错误
附件: 您没有浏览附件的权限,请 登录注册
2019-01-03 21:02
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:0 
程序都注释了,需要引用以下控件
【需要引用Microsoft Activex Data Objects 2.5 Library】
2019-01-03 21:24
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
回复 13楼 wds1
这个需要另外安装吗
2019-01-03 21:25
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
回复 13楼 wds1
具体怎么用呢?小白求原谅
2019-01-03 21:26
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
回复 13楼 wds1
我的开发环境是excel2010,这个有影响吗
2019-01-03 23:20
jackh
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2017-11-9
  得分:0 
回复 16楼 jackh
win7 64位
2019-01-04 00:12
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1205
专家分:1309
注 册:2005-3-14
  得分:0 

你再试试,打开官塘驿镇白羊村一组村民小组湖北地信Excel文件 - 副本.xlsm空白处双击即可。
excel版本高了驱动改了
附件: 您没有浏览附件的权限,请 登录注册

loading...
2019-01-04 08:54
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:3 
不同版本的execl ado的版本不同,你在vb-工程-应用,可以找到你机器的相关ADO的版本

Microsoft Activex Data Objects 2.5 Library
Microsoft Activex Data Objects 2.6 Library
Microsoft Activex Data Objects 2.7 Library
Microsoft Activex Data Objects 2.8 Library
每一个对应各自版本的execl

但是对于查询语句,应用对应的查询语句,一般都可兼容。

不过不同版本execl的sql 语句不一致,以下是execl2003,execl2007的驱动,execl2010我没安装,没法验证

If Right(Execl_name, Len(Execl_name) - InStrRev(Execl_name, ".")) = "xls" Then
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;data source=" & Execl_name & ";extended properties= 'Excel 8.0;HDR=NO;IMEX=1';"
  ElseIf Right(Execl_name, Len(Execl_name) - InStrRev(Execl_name, ".")) = "xlsx" Then
    cn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Persist Security Info=False;data source=" & Execl_name & ";extended properties= 'Excel 12.0;HDR=NO;IMEX=1';"
  End If


[此贴子已经被作者于2019-1-4 12:18编辑过]

2019-01-04 11:33







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

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