怎样用vba实现筛选同一个时间段内的信息

来源：百度知道 编辑：UC知道 时间：2024/06/27 08:07:23
比如在一张SHEET里有全年的生产纪录信息，怎样实现自动筛选，只显示选择月的信息。
例如：产品有A,B,C,D
如果我想要1月1日到1月31之间的这四种产品的信息，应该怎样编写VBA的语句呢？

在原来的地方实现比较麻烦, 新增个工作表来实现

Sub test()
Dim Cnn
Dim Sql As String
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes';data source=" & ThisWorkbook.FullName
Sheets.Add
Range("a1:c1") = Sheet1.Range("a1:c1").Value
Sql = "select * from [sheet1$] where 分类 in ('A','B','C','D') and 日期 >=#2008-01-01# and 日期 <=#2008-01-31# "
Range("A2").CopyFromRecordset Cnn.Execute(Sql)
Columns("C:C").Select
Selection.NumberFormatLocal = "yyyy/m/d"
End Sub