NPOI跨Sheet复制(含格式、字体、合并区域)

最新推荐文章于 2020-12-24 23:04:12 发布

原创

最新推荐文章于 2020-12-24 23:04:12 发布 · 7.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#GTMD沙雕 #NPOI #Excel

本文介绍了如何使用NPOI库在VB.Net中进行Excel跨Sheet的内容复制，包括格式、字体和合并区域的完整迁移。通过创建临时行并设置样式，然后将源Sheet的行数据复制到目标Sheet的末尾，实现了数据和样式的同步转移。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

之前做NPOI，也是受了不少苦。网上的那些攻略啊，秘籍啊，宝典啊，naive！
搞了半天，又是吹的天花乱坠(究竟是不是某国特色)

P话不说上伪代码(实际代码由于某些原因，不便展示//其实我懒得改)

VB.Net,简单的来讲，这就是个
c=a;//谭浩强Code Style

a=b;

b=c;//SpeedWagon Withdrawl Cooly(JOJO梗)

Fuck_SandSculpture(Src_Sheet,Dest_Sheet)//大体就是这样了，代码看得懂看不懂无所谓，主要是思路
{
Dim tempRow As IRow
Dim style as ICellStyle
For i = 需要开始拷贝的行 To Src_Sheet.LastRowNum  ''表尾'Src_SheetMergerCount->Src_Sheet.LastRowNum
                    If Src_Sheet.GetRow(i) Is Nothing Then : tempRow = Src_Sheet.CreateRow(i)
                    Else : tempRow = Src_Sheet.GetRow(i) : End If
                    Dest_Sheet.CreateRow(Dest_Sheet.LastRowNum + 1).Height = tempRow.Height
                    For j = 0 To Src_SheetMergerCount
                        If Not tempRow.GetCell(j) Is Nothing Then
                            style = tempRow.GetCell(j).CellStyle
                            style = Style_OutLine(style)
                            C