[已解决]sheet1明细匹配sheet2拆解结果写入sheet3

su77

各位大神：在统计数据的时候需要实现下面这样的结果：1.将sheet1的明细匹配sheet2进行拆解；2.若匹配sheet2时无对应明细，则在sheet3的J~L列不填写对应数据；3.若匹配sheet2时有2条以上明细时，则在sheet3里将sheet1明细拆成多行，分别写上对应的数据。没找到对应的代码，望各位有经验的多多指教。万分感谢！

最佳答案

月排行榜 / 总排行榜

cutecpu

2022-12-19 13:47

Sub demo()
   Set conn = CreateObject("ADODB.Connection")
   conn.Open "provider=Microsoft.Ace.oledb.12.0;Extended Properties=Excel 12.0;data source=" & ThisWorkbook.FullName
   Sql = "SELECT a.*,b.供应商编码,b.供应商简称,b.业务员 FROM [Sheet1$A2:I] a left join [Sheet2$] b on a.物料编码 = b.存货编号 and a.规格型号 = b.规格型号"
   Set rs = conn.Execute(Sql)
   Sheets(3).UsedRange.Offset(1).ClearContents
   Sheets(3).[a2].CopyFromRecordset rs
End Sub

跳转到最佳答案楼层

cutecpu

Sub demo()
   Set conn = CreateObject("ADODB.Connection")
   conn.Open "provider=Microsoft.Ace.oledb.12.0;Extended Properties=Excel 12.0;data source=" & ThisWorkbook.FullName
   Sql = "SELECT a.*,b.供应商编码,b.供应商简称,b.业务员 FROM [Sheet1$A2:I] a left join [Sheet2$] b on a.物料编码 = b.存货编号 and a.规格型号 = b.规格型号"
   Set rs = conn.Execute(Sql)
   Sheets(3).UsedRange.Offset(1).ClearContents
   Sheets(3).[a2].CopyFromRecordset rs
End Sub

su77

cutecpu 发表于 2022-12-19 14:44
Sub demo()
   Set conn = CreateObject("ADODB.Connection")
   conn.Open "provider=Microsoft.Ace.ole ...

再次麻烦您了！非常感谢！

su77

cutecpu 发表于 2022-12-19 14:44
Sub demo()
   Set conn = CreateObject("ADODB.Connection")
   conn.Open "provider=Microsoft.Ace.ole ...

再请教一下，如果想要sheet3只取sheet1里的几个字段，代码应该如何改呢？麻烦啦！

cutecpu

su77 发表于 2022-12-19 15:13
再请教一下，如果想要sheet3只取sheet1里的几个字段，代码应该如何改呢？麻烦啦！

Sub demo()
   Set conn = CreateObject("ADODB.Connection")
   conn.Open "provider=Microsoft.Ace.oledb.12.0;Extended Properties=Excel 12.0;data source=" & ThisWorkbook.FullName
   Sql = "SELECT a.物料编码,a.规格型号,a.物料名称,a.需求数量,b.供应商编码,b.供应商简称,b.业务员 FROM [Sheet1$A2:I] a left join [Sheet2$] b on a.物料编码 = b.存货编号 and a.规格型号 = b.规格型号"
   Set rs = conn.Execute(Sql)
   Sheets(3).UsedRange.Offset(1).ClearContents
   Sheets(3).[a2].CopyFromRecordset rs
End Sub

su77

cutecpu 发表于 2022-12-19 15:32
Sub demo()
   Set conn = CreateObject("ADODB.Connection")
   conn.Open "provider=Microsoft.Ace.o ...

明白了！谢谢啦！