请求VBA大人帮助

yshf286898

各位大人您们好！小的不会VBA啊 苦
小的在这论坛找到下面这段代码本想试着改改参数看是否能用，可是怎么也没成功。
特请求大人帮助，谢谢！
代码它不按照给予的日期段加载，把数据库里40多万条全加载上来了。
生产计录.rar (533.47 KB, 下载次数: 1)

2019-11-26 15:43 上传

点击文件名下载附件

爱疯

Sub test()    '提取数据
    Dim cnn As New ADODB.Connection    '连接
    Dim RS As New ADODB.Recordset
    Dim SQL As String
    Dim tblName  '(请问这些是什么类型
    Dim dbAddr
    Dim dayu
    Dim xiaoyu
    Dim fildName
    Dim j  ''请问这些是什么类型)
    dayu = Cells(2, 9)   '2019/5/1  查询单元格日期
    xiaoyu = Cells(2, 10)  '2019/6/5   查询单元格日期

    dbAddr = ThisWorkbook.Path & "\生产数据.accdb"
    tblName = "Sheet1"
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Open "Data Source=" & dbAddr & "ersist Security Info=False;Jet OLEDB:DataBase Password=123;"
    End With


        SQL = "Select * from " & tblName & " where 订单日期>= #" & dayu & "# and 订单日期<= #" & xiaoyu & "#"
    '    SQL = "Select * from " & tblName & " where 部门 in('生技部')"    'in('生技部','aa')"


    Set RS = cnn.Execute(SQL)
    Dim sht
    Dim fildNum
    Set sht = ThisWorkbook.Worksheets("Sheet3")
    sht.Range("A4:Y1048576").ClearContents    '清除
    fildNum = RS.Fields.Count
    For j = 0 To fildNum - 1 Step 1
        fildName = RS.Fields(j).Name
        sht.Cells(3, j + 1) = fildName
    Next j
    sht.Cells(4, 1).CopyFromRecordset RS
    cnn.Close
    Set RS = Nothing
    Set cnn = Nothing
End Sub


生产计录2.rar (529.62 KB, 下载次数: 1)

2019-11-26 17:05 上传

点击文件名下载附件

绿色是改过的