武当山供的是哪位大神神可以帮我破解一个EXCEL文件？请大神相助，在下万分感谢！

来源：蜘蛛抓取(WebSpider) 时间：2017-09-13 15:35 标签： 91哪位大神作品好看
剑灵-帮帮问答专区
什么是订阅？当帮帮有新道具更新或者新的精品攻略时候，你会第一时间收到qq系统消息。
登录领取每日帮豆
距离下一等级还差5000声望值
浏览()回答()同问()
全部回答（0）
你的经验，将会影响很多人。
目前支持腾讯视频、优酷、土豆、爱奇艺、搜狐视频等主流视频网站的视频播放页链接
视频转码中...
广告等垃圾信息
不友善内容
违反法律法规的内容
不宜公开讨论的政治内容
举报成功！
正在后台审核中，感谢你的举报。
感谢反馈，谢谢
2秒后自动关闭
感谢反馈，谢谢
2秒后自动关闭
登录帮帮官网，帮豆+2
官方QQ群号：
期待你的宝贵建议，共同改善产品
删除内容将-5声望，确定删除？查看: 151|回复: 7
求大神帮忙如何批量提取多个EXCEL文件指定单元格内容到一张EXCEL上
阅读权限20
在线时间 小时
本帖最后由 hrzhhrzh 于
10:32 编辑
有几百个Excel信息采集表，需要把其中的数据汇总到一个表格内，取两个信息：文件名称、表格内的F3单元格内容，不太了解VBA，哪位大神帮忙写一下程序，谢谢啦！
10:02 上传
点击文件名下载附件
59.71 KB, 下载次数: 10
阅读权限20
在线时间 小时
求大神帮忙啊！万分感谢！
阅读权限95
在线时间 小时
& & & & & & & &
Sub a()
Dim myf$, arr(1 To 999, 1 To 2), m%, cnn, rs, SQL$
Set cnn = CreateObject(&adodb.connection&)
Set rs = CreateObject(&adodb.Recordset&)
myf = Dir(&*.xlsx&)
Do While myf && &&
& & If myf && ThisWorkbook.Name Then
& && &&&m = m + 1
& && &&&cnn.Open &Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=NO'; Data Source=& & myf
& && &&&SQL = &select * from [信息采集表-1$F2:F2]&
& && &&&rs.Open SQL, cnn, 1, 1
& && &&&If IsNull(rs.Fields(0)) Then
& && && && &rs.Close
& && && && &SQL = &select * from [信息采集表-1$F3:F3]&
& && && && &rs.Open SQL, cnn, 1, 1
& && && && &arr(m, 1) = myf: arr(m, 2) = rs.Fields(0)
& && &&&Else
& && && && &arr(m, 1) = myf: arr(m, 2) = rs.Fields(0)
& && &&&End If
& & End If
& & cnn.Close
& & myf = Dir
Loop
Set cnn = Nothing
Set rs = Nothing
[a2:b999] = &&
[a2].Resize(m, 2) = arr
End Sub
复制代码
阅读权限20
在线时间 小时
大神，我试了一下，提示应用程序或对象定义错误，麻烦大神帮忙看一下附件里的是不是对的，谢谢！
(12.6 KB, 下载次数: 1)
11:39 上传
11:39 上传
点击文件名下载附件
66.91 KB, 下载次数: 4
阅读权限95
在线时间 小时
& & & & & & & &
本帖最后由 魂断蓝桥 于
13:21 编辑
(68.81 KB, 下载次数: 7)
13:21 上传
点击文件名下载附件
Dim myf$, arr(1 To 999, 1 To 2), m%, cnn, rs, SQL$
Set cnn = CreateObject(&adodb.connection&)
Set rs = CreateObject(&adodb.Recordset&)
myf = Dir(ThisWorkbook.Path & &\*.xlsx&)
Do While myf && &&
& & If myf && ThisWorkbook.Name Then
& && &&&m = m + 1
& && &&&cnn.Open &Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=NO'; Data Source=& & ThisWorkbook.Path & &\& & myf
& && &&&SQL = &select * from [信息采集表-1$F2:F2]&
& && &&&rs.Open SQL, cnn, 1, 1
& && &&&If IsNull(rs.Fields(0)) Then
& && && && &rs.Close
& && && && &SQL = &select * from [信息采集表-1$F3:F3]&
& && && && &rs.Open SQL, cnn, 1, 1
& && && && &arr(m, 1) = myf: arr(m, 2) = rs.Fields(0)
& && &&&Else
& && && && &arr(m, 1) = myf: arr(m, 2) = rs.Fields(0)
& && &&&End If
& & End If
& & cnn.Close
& & myf = Dir
Set cnn = Nothing
Set rs = Nothing
[a2:b999] = &&
[a2].Resize(m, 2) = arr
阅读权限10
在线时间 小时
Dim myf$, arr(1 To 999, 1 To 2), m%, cnn, rs, SQL$
Set cnn = CreateObject(&adodb.conne ...
cnn. Close， 对象关闭时，不允许操作
阅读权限95
在线时间 小时
cnn. Close， 对象关闭时，不允许操作
下载我上传的附件，没有你说的情况
1.gif (195.44 KB, 下载次数: 0)
15:26 上传
阅读权限70
在线时间 小时
arr(m, 1) = myf: arr(m, 2) = rs.Fields(0)
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 91哪位大神作品好看 的文章

 

随机推荐