解决 Excel 自动适应列宽的问题C#

问题现象

通过 COM 操作 Excel 自动适应列宽的方法是 AutoFit 方法,该方法适于自动适应列宽或行高。

最近在我们的一款应用里发现效果并没有符合预期,我们提供了一个可以设置导出Excel花名册的配置功能,如下图:

通过查询配置表,可以看到当选择需要输出的列的时候,可以设置 excel 列的宽度,以满足输出样式。列宽的值可以设置0到255的数值,在 C# 中列宽(ColumnWidth)是一个 dynamic 类型,如下示例代码

 
  1. Range _range=excel.Range[excel.Cells[1,1],excel.Cells[65536,1]];

  2. _range.ColumnWidth=255;

通过获取 Range 对象,将其 ColumnWidth 设置为我们配置的值。在我们的应用里,如果配置为 -1 ,则表示使用自动适应列宽模式,这就用到了如下代码:

 
  1. Range _range=excel.Range[excel.Cells[1,1],excel.Cells[65536,1]];

  2. if(config_width==-1){

  3. _range.Columns.AutoFit();

  4. }

我们在应用里配置了类似“家庭成员情况”、“主要社会关系人” 、“学习经历”、“工作经历” 等履历型的多行文本输出,使用了自动适应列宽模式,输出效果如下:

 实际上是我们想要得到这样的效果:

原因分析

根据输出效果,我们在 Excel 里模拟操作一下自适应列宽,将鼠标移动到指定的列的表头的分隔线处,鼠标形状会显示为左右箭头分隔状,然后双击即可实现自动列宽。

发现有以下几种情况:

(1)如果单元格未设置为自动换行,我们将列宽手动调小于文字显示的长度,双击后将成功自动适应为最大文字长度的合适列宽。

(2)如果单元格设置为自动换行,我们将列宽手动调小于文字显示的长度,双击后将没有达成预期的显示列宽。

(3)如果单元格设置为自动换行,我们将列宽手动调大于多行文字显示的长度,双击后将成功自动适应为最大文字长度的合适列宽。

因此我们可以使用 C# 模拟情况(3)的操作来解决情况(2)的问题。

范例运行环境

操作系统: Windows Server 2019 DataCenter

.net版本: .netFramework4.0 或以上

Office Excel 2016

开发工具:VS2019  C# 

解决问题

生成测试文本

我们假设生成了如下 HtmlTable 表格内容:

姓名与本人关系政治面目工作单位职务
姓名1父亲 群众工作单位工作单位工人
姓名2母亲群众工作单位2员工
姓名3子女群众无工作单位

我们通过遍历行列的方法,计算每个单元格相对于列的最大字节数 GetByteCount(不是长度Length),示例代码如下:

 
  1. for (int i = 0; i < mtable.Rows[0].Cells.Count; i++)

  2. {

  3. int maxlen = 0;

  4. for (int j = 0; j < mtable.Rows.Count; j++)

  5. {

  6. HtmlTableCell curcell=mtable.Rows[j].Cells[i];

  7. int curlen=System.Text.Encoding.Default.GetByteCount(curcell.InnerText);

  8. if (curlen > maxlen)

  9. {

  10. maxlen = curlen;

  11. }

  12. }

  13. mtable.Rows[0].Cells[i].Attributes["maxlen"] = maxlen.ToString();

  14. }

  15. string excel = "";

  16. for (int i = 0; i < mtable.Rows.Count; i++)

  17. {

  18. for (int j = 0; j < mtable.Rows[i].Cells.Count; j++)

  19. {

  20. int maxlen =int.Parse(mtable.Rows[0].Cells[j].Attributes["maxlen"]);

  21. HtmlTableCell curcell = mtable.Rows[i].Cells[j];

  22. excel += curcell.InnerText + string.Concat(Enumerable.Repeat(" ", maxlen - System.Text.Encoding.Default.GetByteCount(curcell.InnerText)))+" " ;

  23. curcell.InnerText);

  24. }

  25. excel += "\r\n";

  26. }

实现自适应

通过生成测试文本,保存到数据库并输出到 Excel 指定列,实现自适应非常简单,将列值设置为最大值,再使用自适应AutoFit 方法,即可以让 Excel 自动计算并重新调整列宽,代码如下:

 
  1. Range _range=excel.Range[excel.Cells[1,1],excel.Cells[65536,1]];

  2. if(config_width==-1){

  3. _range.ColumnWidth = 255;

  4. _range.Columns.AutoFit();

  5. }

自此完美解决。

  • 9
    点赞
  • 13
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值