在一个工作簿中输入一个日期 自动复制另一个工作簿中相应的内容

hellojimlee

各位大神 在一个工作簿中输入一个日期 自动复制另一个工作簿中相应的内容 怎样做 test.rar (18.43 KB, 下载次数: 9)

2016-11-1 14:27 上传

点击文件名下载附件

lsc900707

按日期查询内容案例，论坛里不少，找来参考。

lsc900707

Sub 查询数据()
    Dim cnn
    Dim rs
    Dim strSql As String, str1 As String
    On Error Resume Next
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
            & "Extended Properties=Excel 12.0;" _
            & "Data Source=" & ThisWorkbook.FullName
    str1 = ActiveSheet.Range("A1")
    strSql = "Select * FROM [汇总$] Where 日期 like '%" & str1 & "%'"
    rs.Open strSql, cnn, adOpenStatic
    With ActiveSheet
        .Range("A2:F500").ClearContents
        .Range("A2").CopyFromRecordset rs
    End With
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

lsc900707

请自行核对结果是否正确>>>>>>>>>

日期格式务必保持一致！

lccchengcheng

很不错，刚好用到，很类似， 谢谢分享！

lyb200

lsc900707 发表于 2016-11-1 19:12
Sub 查询数据()
    Dim cnn
    Dim rs

如果把日期的那列设置成日期格式，就会有些问题。文本格式还好。

lsc900707

lyb200 发表于 2018-9-30 21:08
如果把日期的那列设置成日期格式，就会有些问题。文本格式还好。

是吧，我没多测试。