两个数组对应枚举问题

koala219

各位大神：

下午好！
下面是一个数组对应分裂问题，恳请大神指导帮助。详情见附件


操作要求：  
1.零部件List是数据源
2.纳期要求是数据源
3.工作表[101]，[102]，[103]是目标操作文件。
4.操作方法：
[101] 是[零部件List]中根据采购担当的汇总
  另行数，根据零部件[纳期要求]中的“变更后纳期”进行行数分裂。
  
[101] 目前已经手工操作得出结果。

koala219

没有人出手帮助？???

在线急等！

自己根据循环对比，做了一下，可以实现，但远比用数组分裂要low得多。

蓝桥玄霜

请见代码。

grf1973

典型的数据库内连接。
模拟结果有误，见“备份”中的黄色区域。

1. Sub grf()
   
2.     Application.DisplayAlerts = False
   
3.     On Error Resume Next
   
4.     Set cnn = CreateObject("adodb.connection")
   
5.     Set rst = CreateObject("adodb.recordset")
   
6.     cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
   
7.     Sql = "select distinct 采购担当 from [零部件List$f:f] where 采购担当 is not null"  '去重后的采购担当
   
8.     rst.Open Sql, cnn, 1, 3
   
9.     arr = rst.GetRows(-1, 0)
   
10.     For k = 0 To UBound(arr, 2)
    
11.         dd = arr(0, k) '采购担当
    
12.         Sql = "select a.*,变更后纳期,变更后数量 from [零部件List$a:g] a,[纳期要求$a:h] b where 采购担当=" & dd & " and a.产品=b.产品"
    
13.         Sheets(CStr(dd)).Delete    '删除同名表后新增空表
    
14.         Sheets.Add after:=Sheets(Sheets.Count)
    
15.         With ActiveSheet
    
16.             .Name = dd
    
17.             .[a1].Resize(1, 9) = Array("产品", "零部件", "使用數", "供应商代码", "供应商", "采购担当", "B_LT", "要求纳期", "要求数量")
    
18.             .[a2].CopyFromRecordset cnn.Execute(Sql)
    
19.             .Columns.AutoFit
    
20.         End With
    
21.     Next
    
22.     Application.DisplayAlerts = True
    
23. End Sub
    

复制代码

koala219

蓝桥玄霜 发表于 2018-10-12 11:44
请见代码。

感谢板主，我赶紧去消化学习！

grf1973

模拟结果有误，已做标记。

koala219

grf1973 发表于 2018-10-12 17:02
模拟结果有误，已做标记。

附件中内容，看不到哈！

grf1973

什么叫看不到，没问题的。