|
Dim Book As New XLS.Book(ProjectPath & "Attachments\考评表.xls")
Dim fl As String = ProjectPath & "Reports\考评表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成报表
sheet = book.sheets(0)
Dim c As Integer = 1
Dim r As Integer = 1
For i As Integer = 4 To sheet.Rows.count-1
If sheet(i, 1).text = "" AndAlso sheet(i,0).text > "" Then
c = 2
End If
If sheet(i, 0).text = sheet(i+1,0).text AndAlso sheet(i, 1).text = sheet(i+1,1).text Then
r += 1
Else
output.show(sheet(i, 0).text & r & " " & c)
If c = 2 Then
sheet.MergeCell(i-r+1, 0, r, c)
End If
c = 1
r = 1
End If
Next
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
|
加好友 
发短信
Post By：2017/7/27 11:26:00 [显示全部帖子]
