Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim nms() As String = {"aa_01","aa_o2", "aaaaa", "cc_00", "bb_01", "bb_02", "bb_03", "mmmmm", "dd_02"}
Dim t As String = "aa"
Dim idx As Integer = 0
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.AlignHorz = XLS.AlignHorzEnum.Center
For i As Integer = 0 To nms.Length - 1
Dim ss() As String = nms(i).Split("_")
Sheet(0, i).Value = ss(0)
If ss.Length > 1 Then
Sheet(1, i).Value = ss(1)
End If
If t <> ss(0) Then
If i - idx <> 1
Sheet.MergeCell(0,idx,1,i - idx)
Sheet(0,idx).style = Style
End If
t = ss(0)
idx = i
End If
Next
Book.Save("D:\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "D:\test.xls"
Proc.Start()
加好友 
发短信
Post By：2021/12/7 9:40:00 [只看该作者]
