对工作表按条件筛选，将筛选结果复制到新文档。

twl

请教大神，如何对工作表内的数据按指定条件进行筛选，并将筛选出的结果，复制到新创建的Excel文档中。具体详见附件。非常感谢。


1、筛选V列是否可食用的数据为“是”，将筛选出来的"K：R"，"V:Y"列数据复制出来，并在系统桌面新创建一个xlsx文档（文档命名为“可食用产品-YYYYMM”.xlxs，其中yyyy为当年mm为当前月份的上一个月），将复制的数据粘贴到这个文档里面。结果如附件工作表“要求1的结果”。

2、筛选C列中带有“小瓶”，G列带有A、B、C关键字的数据，将筛选出来的"K：T"列数据复制出来，并在系统桌面新创建一个xlsx文档（文档命名为“小瓶产品-YYYYMM”.xlxs，其中yyyy为当年mm为当前月份的上一个月），将复制的数据粘贴到这个文档里面。结果如附件工作表“要求2的结果”。
3、筛选C列带有“小瓶”或D列带有“浓度”的数据，将筛选出来的"K：T"列数据复制出来，并在系统桌面新创建一个xlsx文档（文档命名为“小瓶产品-YYYYMM”.xlxs，其中yyyy为当年mm为当前月份的上一个月），将复制的数据粘贴到这个文档里面。结果如附件工作表“要求3的结果”。


注意“产品表”第15行是字段名称，16行开始才是数据。

limonet

已经接近完成，但是你的2与3文件同名，拜托你用点心。

limonet

关键字：where

limonet

Sub Limonet()
    Dim StrSQL$, Cn As Object, IntoF$
    IntoF$ = "Into Sheet1 From  [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[产品表$C15:Y] Where"
    Set Cn = CreateObject("ADODB.connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 XML;Data Source=" & ThisWorkbook.Path & "\可食用产品-" & Year(Date) & Format(Month(Date) + 1, "00") & ".xlsx"
    StrSQL = "select 产品号,产品名称,产品编号1,产品编号2,产品编号3,产品编号4,产品编号5,产品编号6,是否可使用,使用范围1,使用范围2,使用范围3 " & IntoF$ & " 是否可使用='是'"
    Cn.Execute (StrSQL): Cn.Close
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 XML;Data Source=" & ThisWorkbook.Path & "\小瓶产品-" & Year(Date) & Format(Month(Date) + 1, "00") & ".xlsx"
    StrSQL = "Select 产品号,产品名称,产品编号1,产品编号2,产品编号3,产品编号4,产品编号5,产品编号6,生产日期,到期日 " & IntoF$ & " [三] like '小瓶'+'%' and [七] Like '%'&'[A-C]'"
    Cn.Execute (StrSQL): Cn.Close
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 XML;Data Source=" & ThisWorkbook.Path & "\小瓶浓度产品-" & Year(Date) & Format(Month(Date) + 1, "00") & ".xlsx"
    StrSQL = "Select 产品号,产品名称,产品编号1,产品编号2,产品编号3,产品编号4,产品编号5,产品编号6,生产日期,到期日 " & IntoF$ & " [三] like '小瓶'+'%' or [四] Like '浓度'&'%'"
    Cn.Execute (StrSQL): Cn.Close
End Sub

ykcbf1100

要求有点多啊

ykcbf1100

这个难是不难，就是写代码比较费时间。

附件供参考。。。

ykcbf1100

limonet 发表于 2023-9-5 23:38
关键字：where

文件名月份是上一个月，不是下一个月

limonet

ykcbf1100 发表于 2023-9-6 07:52
文件名月份是上一个月，不是下一个月

抱歉，都是减一

ykcbf1100

limonet 发表于 2023-9-6 07:56
抱歉，都是减一

还是sql省代码啊

limonet

ykcbf1100 发表于 2023-9-6 08:18
还是sql省代码啊

能解决问题就行了