运用腾讯文档与VBA实现图片信息的收集整理

徐文昭

(四川建筑职业技术学院，四川 德阳 618000)

信息化时代已经到来，互联网走进了我们的工作和生活。社会各个领域的数据汇聚到网络中来，网络数据时时刻刻呈现爆炸性增长，使我们生活在数据的汪洋大海中，大数据时代已然到来。置身于这个大数据时代，机关和企事业单位也在制造产生信息数据，比如很多时候，单位内部需要收集整理和上报内部人员状态信息数据。特别是现在和今后相当长的一个时期，世界处于疫情常态化时代，单位内部人员通过非常流行的QQ群或微信群提交信息数据，给信息数据收集工作带来了极大的便利。但是，我们也应该看到，许多单位面临着如何方便、高效率地收集和整理内部人员提交图片信息的问题。据了解，许多机关和企事业单位一般做法是要求其内部人员通过在群里上传图片或者向指定工作人员私发图片，然后下载收集，再整理。这样做有两个明显缺陷：①收集人不得不对一个个图片进行下载，毫无疑问，这样做工作量大且烦琐；②用户发图片时都没把图片文件名改为自己的姓名，当然很多时候是手机上不方便图片文件重命名，导致下载收集后只能先一个一个打开查看，然后再将图片文件重命名为相应的人员姓名，这样，极大地降低了工作效率。笔者就此问题，研究提出了使用腾讯文档，然后运用Excel自带的VBA编程方法建立和运行宏，让收集和整理图片信息工作变得更方便、更高效。

1 腾讯在线文档和VBA概述

1.1 腾讯在线文档

腾讯在线文档是一款可多人同时编辑的在线文档，支持在线Word/Excel/PPT/PDF/收集表多种类型。可以在电脑端(PC客户端、腾讯文档网页版)、移动端(腾讯文档App、腾讯文档微信/QQ小程序)、iPad等多类型设备上随时随地查看和修改文档。打开网页就能查看和编辑，云端实时保存，权限安全可控。腾讯文档无须注册，QQ、微信一键登录，可跨平台使用。支持导入导出Office文件，无缝兼容。拥有一键翻译、实时股票函数、语音输入转文字、图片OCR文字提取、表格智能分裂、查看历史修订记录等特色功能，支持本地文档导入、在线文档导出为本地文件，并提供信息收集、打卡签到、考勤、在线办公、在线教育、简历等免费模板。

腾讯在线文档具有的主要功能有：①在线编辑。快捷编辑：支持多人随时随地在线编辑；实时保存：编辑文档时内容实时云端保存，离线也可编辑，网络恢复后自动同步云端；多种模板：包括信息收集、打卡签到、考勤、会议纪要、日报、项目管理等各类模板。②快捷登录QQ/TIM/微信。支持QQ/TIM/微信直接登录，无须单独注册；文档信息同步，QQ/TIM内查看过的在线文档信息，自动实时同步至腾讯文档。③多人协作。多人编辑：支持多人同时在线编辑，可查看编辑记录；多端同步：多类型设备皆可顺畅访问，随时随地轻松使用；文档分享：可生成链接或长图，分享给QQ/TIM/微信好友、微博及朋友圈，方便快捷。④数据安全。权限控制：可自主设置查看及编辑权限，文档安全尽在掌控；技术保障：云端存储加密技术为文档安全保驾护航；版权保护：文档支持设置和展示水印，版权有保障；二次密码：若已设置二次密码，当账号重新登录时，需要二次密码验证。

1.2 VBA

VBA是Visual Basic for Applications的简称，是Windows应用程序的通用控制语言，能实现办公自动化，它不需要另外专门安装集成开发环境软件，而是嵌入Excel等软件中，用于定制和扩展Excel等软件的功能，是Visual Basic的子集，不仅具有强大的数据计算和分析能力，也为用户提供了完备的二次开发能力，VBA可以直接应用Office套装软件的各项强大功能，对于程序设计人员的程序设计和开发更加方便快捷。

2 运用腾讯文档与VBA收集图片信息的具体实现

一般来说，利用在线文档收集非图片信息的情况非常普遍，而要收集图片信息一般想到的做法是利用微信群或QQ群，由群成员发到群里，或直接单独私发给指定人，或者选择使用电子邮箱发送，这无疑给收集整理工作带来了极大的麻烦，工作效率显得极其低下。现在我们要研究如何利用腾讯在线文档的优势来收集图片，将看起来繁杂的工作化繁为简，提高工作效率。该问题的核心和难点在于，如何将在线文档里的图片导出来，且恢复提交时的图片原始尺寸大小、将每个图片文件以提交者姓名命名，这是笔者通过VBA程序将要解决的重要问题。

