C#解决Excel边框样式无法复制及格式刷功能
问题现象
在运行数据表数据导出到 EXCEL 数据输出时遇到了一个问题,开发者设计了单行细线下边框的输出模板,如下图设计:
其中 <%system.excel.title.dyna.by.craneoffice%> 字符标记用于输出报表标题替换。数据从A5列开始至D5列结束,按行输出。期望得到如下输出样式:
虽然已经自定义了复制样式的方法,包括边框风格的复制,但实际输出遇到了如下情况:
实际想要得到的单行细线下边框输出没有实现,使用简单 Borders.LineStyle 赋值没有奏效,以后输出的行复制第一行的样式没有成功,因此需要调整样式输出策略,实现类似格式刷那样的操作,这样即实现了格式输出的完整性,也保证了性能。
范例运行环境
操作系统: Windows Server 2019 DataCenter
.net版本: .netFramework4.0 或以上
Office Excel 2016
开发工具:VS2019 C#
解决方案
剪贴板加特殊粘贴
使用 COM 操作的流程原理如下图:
实现代码,示例如下:
SRange.Copy(); //将源选定范围复制到剪贴板 Range.PasteSpecial(Excel.XlPasteType.xlPasteFormats); //特殊粘贴格式到目标选定范围
Copy() 方法实现了复制所有数据到剪贴板功能,其中也包括了样式。 PasteSpecial() 方法实现了指定粘贴的功能,其中 Excel.XlPasteType.xlPasteFormats 表示只粘贴格式样式,至此实现了模拟格式刷的功能。 但此方法可能会引起多 Excel 应用的复制冲突,因此相对保险的写法可以改成如下代码:
SRange.Copy(Range);
但这样会有一个问题是,如果像模板输出还好,但想要仅粘贴格式则无法实现,因此也有局限性。而且这种实现原理,微软可能也会有所调整,也无法保障以后的应用是否会引起复制冲突。所以我们在下个小节通过自定义样式的方式来模拟格式刷的功能。
自定义样式
使用 COM 操作的流程原理如下图:
示例代码如下:
string stylename = Guid.NewGuid().ToString(); WorkBook xb=WorkBooks[1]; Style newStyle = xb.Styles.Add(stylename); 设置样式属性 newStyle.Font.Name = "宋体"; newStyle.Font.Size = 11; newStyle.Font.Bold = true; newStyle.Borders.Weight = XlBorderWeight.xlHairline; //最细的线 newStyle.Borders.LineStyle = XlLineStyle.xlContinuous; //实线
以上是添加样式的示例,因为样式很多,实现格式复制的简单方法,是创建新名称并直接引用源单元格的样式,应用到目标选范围上即可,如果有需要移除或修改的样式,可以继续对新建样式进行赋值,修改后如下代码示例:
string stylename = Guid.NewGuid().ToString(); WorkBook xb=WorkBooks[1]; Style newStyle = xb.Styles.Add(stylename); newStyle = SRange.Style; //将源选定范围样式赋值到自定义新建样式 newStyle.Font.Name="宋体"; //修改字体为宋体 Range.Style = newStyle.Name;
直接赋值
Range.Style 是一个 dynamic 类型,可以赋予任何可以正确实现的类型,如自定义样式名称(newStyle.Name),也可以直接赋值为 Style 类型,简单而暴力,代码如下:
Range.Style = SRange.Style; //将源选定范围样式赋值到目标
完美方案
在实际的运行中,无论是自定义样式还是直接赋值模式,对复制字体时出现了无法复制的问题,因此还是需要结合自定义复制样式方法来弥补问题,代码如下:
public void copyRangeStyle(Excel.Range srcRange,Excel.Range desRange) { desRange.Font.Background=srcRange.Font.Background; desRange.Font.Bold=srcRange.Font.Bold; desRange.Font.Color=srcRange.Font.Color; desRange.Font.Italic=srcRange.Font.Italic; desRange.Font.Name=srcRange.Font.Name; desRange.Font.OutlineFont=srcRange.Font.OutlineFont; desRange.Font.Shadow=srcRange.Font.Shadow; desRange.Font.Size=srcRange.Font.Size; desRange.Font.Strikethrough=srcRange.Font.Strikethrough; desRange.Font.Underline=srcRange.Font.Underline; desRange.RowHeight=srcRange.RowHeight; desRange.HorizontalAlignment=srcRange.HorizontalAlignment; desRange.VerticalAlignment=srcRange.VerticalAlignment; }
copyRangeStyle 自定义复制样式方法包括 源选定范围参数(Excel.Range srcRange)和目标选定范围参数(Excel.Range desRange),至此,完整代码可修整如下:
Range.Style = SRange.Style; copyRangeStyle(SRange, Range);
至此结合 copyRangeStyle 方法完美解决样式复制问题。
copyRangeStyle 方法请根据实际需要的样式进行扩充或调整。
小结
关于 Range.Borders 的COM 操作如下图:
这个样式的设定是有点击顺序的,选边框后点击样式是无效的,需要点击样式再进行选边框的切换,才会得到预期效果。正常可通过 Range.Borders 直接表示所有6个框线的集合,直接为其赋值,如下代码:
newStyle.Borders.Weight = XlBorderWeight.xlHairline; //最细的线 newStyle.Borders.LineStyle = XlLineStyle.xlContinuous; //实线类型边框 newStyle.Borders.Color = Color.Red; //红色边框
如果想只设置某一边框,则需要获取 Borders 集合里的 Border,如下几种方式都可以获取其中的某一个 Border 对象:
//右、左、下、上边框 Range.Borders.get_Item(XlBordersIndex.xlEdgeRight).LineStyle = XlLineStyle.xlLineStyleNone; Range.Borders.get_Item(XlBordersIndex.xlEdgeLeft).LineStyle = XlLineStyle.xlContinuous; Range.Borders.get_Item(XlBordersIndex.xlEdgeBottom).LineStyle = XlLineStyle.xlContinuous; Range.Borders.get_Item(XlBordersIndex.xlEdgeTop).LineStyle = XlLineStyle.xlContinuous; //内部交叉斜线 Range.Borders.Item[XlBordersIndex.xlDiagonalDown].LineStyle = XlLineStyle.xlLineStyleNone; Range.Borders[XlBordersIndex.xlDiagonalUp].LineStyle = XlLineStyle.xlLineStyleNone;
我们可以使用 Borders.get_Item 方法或引用 Item 索引或直接引用索引的方法得到 Border,但实际的使用过程中,预期效果不理想,因此我们使用了样式赋值,类似格式刷的方法来解决。
以上就是C#解决Excel边框样式无法复制及格式刷功能的详细内容,更多关于C# Excel边框样式无法复制的资料请关注脚本之家其它相关文章!
最新评论