使用VB.NET将模式填充到excel单元格

Question

如何将图案填充到excel细胞？

基于此论坛上的几篇帖子，我尝试使用以下内容，但到目前为止没有成功。

A）

oWB1.Worksheets(i).Cells(7, 3).Interior.PatternIndex = 5

b）

Dim style As Microsoft.Office.Interop.Excel.Style
style = oWB1.Styles.Add("Style1")
style.Interior.Pattern = Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid
oWB1.Worksheets(i).Cells(7, 3).Style = "Style1"

任何帮助都将非常感激。

由于

Answer 1

此（Excel VSTO）代码有效：

Dim rng As Range = activeSheet.Range(1,1)
rng.Style = "Calculation"

“计算”是样式的名称。