Dim Book As New XLS.Book() '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BorderTop = XLS.LineStyleEnum.Double
Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式
Style2.BorderLeft = XLS.LineStyleEnum.Thin
Dim Style3 As XLS.Style = Book.NewStyle() '定义新样式
Style3.BorderRight = XLS.LineStyleEnum.Thin
For r As Integer = 1 To 5
Sheet(r,1).Style = Style2
Sheet(r,6).Style = Style2
Sheet(1,r).Style = Style
Sheet(6,r).Style = Style
Next
Sheet(1,0).Style = Style3
Book.Save("D:\问题\test.xls")
Dim Proc As New Process
Proc.File = "D:\问题\test.xls"
Proc.Start()
加好友 
发短信
Post By：2016/11/1 22:23:00 [显示全部帖子]
