将Excel数据对应写入已做好的Word模板的指定位置(统发)

182197315

blue夜 发表于 2019-12-25 16:08
Word对象,找不到工程或库，怎么办？

如果引用了word还不行，就只能重装office了

gwjkkkkk

学习一下，但用得比较少。。。

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

blackttea1

站位，学习