使用C#和Excel进行报表开发(五)-操作单元格边框和颜色

本文介绍了一种使用Excel VBA编程的方法来设置单元格的填充纹理为交叉图案,并设置了单元格边框的样式和颜色。具体操作包括打开指定工作簿、选择单元格范围、设置单元格内容、定义单元格填充样式及边框属性等。
摘要由CSDN通过智能技术生成

 

在用Excel作报表的时候,可能需要操作单元格的边框和填充颜色和纹理等操作,下面的代码说明如何设置选中的单元格的填充纹理和边框

 

try

{

       ThisApplication = new Excel.Application();

 

      ThisWorkbook = ThisApplication.Workbooks.Open("z://Book1.xls", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);

                    

 

       ThisApplication.DisplayAlerts = false;

       xlSheet = (Excel.Worksheet)ThisWorkbook.Worksheets.get_Item(1);

       Excel.Range range = xlSheet.get_Range("G4","H5");

       range.Value = "123";

                           

       Excel.Style st = ThisWorkbook.Styles.Add("PropertyBorder", Type.Missing);

                                                       

       range.Interior.Pattern = Excel.XlPattern.xlPatternCrissCross;

       range.Borders.Weight = 2;

       range.Borders.get_Item(XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlLineStyle.xlContinuous;

       range.Borders.get_Item(XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlContinuous;

       range.Borders.get_Item(XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlContinuous;

       range.Borders.get_Item(XlBordersIndex.xlDiagonalDown).LineStyle = Excel.XlLineStyle.xlLineStyleNone;

       range.Borders.get_Item(XlBordersIndex.xlDiagonalUp).LineStyle = Excel.XlLineStyle.xlLineStyleNone;

       range.Borders.get_Item(XlBordersIndex.xlInsideHorizontal).LineStyle = Excel.XlLineStyle.xlLineStyleNone;

       range.Borders.get_Item(XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlLineStyleNone;

       range.Borders.get_Item(XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlLineStyle.xlDot;

       range.Borders.get_Item(XlBordersIndex.xlEdgeLeft).Color = System.Drawing.ColorTranslator.ToOle(Color.Red);

                           

       ThisWorkbook.SaveAs("z://Book2.xls", Type.Missing, Type.Missing,

              Type.Missing, Type.Missing, Type.Missing, Excel.XlSaveAsAccessMode.xlNoChange,

              Type.Missing, Type.Missing, Type.Missing, Type.Missing);

}

catch (Exception ex)

{

       MessageBox.Show(ex.Message);

}

finally

{

       ThisWorkbook.Close(Type.Missing, Type.Missing, Type.Missing);

       ThisApplication.Workbooks.Close();

 

       ThisApplication.Quit();

       System.Runtime.InteropServices.Marshal.ReleaseComObject(ThisWorkbook);

       System.Runtime.InteropServices.Marshal.ReleaseComObject(ThisApplication);

       ThisWorkbook = null;

       ThisApplication = null;

       GC.Collect();

       this.Close();

} 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值