VB.net Excel样式

嘿,我想要添加一些样式属性列,但我目前使用的代码似乎并没有工作呢?

Dim oApp As New Excel.Application Dim oWB As Excel.Workbook = oApp.Workbooks.Add() Dim oWS As Excel.Worksheet = CType(oWB.Worksheets(1), Excel.Worksheet) Dim style As Microsoft.Office.Interop.Excel.Style style = oWB.Styles.Add("Style1") style.NumberFormat = "Text" style.Font.Name = "Arial" style.Font.Bold = True style.Font.Size = 5 style.Interior.Pattern = Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid oWS.Cells(1, 1) = "repairinv PROG" oWS.Cells(1, 2) = "repairinv TEST" 

它仍然是第一次打开excel时的“默认”。

任何帮助将是伟大的! :O)

大卫

您需要将.Cell范围的样式设置为您想要的样式。 例如:

 oWS.Cells(1, 1).Style = "Style1" oWS.Cells(1, 2).Style = "Style1"