【VBA求助】--样本-根据原产国将相应数据放在不同的sheet中

LMY123

d(arr(i, 9)) = d(arr(i, 9)) & "," & i

曹银强

Sub tt()
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select distinct 原产国 FROM [汇总表$]"
Set rs = cn.Execute(Sql)
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name <> "汇总表" Then sh.Delete
Next
Do Until rs.EOF
sqll = "select * from [汇总表$] where 原产国='" & rs.fields(0) & "'"
With Sheets.Add(after:=Sheets(Sheets.Count))
.Name = rs.fields(0).Value
Rows(1).Copy .[a1]
.Range("a2").CopyFromRecordset cn.Execute(sqll)
End With
rs.movenext
Loop
End Sub