小学试卷自动生成系统

chxw68

dyhq2012 发表于 2020-9-17 13:03
老师你好。我运行 生成试卷
为什么 显示 找不到工程或库。
64位 win7+2007

加我QQ远程看看。

l_hl2008

下载收藏！再学习.谢谢分享

skiss

老师的代码和模板都被人分享到头条上面了，赞。

sum002x

感谢老师分享，谢谢！非常感谢！！

dyhq2012

在老师的chxw68 基础上 改了一下。
希望哪位大神 可以帮我弄个 窗体录入学习一下

wangjwpx

下载收藏！再学习

dshl007

你好侠圣：麻烦帮忙修改以下代码 如果出现《销售明细》中的“商品名称”多于《采购明细》中的“商品名称”时，不会再《成本》中显示，烦请弥补这个漏洞，非常感谢。 Set cnn = CreateObject("adodb.connection")     With cnn         .Provider = "Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0"         .ConnectionString = ThisWorkbook.FullName         .Open     End With     Sql1 = "select [商品名称] from [采购明细$] group by [商品名称] "     Sql2 = "select [商品名称] from [销售明细$] group by [商品名称] " Sql = "select a.[商品名称]  from (" & Sql1 & ") a left join (" & Sql2 & ") b on  b.[商品名称]=a.[商品名称]"          With Sheets("成本")         .Range("a4:g1000").Clear         .Range("a4").CopyFromRecordset cnn.Execute(Sql)         .Range("a4:g" & .Range("a65536").End(xlUp).Row).CurrentRegion.Borders.LineStyle = xlContinuous         .Cells.Columns.AutoFit     End With     cnn.Close     Set cnn = Nothing

dshl007

你好侠圣：麻烦帮忙修改以下代码
如果出现《销售明细》中的“商品名称”多于《采购明细》中的“商品名称”时，不会再《成本》中显示，烦请弥补这个漏洞，非常感谢。
Set cnn = CreateObject("adodb.connection")
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0"
        .ConnectionString = ThisWorkbook.FullName
        .Open
    End With
    Sql1 = "select [商品名称] from [采购明细$] group by [商品名称] "
    Sql2 = "select [商品名称] from [销售明细$] group by [商品名称] "
Sql = "select a.[商品名称]  from (" & Sql1 & ") a left join (" & Sql2 & ") b on  b.[商品名称]=a.[商品名称]"
   
    With Sheets("成本")
        .Range("a4:g1000").Clear
        .Range("a4").CopyFromRecordset cnn.Execute(Sql)
        .Range("a4:g" & .Range("a65536").End(xlUp).Row).CurrentRegion.Borders.LineStyle = xlContinuous
        .Cells.Columns.AutoFit
    End With
    cnn.Close
    Set cnn = Nothing

aecn

好用，下载收藏！

一笔书天地

感谢老师分享，谢谢。