Excel催化剂开源第14波-VSTO开发之单元格区域转DataTable

Posted 2021-02-14 excelcuihuaji

在Excel开发过程中，大部分时候是和Range单元格区域打交道，在VBA开发中，大家都知道的一点是，不能动不动就去遍历所有单元格，那性能是非常糟糕的，很多时候，是需要把整个单元格区域装入数组中再作处理的。

在VSTO开发中，难不成还要用VBA这套老掉牙的东西来做吗？VBA的二维数组在.Net的世界中，真的一无是处，太多比它好用的东西存在，其中笔者最喜欢用的是DataTable这样的结构化的数据结构。

从单元格到DataTable，其实也就几句代码的事情，当数据进入到DataTable后，可以使用许多数据库的技术进行增删改查，特别是查询方面，遍历数据行记录变得何等轻松，因其是结构化的数据，访问某列某行的数据，不用像二维数组那样很不直观地只能用下标去访问。

同时在.Net世界中，有一猛药，谁用谁喜爱的，用LINQ的方法来访问数据，什么排序、筛选、去重，分组等等，会用SQL语句的人，都知道这叫怎样地一个方便。LINQ比SQL还要好用、易用好几倍。

言归正传，如何实现Range对象转为DataTable对象

原理同样地先将Range对象转为二维数据，再将二维数组转为DataTable
具体代码如下：

  public static DataTable GetTableFromDataTableRange(Excel.Range dataTableRange,bool isAllStringType=false)
        {

            Excel.Range titleRange = dataTableRange.Rows[1];

            if (titleRange.Cells.Cast<Excel.Range>().Any(s => s.Value2 == null))
            {
                throw new Exception("标题行有空单元格，请检查引用区域首行标题区域是否满足非空！");
            }
            else if (titleRange.Cells.Cast<Excel.Range>().GroupBy(s => s.Value2).Count() != titleRange.Cells.Count)
            {
                throw new Exception("标题行有重复列标题，请修正后再运行！");
            }

            DataTable dataTable = GetTableStructureFromTitleRange(titleRange, isAllStringType);

            try
            {
                Excel.Range dataRangeExcludeTitleRange = Common.ExcelApp.Intersect(dataTableRange.Offset[1, 0], dataTableRange);
                if (dataRangeExcludeTitleRange != null)
                {
                    int[] visibleRowIndexs = RangeUtility.GetVisibleRowIndexs(dataTableRange);
                    return InsertDataToDataTable(dataRangeExcludeTitleRange, dataTable, visibleRowIndexs);
                }
                else
                {
                    throw new Exception("转换的区域仅有标题区域没有数据区域！");
                }

            }
            catch (Exception)
            {
                throw;
            }
        }

先构造一个空数据的DataTable结构，DataTable的数据列类型，有时保留Excel的数据类型方便些，有时全部变为String类型方便些。

        public static DataTable GetTableStructureFromTitleRange(Excel.Range titleRow,bool isAllString=false)
        {
            DataTable dt = new DataTable();
            foreach (Excel.Range cell in titleRow.Cells)
            {
                if (isAllString)
                {
                    dt.Columns.Add(cell.Value2, typeof(string));
                }
                else
                {
                    dt.Columns.Add(cell.Value2, typeof(object));
                }
              
            }
            return dt;

        }

数据注入到DataTable，也就是两次循环嵌套的事情。

        private static DataTable InsertDataToDataTable(Excel.Range dataRangeExcludeTitleRange, DataTable dataTable, int[] visibleRowIndexs)
        {
            object[,] arr = dataRangeExcludeTitleRange.Value;

            for (int i = 0; i < arr.GetLength(0); i++)
            {
                if (visibleRowIndexs.Contains(i + 1))//数据序号从1开始，数组从0开始，所以需要+1。仅抽取非隐藏行
                {
                    DataRow dr = dataTable.NewRow();
                    for (int j = 0; j < arr.GetLength(1); j++)
                    {
                        dr[j] = arr[i + 1, j + 1];
                    }
                    dataTable.Rows.Add(dr);
                }

            }

            return dataTable;
        }

结语

经过简单几步实现了Excel单元格区域加载至DataTable内，然后才是真正的VSTO开发，在.Net的世界中，有了Excel的源数据，再经过许多轻松方便的轮子功能，快速地实现数据的转换，在Excel催化剂中大量使用（因笔者是数据库技术的资深玩家，可能较一般专业程序开发者玩得更溜在这一块）。

最后，数据在程序内，最终需要返回给用户界面，即Excel单元格区域，又是怎样实现最为合理呢，请继续关注下篇讲解。

技术交流QQ群

QQ群名：Excel催化剂开源讨论群， QQ群号：788145319

 

 

Excel催化剂开源讨论群二维码

关于Excel催化剂

Excel催化剂先是一微信公众号的名称，后来顺其名称，正式推出了Excel插件，插件将持续性地更新，更新的周期视本人的时间而定争取一周能够上线一个大功能模块。Excel催化剂插件承诺个人用户永久性免费使用！

Excel催化剂插件使用最新的布署技术，实现一次安装，日后所有更新自动更新完成，无需重复关注更新动态，手动下载安装包重新安装，只需一次安装即可随时保持最新版本！

Excel催化剂插件下载链接：https://pan.baidu.com/s/1Iz2_NZJ8v7C9eqhNjdnP3Q

 

联系作者

 

公众号

