'''
Dim Book As New XLS.Book("D:\问题\伊芙丽9c4100561.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim s As String = Sheet(1,3).Value
Dim d As Date = cdate(s.Split("：")(1)) '.replace("/","-")
Output.Show(d)
Dim s1() As String = {"箱号","品类","款号","XXXS","XXS","XS","S","M","L","XL","XXL","XXXL","F","60","65","70","75","80","85","90","95","100","105","110","115","120","125","130","135","140","145","150","155","160","165","170","175","180","185","190","195","200"}
Dim dict As new Dictionary(of String,Integer)
For i As Integer = 0 To Sheet.Cols.Count - 1
Dim k As Integer = Array.IndexOf(s1, Sheet(2,i).Text)
If k > -1
dict.Add(s1(k),i)
End If
Next
Dim d2 As new Dictionary(of String,Integer)
Dim d3 As new Dictionary(of String,String)
For i As Integer = 3 To Sheet.Rows.Count - 1
Dim pl As String = Sheet(i,dict("品类")).text
If pl > "" Then
Dim kh As String = Sheet(i,dict("款号")).text
If d3.ContainsKey(kh) = False Then d3.Add(kh,pl)
Dim sum As Integer = 0
For Each key As String In dict.Keys
If key = "箱号" OrElse key = "品类" OrElse key = "款号" Then Continue For
sum += val(Sheet(i,dict(key)).text)
Next
Dim xh As String = Sheet(i,dict("箱号")).text
If xh.Contains("~") Then
Dim s3() As String = xh.split("~")
Dim h As Integer = val(s3(1)) - val(s3(0)) + 1
sum = sum * h
End If
Output.Show(sum)
If d2.ContainsKey(kh) Then
d2(kh) = d2(kh) + sum
Else
d2.Add(kh,sum)
End If
End If
Next
Dim r As Row
For Each key As String In d2.Keys
r = Tables("表A").AddNew
r("款式名称") = d3(key)
r("款号") = key
r("箱数") = d2(key)
r("出货日期") = d
Next
加好友 
发短信
Post By：2021/4/12 9:04:00 [显示全部帖子]
此主题相关图片如下：1.png
