Dim Book As New XLS.Book ( "d:\集团汇总.xls" )
'导出费用表
Dim Sheet3 As XLS.Sheet = Book.Sheets("费用表")
Dim tt3 As Table = Tables("单位")
Dim drs3 As List(Of DataRow)
For i3 As Integer = 0 To tt3.Rows.Count - 1
DataTables("商品流通费用明细表").DataRows.Clear
Dim xj3 As String = tt3.Rows(i3)("单位")
xj3 = xj3.Substring(0,2)
drs3 = DataTables("商品流通费用汇总表").Select("[单位] = '" & xj3 & "'")
For Each drr3 As DataRow In drs3
Dim dr3 As DataRow = DataTables("商品流通费用明细表").addnew
dr3("行次")=drr3("行次")
dr3("累计数")=drr3("累计数")
dr3("单位")=drr3("单位")
Next
Dim dt3 As Table = Tables("商品流通费用明细表")
For r3 As Integer = 0 To dt3.Rows.Count - 1 '填入数据
If Sheet3(3+i3, r3+2).Formula = "" Then
Sheet3(3+i3,r3+2).Value = dt3.rows(r3)("累计数")
Sheet3(3+i3,1).Value= dt3.Rows(r3)("单位")
If r3 = 27 Then
Sheet3.Cells(4+i3,30).Value = Sheet3.Cells(4+i3,29).Value + Sheet3.Cells(4+i3,30).Value
Sheet3(3+i3,28).Value = 0
End If
End If
Next
Next
Book.Save( "d:\集团汇总.xls" )
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.open( "d:\集团汇总.xls" )
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("费用表")
ws.UsedRange.Formula = ws.UsedRange.Formula
wb.save
wb.close
App.Quit
messagebox.show("导出成功")
加好友 
发短信
Post By：2014/9/29 16:30:00 [只看该作者]