取名催化剂，因Excel本身的强大，并非所有人能够立马享受到，大部分人还是在被Excel软件所虐的阶段，就是头脑里很清晰想达到的效果，而且高手们也已经实现出来，就是自己怎么弄都弄不出来，或者更糟的是还不知道Excel能够做什么而停留在不断地重复、机械、手工地在做着数据，耗费着无数的青春年华岁月。所以催生了是否可以作为一种媒介，让广大的Excel用户们可以瞬间点燃Excel的爆点，无需苦苦地挣扎地没日没夜的技巧学习、高级复杂函数的烧脑，最终走向了从入门到放弃的道路。

最后Excel功能强大，其实还需树立一个观点，不是所有事情都要交给Excel去完成，也不是所有事情Excel都是十分胜任的，外面的世界仍然是一个广阔的世界，Excel只是其中一枚耀眼的明星，还有其他更多同样精彩强大的技术、工具等。*Excel催化剂也将借力这些其他技术，让Excel能够发挥更强大的爆发！

关于Excel催化剂作者

姓名：李伟坚，从事数据分析工作多年（BI方向），一名同样在路上的学习者。
服务过行业：零售特别是鞋服类的零售行业，电商（淘宝、天猫、京东、唯品会）

技术路线从一名普通用户，通过Excel软件的学习，从此走向数据世界，非科班IT专业人士。
历经重重难关，终于在数据的道路上达到技术平原期，学习众多的知识不再太吃力，同时也形成了自己的一套数据解决方案（数据采集、数据加工清洗、数据多维建模、数据报表展示等）。

擅长技术领域：Excel等Office家族软件、VBA&VSTO的二次开发、Sqlserver数据库技术、Sqlserver的商业智能BI技术、Powerbi技术、云服务器布署技术等等。

2018年开始职业生涯作了重大调整，从原来的正职工作，转为自由职业者，暂无固定收入，暂对前面道路不太明朗，苦重新回到正职工作，对Excel催化剂的运营和开发必定受到很大的影响（正职工作时间内不可能维护也不可能随便把工作时间内的成果公布于外，工作外的时间也十分有限，因已而立之年，家庭责任重大）。

和广大拥护者一同期盼：Excel催化剂一直能运行下去，我所惠及的群体们能够给予支持（多留言鼓励下、转发下朋友圈推荐、小额打赏下和最重点的可以和所在公司及同行推荐推荐，让我的技术可以在贵司发挥价值，实现双赢（初步设想可以数据顾问的方式或一些小型项目开发的方式合作）。

技术交流QQ群

QQ群名：Excel催化剂开源讨论群， QQ群号：788145319

 

 

Excel催化剂开源讨论群二维码

关于Excel催化剂

Excel催化剂先是一微信公众号的名称，后来顺其名称，正式推出了Excel插件，插件将持续性地更新，更新的周期视本人的时间而定争取一周能够上线一个大功能模块。Excel催化剂插件承诺个人用户永久性免费使用！

Excel催化剂插件使用最新的布署技术，实现一次安装，日后所有更新自动更新完成，无需重复关注更新动态，手动下载安装包重新安装，只需一次安装即可随时保持最新版本！

Excel催化剂插件下载链接：https://pan.baidu.com/s/1Iz2_NZJ8v7C9eqhNjdnP3Q

 

联系作者

 

公众号

取名催化剂，因Excel本身的强大，并非所有人能够立马享受到，大部分人还是在被Excel软件所虐的阶段，就是头脑里很清晰想达到的效果，而且高手们也已经实现出来，就是自己怎么弄都弄不出来，或者更糟的是还不知道Excel能够做什么而停留在不断地重复、机械、手工地在做着数据，耗费着无数的青春年华岁月。所以催生了是否可以作为一种媒介，让广大的Excel用户们可以瞬间点燃Excel的爆点，无需苦苦地挣扎地没日没夜的技巧学习、高级复杂函数的烧脑，最终走向了从入门到放弃的道路。

最后Excel功能强大，其实还需树立一个观点，不是所有事情都要交给Excel去完成，也不是所有事情Excel都是十分胜任的，外面的世界仍然是一个广阔的世界，Excel只是其中一枚耀眼的明星，还有其他更多同样精彩强大的技术、工具等。*Excel催化剂也将借力这些其他技术，让Excel能够发挥更强大的爆发！

关于Excel催化剂作者

姓名：李伟坚，从事数据分析工作多年（BI方向），一名同样在路上的学习者。
服务过行业：零售特别是鞋服类的零售行业，电商（淘宝、天猫、京东、唯品会）

技术路线从一名普通用户，通过Excel软件的学习，从此走向数据世界，非科班IT专业人士。
历经重重难关，终于在数据的道路上达到技术平原期，学习众多的知识不再太吃力，同时也形成了自己的一套数据解决方案（数据采集、数据加工清洗、数据多维建模、数据报表展示等）。

擅长技术领域：Excel等Office家族软件、VBA&VSTO的二次开发、Sqlserver数据库技术、Sqlserver的商业智能BI技术、Powerbi技术、云服务器布署技术等等。

2018年开始职业生涯作了重大调整，从原来的正职工作，转为自由职业者，暂无固定收入，暂对前面道路不太明朗，苦重新回到正职工作，对Excel催化剂的运营和开发必定受到很大的影响（正职工作时间内不可能维护也不可能随便把工作时间内的成果公布于外，工作外的时间也十分有限，因已而立之年，家庭责任重大）。

和广大拥护者一同期盼：Excel催化剂一直能运行下去，我所惠及的群体们能够给予支持（多留言鼓励下、转发下朋友圈推荐、小额打赏下和最重点的可以和所在公司及同行推荐推荐，让我的技术可以在贵司发挥价值，实现双赢（初步设想可以数据顾问的方式或一些小型项目开发的方式合作）。