Dim Book As New XLS.Book(ProjectPath & "集团汇总.xls")
Dim Sheet1 As XLS.Sheet = Book.Sheets("资产负债表")
Dim tt As Table = Tables("单位")
Dim drs As List(Of DataRow)
For i As Integer = 0 To tt.Rows.Count - 1
DataTables("资产负债表").DataRows.Clear
Dim xj As String = tt.Rows(i)("单位")
drs = DataTables("资产负债表汇总").Select("[单位] = '" & xj & "'")
For Each drr As DataRow In drs
Dim dr As DataRow = DataTables("资产负债表").addnew
dr("项目")=drr("项目")
dr("年初数")=drr("年初数")
dr("行次")=drr("行次")
dr("年未数")=drr("年未数")
dr("单位")=drr("单位")
Next
Dim dt As Table = Tables("资产负债表")
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
If Sheet1(5+i, r+2).Formula = "" Then
Sheet1(5+i,r+2).Value = dt.rows(r)("年未数")
Dim s1 As String = dt.Rows(r)("单位")
Dim nn As Integer
nn=s1.Length
If nn=9 Then
Sheet1(5+i,1).Value= s1.Substring(3,2)
ElseIf nn=11 Then
Sheet1(5+i,1).Value= s1.Substring(7,2)
Else
Sheet1(5+i,1).Value= s1.Substring(9,2)
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
If MessageBox.Show("是否打开导出表?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim book1 As new xls.book( "d:\集团汇总.xls" )
book1.sheets.SelectedIndex = 1
book1.save( "d:\集团汇总.xls" )
Dim Proc As New Process
Proc.File = ( "d:\集团汇总.xls" )
Proc.Start()
End If
有无有可以直接保留Dim Book As New XLS.Book(ProjectPath & "集团汇总.xls")原表的打印设置，如用8k纸张，打印区域设置等，因为导入数据后，另存后原来的打印设置不起效了。
加好友 
发短信
Post By：2014/7/11 14:49:00 [只看该作者]
