导出数据到Excel文件中时如何设置单元格带四边框线?
如题,导出数据到Excel文件中时,怎样设置单元格带四边框线?
[解决办法]
OLE专业户来也!!!
设置边框:
Borders的LineStyle有8种类型,值分别如下:
xlContinuous=1
xlDash=-4115
xlDashDot=4
xlDashDotDot=5
xlDot=-4118
xlDouble=-4119
xlLineStyleNone=-4142
xlSlantDashDot=13
例如:
Variant vRange = vExcelApp.OlePropertyGet( "ActiveSheet ").OlePropertyGet( "Cells ", 1, 1);
Variant vBorder = vRange.OlePropertyGet( "Borders ");
vBorder.OlePropertySet( "LineStyle ", 1); // xlContinuous
vBorder.OlePropertySet( "Weight ", 4); // xlThick
vBorder.OlePropertySet( "ColorIndex ", -4105); // xlAutomatic
[解决办法]
Range.OPG( "Cells ").OleFunction( "Select "); //选中合并后的大格子
//边框设置
Range.OPG( "Borders ",linetype).OPS( "LineStyle ",LineStyle);
//Range.OPG( "Borders ",linetype).OPG( "LineStyle ",LineStyle).OPS( "Weight ",3);
//属性的value值
//1 - 所有单元格的左线
//2 - 所有单元格的右线
//3 - 所有单元格的顶线
//4 - 所有单元格的下线
//5 - 左上右下斜线
//6 - 左下右上斜线
//7 - 边框的最左线
//8 - 边框的最顶线
//9 - 边框的最下线
//10 - 边框的最右线
//11 - 除边框外的所有竖线
//12 - 除边框外的所有横线
//Range1.OlePropertySet( "LineStyle ",value)属性的value值
//1 - 实线
//2 - 虚线?
//3 - 虚线?
//4 - 点划线
//5 - 双点划线
//Range1.OlePropertySet( "Weight ",value)属性的value值
//1 - ?
//2 - 1 个像素点
//3 - 2 个像素点