ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 244|回复: 12

[求助] 求助如何取 access数据匹配工作表

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-10-11 13:20 | 显示全部楼层 |阅读模式
求助如何取 access中指定日期的数据并匹配工作表中的A列名称

123.rar

21.29 KB, 下载次数: 8

TA的精华主题

TA的得分主题

发表于 2018-10-11 14:48 | 显示全部楼层
Sub getdatafromaccess()
Sheets("sheet1").Range("a3").CurrentRegion.Clear
Dim con As Object, s%, k&
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb"

      date1 = Sheets("sheet1").Range("b1")
      Sql = "select 名称,数量 from 流水 where 日期= " & "#" & date1 & "#"
For k = 0 To con.Execute(Sql).fields.Count - 1
      Cells(3, k + 1) = con.Execute(Sql).fields(k).Name
Next
Sheets("sheet1").Range("a4").CopyFromRecordset con.Execute(Sql)
con.Execute(Sql).Close
con.Close: Set con = Nothing
End Sub

TA的精华主题

TA的得分主题

发表于 2018-10-11 15:01 | 显示全部楼层
Sub 查询()
    Dim cnn As Object, rst As Object, SQL$
    rq = [B1].Value
    Set cnn = CreateObject("Adodb.Connection")
    Set rst = CreateObject("Adodb.Recordset")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb"
    SQL = "Select b.数量 From [Excel 12.0;Database=" & ThisWorkbook.Path & "\工作簿1.xlsm;].[sheet1$a3:A] as a" & _
     " left join 流水 as b on a.名称=b.名称 where b.日期= " & "#" & rq & "#" & ""
     Range("b4").CopyFromRecordset cnn.Execute(SQL)
    Set rst = Nothing
    Set cnn = Nothing
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-11 15:02 | 显示全部楼层
hdbk 发表于 2018-10-11 14:48
Sub getdatafromaccess()
Sheets("sheet1").Range("a3").CurrentRegion.Clear
Dim con As Object, s%, k& ...

老师您好, where是筛选符合条件的数据,但并没有对应A列的名称取出数量列的值。我是想指定[b1] 日期,对应A列的名称从 access中取出数量列的值。之前我是想用join ,但没办法指定单个日期。请教老师还有没有其他好的办法。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-11 15:12 | 显示全部楼层
jiangxiaoyun 发表于 2018-10-11 15:01
Sub 查询()
    Dim cnn As Object, rst As Object, SQL$
    rq = .Value

老师您好,join后面跟where是可以取出数据,where好象是去除空数据后,随机排列,所以无法对应A列,不知道 是不是这样,所以数据不对应A列名称。我重新改下A列名称的顺序,您帮看下。

新建文件夹.rar

24.32 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2018-10-11 15:24 | 显示全部楼层
  1. Sub getData()
  2. Dim rs, r%, arr, i%, x
  3.     With ActiveSheet
  4.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
  5.         arr = .Range("A4:B" & r)
  6.     End With
  7.     Set rs = CreateObject("ADODB.Recordset")
  8.     With rs
  9.         .CursorLocation = 3
  10.         .Open "select * from 流水 where 日期=#" & ActiveSheet.[B1].Value & "#", _
  11.             "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb", 1, 1
  12.         For i = 1 To UBound(arr)
  13.             .movefirst
  14.             .Find .fields(2).Name & "='" & arr(i, 1) & "'"
  15.             If .EOF Then
  16.                 arr(i, 2) = ""
  17.             Else
  18.                 arr(i, 2) = rs(3).Value
  19.             End If
  20.         Next
  21.         .Close
  22.     End With
  23.     Set rs = Nothing
  24.     ActiveSheet.Range("A4:B" & r) = arr
  25. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-11 15:39 | 显示全部楼层

非常感谢老师,这正是我想要的,运行很成功。我慢慢消化下代码。

TA的精华主题

TA的得分主题

发表于 2018-10-11 15:52 | 显示全部楼层
spin2016 发表于 2018-10-11 15:12
老师您好,join后面跟where是可以取出数据,where好象是去除空数据后,随机排列,所以无法对应A列,不知 ...

那就用其他老师的循环吧。。。

TA的精华主题

TA的得分主题

发表于 2018-10-11 16:08 | 显示全部楼层
本帖最后由 hdbk 于 2018-10-11 16:26 编辑
spin2016 发表于 2018-10-11 15:02
老师您好, where是筛选符合条件的数据,但并没有对应A列的名称取出数量列的值。我是想指定 日期,对应A ...


Sub getdatafromaccess()
Application.ScreenUpdating = False
Sheets("sheet1").Range("b4:b100").Clear
Dim con As Object, s%, k&
Set con = CreateObject("adodb.connection")
Set con1 = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb"
con1.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName

    date1 = Sheets("sheet1").Range("b1")
    Sql = "select 名称,数量 from 流水 where 日期= " & "#" & date1 & "#"
For k = 0 To con.Execute(Sql).fields.Count - 1
      Cells(3, k + 6) = con.Execute(Sql).fields(k).Name
Next
Sheets("sheet1").Range("f4").CopyFromRecordset con.Execute(Sql)

Sql1 = "select t1.名称,t2.数量 from [Sheet1$a3:b]t1,[Sheet1$f3:g]t2 where t1.名称=t2.名称 and t1.名称 is not null "
Sheets("sheet1").Range("a4").CopyFromRecordset con1.Execute(Sql1)
Sheets("sheet1").Range("f4").CurrentRegion.Clear
con.Execute(Sql).Close
con1.Execute(Sql1).Close
con.Close: Set con = Nothing
Application.ScreenUpdating = False
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-11 16:27 | 显示全部楼层

不好意思哈,老师。想再请教您,
rs(3).value   这里面的3是指第几个字段名吗?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2018-12-17 09:39 , Processed in 0.092931 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表