Dim dt As Table = Tables("表A")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim cls() As String = {"科室","类别","金额","张数","备注"}
Dim cls2() As String = {"手术室_低值","手术室_高值","外科_低值"}
For c As Integer = 0 To cls.Length -1 '添加列标题
Sheet(0, c).Value = cls(c)
Next
For k As Integer = 0 To dt.Rows.Count - 1 '填入数据
Dim r As Integer = k*3
Sheet(r +1, 0).Value = "手术室"
Sheet(r +1, 1).Value = "低值"
Sheet(r +2, 0).Value = "手术室"
Sheet(r +2, 1).Value = "高值"
Sheet(r +3, 0).Value = "外科"
Sheet(r +3, 1).Value = "低值"
Sheet.MergeCell(r +1,0,2,1)
For i As Integer = 0 To cls2.Length -1
For j As Integer = 2 To cls.Length -1
Sheet(r + i + 1, j).Value = dt.Rows(k)(cls2(i) & cls(j))
Next
Next
Next
'打开工作簿
Book.Save("F:\test.xls")
Dim Proc As New Process
Proc.File = "F:\test.xls"
Proc.Start()
加好友 
发短信
Post By：2016/9/27 8:44:00 [显示全部帖子]
