VB.net Excel стиль

Question

Привет, все, что я пытаюсь добавить некоторые свойства стиля в столбец, но код, который я сейчас использую, кажется, вообще не работает?

    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"

Это все равно, что "default" будет выглядеть при первом открытии Excel.

Любая помощь будет отличной! : О)

David

Answer 1

Вам нужно установить стиль диапазона .Cell на нужный вам стиль.Например:

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