笔者以四川建筑职业技术学院疫情期间复学前收集、整理每名学生的健康码截图和手写返校承诺书的拍照为案例，阐述运用腾讯文档与VBA编程来收集整理图片信息的具体实现。

首先，准备一张Excel表，预先把所需要收集信息的学生姓名作为第一列，形式如表1所示。

表1 学生信息统计

然后，把此表以腾讯在线分档、都有编辑权限的形式分享到QQ班级群或者微信群里，让群成员自己打开该Excel表，找到自己姓名所在行，然后在相应的单元格插入截图和拍照，里面截图大小无谓，但不要挨着四周边框就行。这样，可随时打开该表查看，如还有一些成员没有插图，会一目了然，从而提醒这些成员，能起到督促加快工作进度的作用。

在全班都已完成插图后，可以将该Excel表在线文档导出到自己电脑某目录下，然后在该表上的菜单“开发工具”下面建立一个“宏”。

录制新宏、编辑宏是一系列组合在一起的VBA命令，以实现任务执行的自动化。运用宏可以使需要多个步骤才能完成的操作快速地完成，提高工作效率和办公自动化程度。Excel提供了两种创建宏的方法：宏录制器和Visual Basic编辑器。宏录制器可帮助用户快速创建宏：单击菜单栏的“工具”—“宏”—“录制宏”。弹出“录制宏”的对话框。在录制宏的对话框里输入需要录制的宏的名称、宏所保存的位置及对宏的内容所做的说明，然后单击“确定”，这时出现录制宏的工具栏，此时鼠标的指针变成了带有磁带的形状。在此状态下，试着为其中一个单元格任意填一个数字。将这一系列的操作过程录制下来形成一个宏，接着打开Visual Basic编辑器，会看到新宏VBA代码。通过录制的宏具有先天局限现性，主要表现为无判断或循环能力，不能智能化处理批量数据。为了达到我们想要的效果，需要对该宏过程进一步改造。把笔者编写的如下所附VBA代码复制到该宏代码块里，运行宏，执行效率非常高，会把这个表里的全部图片秒迁移到这个目录，各图片都是恢复了原始尺寸大小，且各个图片文件名是以该学生姓名命名的，这样，手机和整理图片信息工作完成了。附核心VBA代码如下：

Dim shy As Shape

For Each shp In Sheet1.Shapes

With shp

′插入表格里的图片文件的文件名是系统随机生成的，所以要以真实的姓名来重命名′

If shp.TopLeftCell.Column=2 then

.Name=Sheet1.Range("a"&shp.TopLeftCell.Row).Value&"-健康码.jpg"′以截图同行所在姓名列的内容值重命名截图文件′

Else

.Name=Sheet1.Range("a"&shp.TopLeftCell.Row).Value&"-承诺书.jpg"′以拍照图片同行所在姓名列的内容值姓名重命名拍照图片文件′

End if

.ScaleHeight1,msoCTrue′临时恢复插图的原始尺寸大小′

.ScaleWidth1,msoCTrue

′获取插图的原始尺寸大小值′

h=.Height

w=.Width

.Copy

With Sheet1.ChartObjects.Add(0,0,w,h).Chart

.Parent.Select

.Paste

.Export ThisWorkbook.Path&""&shp.Name′将插图导出到电脑盘上，且以提交者姓名来重命名′

.Parent.Delete

End With

End With

Next

3 结束语

腾讯在线文档一般用来收集非图片信息，借助其多人在线协同编辑的功能实现图片的收集和整理，具有重要的意义。笔者介绍了腾讯在线文档的特点和主要功能及VBA编程的特点，以在新冠肺炎疫情期间的实际工作案例进行探索研究，给出了比较完整的实现方式方法，利用腾讯在线文档，让用户自己在线插入图片，随时可以查看表格，从而可以督促未提交插入图片的群成员，最后将表格文档Excel导出到电脑盘上，在Excel工作簿中通过执行VBA编程建立的宏，将表格里的所有微缩的图片，恢复成用户提交前的原始尺寸大小，并且以提交者的姓名命名。总之，利用本文阐述的方式方法，可以大大减少图片信息收集和整理的工作量，提高我们的工作效率。