Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim r = ws.cells(65535,2).End(MsExcel.XlDirection.xlUp).Row
For I as integer = 3 To rWs.Range("A" & I) = IIf(Ws.Range("A" & I) = "销售开单", Ws.Range("A" & I - 1), (IIf(Ws.Range("A" & I) = "销售退货", Ws.Range("A" & I - 1), (IIf(Ws.Range("A" & I) = "小计", "小计", (IIf(Ws.Range("A" & I) = "发出结算", Ws.Range("A" & I - 1), (IIf(Ws.Range("A" & I) = " ", " ", Ws.Range("A" & I))))))))))Next
App.quit
加好友 
发短信
Post By：2020/7/31 16:03:00 [显示全部帖子]
