据日期提月数据

xing_chen

老师，有表，我希望根据日期（年月日），交互框输入年月，选择表格后，提取所对应的年月数据另存表（表名为“当月”），附件中为举例，将表名省略了。敬请老师赐教。谢谢！

ykcbf1100

参与一下。

limonet

代码审核中。

limonet

Sub limonet()
    Dim Cn As Object, Rst As Object, StrSQL$, Sht$, M$
    Sht = Application.InputBox("请输入销汇或进汇", "工作表名称", "销汇", , , , , 2)
    M = Application.InputBox("请输入月份", "工作表名称", 3, , , , , 2)
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data source=" & ThisWorkbook.FullName
    StrSQL = "select * from [" & Sht & "$] where Month(开票日期)=" & M
    Worksheets.Add(after:=Worksheets(Sheets.Count)).Name = Sht & M & "月"
    Set Rst = Cn.Execute(StrSQL)
    For j = 0 To Rst.Fields.Count - 1
        Cells(1, j + 1) = Rst.Fields(j).Name
    Next j
    Range("A2").CopyFromRecordset Rst
    Range("A1").CurrentRegion.Columns.AutoFit
    Set Cn = Nothing
    Set Rst = Nothing
End Sub

盼盼198310

.............

xing_chen

ykcbf1100 发表于 2023-5-29 09:15
参与一下。

谢谢老师！运行顺畅，但有个问题，就是每月切换选表。代码中有的呀，但不知道为什么未起作用。

xing_chen

limonet 发表于 2023-5-29 09:17
代码审核中。

谢谢老师！代码中有黄色，未能继续运行，估计是我[url=]附件[/url]电脑中未引用数据库，但不知道对应哪个！

xing_chen

盼盼198310 发表于 2023-5-29 10:10
.............

谢谢老师！出现问题，未能继续

ykcbf1100

xing_chen 发表于 2023-5-29 10:28
谢谢老师！运行顺畅，但有个问题，就是每月切换选表。代码中有的呀，但不知道为什么未起作用。

做了好几次了，你那二个表就是固定的，为啥要选表？二个表一起做了就完了。

盼盼198310

xing_chen 发表于 2023-5-29 10:31
谢谢老师！出现问题，未能继续

没注意是按月查,用这个试试