利用VBA编程实现从EXCEL表到表转换

---- crosoft Excel 具有十分强大的制表、表格计算等功能，是普通人员常用的制表。可以通过其内嵌的VBA语言可以控制Microsoft Excel 的整个操作过程。

---- AutoCAD是由AutoDesk公司的工程绘图软件，是CAD市场的主流产品，功能十分强大，是工程制图人员常用的软件之一。AutoDesk公司从R14版以后，为其提供了VBA语言。

---- 在工程制图中，常常需要在图中插入绘制表格，一般有两种方法。其一，是利用剪贴板，将Microsoft Excel表格拷贝至剪贴板中，然后打开AutoCAD文件，再将剪贴板中的文件粘贴至所需位置。这种方法十分简单，但有其固有的缺点。①在保存文件必须将.xls和.dwg文件保存在一起，一旦缺少excel环境，则再对表格继续修改。②同时打开多个表格操作，需要占据较大的内存空间。③文件体积变得很大，表格有时在.dwg文件中以图标形式显示，不便于观察。

Excel表格中的文字和线条信息全部读取出来，在AutoCAD文件里按照一一对应的方式写出来，确保转换后的表格与原表格一致。这样彻底避免了前种方法的缺点，便于表格内容编辑。本文着重介绍此方法。

---- 二、表格转换工作机理分析及具体实现方法

---- 1．表格转换工作机理分析

---- 在制表过程中，经常遇到两个概念，表和方格。

---- 在Microsoft Excel中，与表对应的对象是工作表（Sheet或Worksheet）,与每一个表格方格相对应的对象是单元格区域（range），它可以仅包括一个单元格（cell）,也可以由多个单元格合并而成。

---- 在AutoCAD中，没有与表对应的对象，但表可以理解由若干条线和文字对象组合而成。

---- 根据上述分析，可以发现如下的转换方法：

---- 读取Microsoft Excel文件中的最小对象----单元格区域(range)的主要信息---线条和文字，然后在AutoCAD文件里在指定图层、位置画线条，书写文字。通过循环，遍历所有单元格区域(range),边读边写，最终完成表格的转换。转换过程中，保持线条、文字及其相关属性不发生改变。

---- 下面就转换工作的两个主要对象表格线条和表格文字进行讨论。

---- 2、表格线条的转换

中内嵌的VBA为我们获取Excel文件信息提供了极大便利。通常，通过访问range对象，可以获得许多信息。访问分析表格的属性应从分析range开始。每一个range包括许多对象和属性,例如,font对象可以返回range的字体信息。通过遍历,即可获得整个表格信息。获取表格信息的目的在于准确地按照位置画表格线，同时确定文字位置。

---- 在获取表格信息时，存在一个最佳算法问题。以下就画线问题为例，阐明问题和解决方法。

---- 假设表格由a(a>=1)行b(b>=1)列组成,x，y为循环变量, 表格完全由单元格组成，由于在每个单元格都有4条边，让x从1开始循环到a, 再y从1开始循环到b,读取每个单元格的4条边,会读取a*b*4次，重复读取a*b*2次。当x=1时，读取上边；当y=1时读取,左边，其余情况读取右边，下边。共读取a+b+ a*b*2次。以3行4列为例，共读取3+4+3*4*2=31次，与实际表格的边数相同，没有重复读取。

---- 对合并单元格信息的读取是个难点。因为如果按照单元格的位置依次读取，那么由a行b列个单元格（cell）合并而成的单元格区域(range)仅有4条边，采用上述计算方法，需要读取a+b+ a*b*2次，重复读取a+b+ a*b*2 - 4次。以以3行4列为例，共读取3+4+3*4*2=31次，重复读取31 - 4=27次。算法有重复。如果按照行号，列号读取，合并单元格的行号、列号只有一个，其值为最靠左、靠上的那个单元格的行号、列号。例如，将A2：E5的单元格合并后，其行号为2，列号为A。这样由多个合并单元格组合后的表格行号、列号有间断，不连续，无法进行循环读取信息。笔者通过研究发现，函数dress（）和单元格的mergearea属性可以获得合并单元格的准确信息。具体方法为：读取cells(x,y)单元格时，用address()判断包含cells(x,y)单元格的合并单元格区域c.mergearea的绝对地址,如果前4个与cells(x,y) 单元格的地址相同，为cells(x,y)单元格为合并单元格区域最靠上、靠左的那个合并单元格，读取其4条边信息，否则不读取。这样，彻底避免了重复读取，同时提高了整个读取和画线速度。

---- 下面的程序演示表格线条读取和画表格线的具体过程。

