不能这样
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Dim Style1 As XLS.Style = Book.NewStyle() '定义新样式
Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式
style.Font= New Font("Arial Unicode MS",10, FontStyle.regular)
style1.font=New Font("Arial Unicode MS",12, FontStyle.bold)
style2.font=New Font("Arial Unicode MS",16, FontStyle.bold)
sheet(1,1).style=style
sheet(2,1).style=style1
sheet(3,1).style=style2