通过VB.NET更改excel表格的单元格颜色

通过VB.NET更改excel表格的单元格颜色,vb.net,excel,Vb.net,Excel,我正在通过visual basic.net将数据库中的一些数据写入excel。我需要更改某些单元格的背景,还需要将文本加粗。我需要这样的东西: xlWorkSheet.Cells(rownumber, 1).BackgroundColor = Color.Yellow xlWorkSheet.Cells(rownumber, 1).Font.isBold = True 当然,以上这些都不起作用。我如何才能做到这一点?谢谢..您需要创建一个Excel.Style对象,并将其应用于一个范围。像

我正在通过visual basic.net将数据库中的一些数据写入excel。我需要更改某些单元格的背景,还需要将文本加粗。我需要这样的东西:

 xlWorkSheet.Cells(rownumber, 1).BackgroundColor = Color.Yellow
 xlWorkSheet.Cells(rownumber, 1).Font.isBold = True

当然,以上这些都不起作用。我如何才能做到这一点?谢谢..

您需要创建一个Excel.Style对象,并将其应用于一个范围。像这样:

Dim style As Excel.Style = xlWorkSheet.Application.ActiveWorkbook.Styles.Add("NewStyle")
style.Font.Bold = True
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Yellow)

xlWorkSheet.Cells(rownumber, 1).Style = "NewStyle"

这对我来说非常有效


xlsWorkSheet.Cells(行、列).interior.color=color.Green

这是一些可以帮助您设计Excel样式的声明
对于调色板:

这对我很有用:

oWorkSheet.Range(oWorkSheet.Cells(nRow, 1), oWorkSheet.Cells(nRow, 5)).Interior.Color = System.Drawing.ColorTranslator.ToOle(Color.DimGray)
调暗样式为:

Excel.Style = xlWorkSheet.Application.ActiveWorkbook.Styles.Add("NewStyle")
style.Font.Bold = True
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Yellow)

xlWorkSheet.Cells(rownumber, 1).Style = "NewStyle"

我们如何根据(1,1)、(5,6)等指数而不是A1、B1等范围来做@dnur:xlWorkSheet.Cells(1,1)的类型为Range,因此Controls.AddNamedRange(xlWorkSheet.Cells(rownumber,1),“rangeStyles”)应该可以工作。它在包含“Globals.ThisWorkbook”的行中出现错误。我用我的工作簿名“xlWorkBook”和“Globals.xlWorkBook”对它进行了更改,但它们都不起作用。另外,它在包含“Microsoft.Office.Tools.Excel.NamedRange”的行中给出了第二个错误,我将其改为“Microsoft.Office.Interop.Excel.shaperage”。是真的吗?@dnur:我已经更新了答案,使它更适合你的情况(希望如此)。你能解释一下如何从VB.NET导入和调用这个C#函数吗?我对这种语言是新手。但是我找到了一些有用的URL。希望这对你有帮助。1) 2)请访问并检查。
oWorkSheet.Range(oWorkSheet.Cells(nRow, 1), oWorkSheet.Cells(nRow, 5)).Interior.Color = System.Drawing.ColorTranslator.ToOle(Color.DimGray)
Excel.Style = xlWorkSheet.Application.ActiveWorkbook.Styles.Add("NewStyle")
style.Font.Bold = True
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Yellow)

xlWorkSheet.Cells(rownumber, 1).Style = "NewStyle"