‘以行号、列号获得单元格地址 ‘求出单元格C的合并单元格地址 假如c.mergearea的绝对地址,如果前4个字符与c单元格的地址相同 ‘第一点坐标（数组下标 0 and 1) ‘第二点坐标（数组下标 2 and 3) ‘第三点坐标（数组下标 0 and 1) ‘第四点坐标（数组下标 2 and 3） ‘第四点坐标（数组下标 0 and 1) ‘第一点坐标（数组下标 2 and 3) ‘第二点坐标（数组下标 0 and 1) ‘第三点坐标（数组下标 2 and 3） ‘下面程序控制线条粗细 ‘下面程序完成列号转换

微信时代的今天，短信同样不可缺席，大系统都有集成短信接口。
若只是临时用一下，若可以直接在Excel上加工好内容就能够直接发送，这些假设在此篇批量群发短信功能中都为你们带来完美答案。数据库

很少说，发送短信人人都有需求，本身云思考如何使用这个短信的好工具就好。安全

此篇仅对众多短信接口中的腾讯云短信功能给予支持，其余接口没有开发，原理也类似，实在有其余接口需求时，可给予赞助下，Excel催化剂将其实现出来。服务器

要批量发送短信，在如今工信部对短信垃圾严查的时代，就没那么容易了，须要本身在各大短信平台里注册，并按平台要求进行内容审核才可正常使用。微信

腾讯云短信接口申请流程

腾讯云每个月提供100条免费短信供使用，临时性需求应该够用。不够用时能够购买付费短信套餐。数据结构

简单对腾讯云短信接口的申请流程做一下描述。函数

1. 先有腾讯云账号，有微信、QQ、手机号等都很轻松能够注册成功
   具体的注册流程，自行搜索相关内容进行实操。工具

2. 在腾讯云上注册短信应用
   申请开通应用的前提是须要实名认证，按提示操做便可。
    尝试在这个网址上做下应用申请。学习

3. 申请发送短信的签名与短信正文模板
   点击申请好的应用，跳转到以下图，按提示填写申请签名与申请短信正文模板。人工智能

经过以上申请好腾讯云的短信接口及短信签名、正文模板后，便可在Excel催化剂上实现批量发送短信的操做。加密

步骤一：按要求整理好数据源，最终生成一列用于引用的单元格区域并选定。

格式为：短信签名+短信正文模板ID+短信引用的变量（变量可多个，但须要和模板的变量数量及顺序一致）

步骤二：点击【批量发送短信】按钮调出配置窗体

将本身在腾讯云上申请到的AppID和AppKey填写进来。

按本身内容的设置，将短信内容分隔符填写进来，再将发送后的状态结果要保存到的单元格位置给填写上（相对引用内容列的偏移量）

步骤三：点击【发送】按钮便可完成。

发送后，若出现异常可随时按停止键中止。

在Excel催化剂上发送短信的优点所在

从以上步骤可知，Excel催化剂插件的方式发送短信，所须要的配置信息最小，无需频繁地切换Excel文件和短信平台要求的模板文件，可直接使用简单的函数公式，在现有数据源中进行加工，仅需按指定要求构造好引用内容列便可。

以上演示数据中，其实未能让你们感觉到其真正的灵活性，若须要对多种相似状态的用户进行多种的短信模板的发送，在其余平台上，确定须要屡次设置短信模板，再屡次进行系统发送动做。

在Excel催化剂上，再次见证了其与Excel紧密结合的极大好处，仅需按要求，按不一样条件写几个IF函数嵌套一下，生成所需的内容列便可批量一次性发送多个短信模板、多个短信签名，多个变量共存的短信内容发送，灵活性大大加强。

Excel和Excel催化剂的结合，可以发挥的做用，是无穷无尽的，在各类系统里繁琐操做的业务过程，其实很大程度上均可以分离到Excel环境上更方便、更灵活地完成。

特别是对一些临时性的需求，没有什么其余方案能够和在Excel上做简单的二次开发所带来的效率上的提高和成本上的节约相提并论的。

Excel催化剂一直等待着众位的企业级的需求的激活，相信Excel催化剂手中的数据应用方案，一定能带给众企业主满意的答案。

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

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

Excel催化剂插件下载连接：

因插件使用VSTO开发技术完成，插件的安装须要电脑知足相关的环境配置才能运行，且需可链接外网的方式实现自动更新机制，若下载安装过程当中有任何疑问或须要离线版安装等，尽可能不单独私聊询问，加QQ群可高效解决（群内已聚集了VSTO开发、Powerbi技术、Sqlserver商业智能等方面的国内顶尖大牛人物，进群的好处不用多说了）

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

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

关于Excel催化剂做者

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

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

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

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