怎样用vba实现筛选同一个时间段内的信息
比如在一张SHEET里有全年的生产纪录信息，怎样实现自动筛选，只显示选择月的信息。例如：产品有A,B,C,D如果我想要1月1日到1月31之间的这四种产品的信息，应该怎样编...
比如在一张SHEET里有全年的生产纪录信息，怎样实现自动筛选，只显示选择月的信息。
例如：产品有A,B,C,D
如果我想要1月1日到1月31之间的这四种产品的信息，应该怎样编写VBA的语句呢？ 展开
例如：产品有A,B,C,D
如果我想要1月1日到1月31之间的这四种产品的信息，应该怎样编写VBA的语句呢？ 展开
1个回答
展开全部
在原来的地方实现比较麻烦, 新增个工作表来实现
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
