按日期时间获取access数据库中的数据到excel表格中

x147856385

各位大神求帮帮忙

依据excel中开始日期、结束日期、时间点，获取accesss数据库中的数据（如：我想获取2020年1月2日到30日所有采集时间为8:30分的数据，数据只要获取采集时间、设备名称、有功电能总和、工况累积量、一次侧正向有功电能，将获取到的数据拷贝到excel对应的表格内）

这个感觉有点复杂，拜托各位大神帮忙写写代码。必将感谢不尽



获取access文件中每天8：30分数据.rar (724.14 KB, 下载次数: 13)

2020-1-21 10:59 上传

点击文件名下载附件

蓝桥玄霜

提取数据库指定数据的代码：

x147856385

蓝桥玄霜 发表于 2020-1-21 12:37
提取数据库指定数据的代码：

非常感谢版主。得到版主帮助，太荣幸了。感激不尽

donghui2363

Sub 数据库()
Set cnn = CreateObject("adodb.connection")
    With cnn
        .Provider = "microsoft.ace.oledb.12.0"
        .ConnectionString = ThisWorkbook.Path & "\YzznData.mdb"
        .Open
    End With
Range("a5:ca10000") = ""
    s1 = Range("b2")
    s2 = Range("c2")
    t = CDate(Range("d2"))
    Sql = "select * from user_fzl_electriclog where format(采集时间,'yyyy/M/dd') between # " & s1 & " # and # " & s2 & " #"
    Sql = "select 采集时间,设备名称,有功电能总和,工况累积量,一次侧正向有功电能 from (" & Sql & ") where Right(采集时间,8)='" & t & "'"
    Range("b5").CopyFromRecordset cnn.Execute(Sql)
    cnn.Close
End Sub

donghui2363

Sub 数据库()
Set cnn = CreateObject("adodb.connection")
    With cnn
        .Provider = "microsoft.ace.oledb.12.0"
        .ConnectionString = ThisWorkbook.Path & "\YzznData.mdb"
        .Open
    End With
Range("a5:ca10000") = ""
    s1 = Format(Range("b2"), "yyyy-MM-dd")
    s2 = Format(Range("c2"), "yyyy-MM-dd")
    t = Format(Range("d2"), "hh:mm:ss")
    Sql = "select * from user_fzl_electriclog where format(采集时间,'yyyy-MM-dd') between '" & s1 & "' and '" & s2 & "'"
    Sql = "select 采集时间,设备名称,有功电能总和,工况累积量,一次侧正向有功电能 from (" & Sql & ") where Right(采集时间,8)='" & t & "'"
    Range("b5").CopyFromRecordset cnn.Execute(Sql)
    cnn.Close
End Sub

luoxtx

donghui2363 发表于 2020-1-21 16:38
Sub 数据库()
Set cnn = CreateObject("adodb.connection")
    With cnn