運(yùn)用騰訊文檔與VBA實(shí)現(xiàn)圖片信息的收集整理

徐文昭

(四川建筑職業(yè)技術(shù)學(xué)院，四川 德陽(yáng) 618000)

信息化時(shí)代已經(jīng)到來(lái)，互聯(lián)網(wǎng)走進(jìn)了我們的工作和生活。社會(huì)各個(gè)領(lǐng)域的數(shù)據(jù)匯聚到網(wǎng)絡(luò)中來(lái)，網(wǎng)絡(luò)數(shù)據(jù)時(shí)時(shí)刻刻呈現(xiàn)爆炸性增長(zhǎng)，使我們生活在數(shù)據(jù)的汪洋大海中，大數(shù)據(jù)時(shí)代已然到來(lái)。置身于這個(gè)大數(shù)據(jù)時(shí)代，機(jī)關(guān)和企事業(yè)單位也在制造產(chǎn)生信息數(shù)據(jù)，比如很多時(shí)候，單位內(nèi)部需要收集整理和上報(bào)內(nèi)部人員狀態(tài)信息數(shù)據(jù)。特別是現(xiàn)在和今后相當(dāng)長(zhǎng)的一個(gè)時(shí)期，世界處于疫情常態(tài)化時(shí)代，單位內(nèi)部人員通過(guò)非常流行的QQ群或微信群提交信息數(shù)據(jù)，給信息數(shù)據(jù)收集工作帶來(lái)了極大的便利。但是，我們也應(yīng)該看到，許多單位面臨著如何方便、高效率地收集和整理內(nèi)部人員提交圖片信息的問(wèn)題。據(jù)了解，許多機(jī)關(guān)和企事業(yè)單位一般做法是要求其內(nèi)部人員通過(guò)在群里上傳圖片或者向指定工作人員私發(fā)圖片，然后下載收集，再整理。這樣做有兩個(gè)明顯缺陷：①收集人不得不對(duì)一個(gè)個(gè)圖片進(jìn)行下載，毫無(wú)疑問(wèn)，這樣做工作量大且煩瑣；②用戶發(fā)圖片時(shí)都沒(méi)把圖片文件名改為自己的姓名，當(dāng)然很多時(shí)候是手機(jī)上不方便圖片文件重命名，導(dǎo)致下載收集后只能先一個(gè)一個(gè)打開(kāi)查看，然后再將圖片文件重命名為相應(yīng)的人員姓名，這樣，極大地降低了工作效率。筆者就此問(wèn)題，研究提出了使用騰訊文檔，然后運(yùn)用Excel自帶的VBA編程方法建立和運(yùn)行宏，讓收集和整理圖片信息工作變得更方便、更高效。

1 騰訊在線文檔和VBA概述

1.1 騰訊在線文檔

騰訊在線文檔是一款可多人同時(shí)編輯的在線文檔，支持在線Word/Excel/PPT/PDF/收集表多種類(lèi)型。可以在電腦端(PC客戶端、騰訊文檔網(wǎng)頁(yè)版)、移動(dòng)端(騰訊文檔App、騰訊文檔微信/QQ小程序)、iPad等多類(lèi)型設(shè)備上隨時(shí)隨地查看和修改文檔。打開(kāi)網(wǎng)頁(yè)就能查看和編輯，云端實(shí)時(shí)保存，權(quán)限安全可控。騰訊文檔無(wú)須注冊(cè)，QQ、微信一鍵登錄，可跨平臺(tái)使用。支持導(dǎo)入導(dǎo)出Office文件，無(wú)縫兼容。擁有一鍵翻譯、實(shí)時(shí)股票函數(shù)、語(yǔ)音輸入轉(zhuǎn)文字、圖片OCR文字提取、表格智能分裂、查看歷史修訂記錄等特色功能，支持本地文檔導(dǎo)入、在線文檔導(dǎo)出為本地文件，并提供信息收集、打卡簽到、考勤、在線辦公、在線教育、簡(jiǎn)歷等免費(fèi)模板。

騰訊在線文檔具有的主要功能有：①在線編輯。快捷編輯：支持多人隨時(shí)隨地在線編輯；實(shí)時(shí)保存：編輯文檔時(shí)內(nèi)容實(shí)時(shí)云端保存，離線也可編輯，網(wǎng)絡(luò)恢復(fù)后自動(dòng)同步云端；多種模板：包括信息收集、打卡簽到、考勤、會(huì)議紀(jì)要、日?qǐng)?bào)、項(xiàng)目管理等各類(lèi)模板。②快捷登錄QQ/TIM/微信。支持QQ/TIM/微信直接登錄，無(wú)須單獨(dú)注冊(cè)；文檔信息同步，QQ/TIM內(nèi)查看過(guò)的在線文檔信息，自動(dòng)實(shí)時(shí)同步至騰訊文檔。③多人協(xié)作。多人編輯：支持多人同時(shí)在線編輯，可查看編輯記錄；多端同步：多類(lèi)型設(shè)備皆可順暢訪問(wèn)，隨時(shí)隨地輕松使用；文檔分享：可生成鏈接或長(zhǎng)圖，分享給QQ/TIM/微信好友、微博及朋友圈，方便快捷。④數(shù)據(jù)安全。權(quán)限控制：可自主設(shè)置查看及編輯權(quán)限，文檔安全盡在掌控；技術(shù)保障：云端存儲(chǔ)加密技術(shù)為文檔安全保駕護(hù)航；版權(quán)保護(hù)：文檔支持設(shè)置和展示水印，版權(quán)有保障；二次密碼：若已設(shè)置二次密碼，當(dāng)賬號(hào)重新登錄時(shí)，需要二次密碼驗(yàn)證。

1.2 VBA

VBA是Visual Basic for Applications的簡(jiǎn)稱，是Windows應(yīng)用程序的通用控制語(yǔ)言，能實(shí)現(xiàn)辦公自動(dòng)化，它不需要另外專門(mén)安裝集成開(kāi)發(fā)環(huán)境軟件，而是嵌入Excel等軟件中，用于定制和擴(kuò)展Excel等軟件的功能，是Visual Basic的子集，不僅具有強(qiáng)大的數(shù)據(jù)計(jì)算和分析能力，也為用戶提供了完備的二次開(kāi)發(fā)能力，VBA可以直接應(yīng)用Office套裝軟件的各項(xiàng)強(qiáng)大功能，對(duì)于程序設(shè)計(jì)人員的程序設(shè)計(jì)和開(kāi)發(fā)更加方便快捷。

2 運(yùn)用騰訊文檔與VBA收集圖片信息的具體實(shí)現(xiàn)

一般來(lái)說(shuō)，利用在線文檔收集非圖片信息的情況非常普遍，而要收集圖片信息一般想到的做法是利用微信群或QQ群，由群成員發(fā)到群里，或直接單獨(dú)私發(fā)給指定人，或者選擇使用電子郵箱發(fā)送，這無(wú)疑給收集整理工作帶來(lái)了極大的麻煩，工作效率顯得極其低下。現(xiàn)在我們要研究如何利用騰訊在線文檔的優(yōu)勢(shì)來(lái)收集圖片，將看起來(lái)繁雜的工作化繁為簡(jiǎn)，提高工作效率。該問(wèn)題的核心和難點(diǎn)在于，如何將在線文檔里的圖片導(dǎo)出來(lái)，且恢復(fù)提交時(shí)的圖片原始尺寸大小、將每個(gè)圖片文件以提交者姓名命名，這是筆者通過(guò)VBA程序?qū)⒁鉀Q的重要問(wèn)題。

筆者以四川建筑職業(yè)技術(shù)學(xué)院疫情期間復(fù)學(xué)前收集、整理每名學(xué)生的健康碼截圖和手寫(xiě)返校承諾書(shū)的拍照為案例，闡述運(yùn)用騰訊文檔與VBA編程來(lái)收集整理圖片信息的具體實(shí)現(xiàn)。

首先，準(zhǔn)備一張Excel表，預(yù)先把所需要收集信息的學(xué)生姓名作為第一列，形式如表1所示。

表1 學(xué)生信息統(tǒng)計(jì)

然后，把此表以騰訊在線分檔、都有編輯權(quán)限的形式分享到QQ班級(jí)群或者微信群里，讓群成員自己打開(kāi)該Excel表，找到自己姓名所在行，然后在相應(yīng)的單元格插入截圖和拍照，里面截圖大小無(wú)謂，但不要挨著四周邊框就行。這樣，可隨時(shí)打開(kāi)該表查看，如還有一些成員沒(méi)有插圖，會(huì)一目了然，從而提醒這些成員，能起到督促加快工作進(jìn)度的作用。

在全班都已完成插圖后，可以將該Excel表在線文檔導(dǎo)出到自己電腦某目錄下，然后在該表上的菜單“開(kāi)發(fā)工具”下面建立一個(gè)“宏”。

錄制新宏、編輯宏是一系列組合在一起的VBA命令，以實(shí)現(xiàn)任務(wù)執(zhí)行的自動(dòng)化。運(yùn)用宏可以使需要多個(gè)步驟才能完成的操作快速地完成，提高工作效率和辦公自動(dòng)化程度。Excel提供了兩種創(chuàng)建宏的方法：宏錄制器和Visual Basic編輯器。宏錄制器可幫助用戶快速創(chuàng)建宏：?jiǎn)螕舨藛螜诘摹肮ぞ摺薄昂辍薄颁浿坪辍薄棾觥颁浿坪辍钡膶?duì)話框。在錄制宏的對(duì)話框里輸入需要錄制的宏的名稱、宏所保存的位置及對(duì)宏的內(nèi)容所做的說(shuō)明，然后單擊“確定”，這時(shí)出現(xiàn)錄制宏的工具欄，此時(shí)鼠標(biāo)的指針變成了帶有磁帶的形狀。在此狀態(tài)下，試著為其中一個(gè)單元格任意填一個(gè)數(shù)字。將這一系列的操作過(guò)程錄制下來(lái)形成一個(gè)宏，接著打開(kāi)Visual Basic編輯器，會(huì)看到新宏VBA代碼。通過(guò)錄制的宏具有先天局限現(xiàn)性，主要表現(xiàn)為無(wú)判斷或循環(huán)能力，不能智能化處理批量數(shù)據(jù)。為了達(dá)到我們想要的效果，需要對(duì)該宏過(guò)程進(jìn)一步改造。把筆者編寫(xiě)的如下所附VBA代碼復(fù)制到該宏代碼塊里，運(yùn)行宏，執(zhí)行效率非常高，會(huì)把這個(gè)表里的全部圖片秒遷移到這個(gè)目錄，各圖片都是恢復(fù)了原始尺寸大小，且各個(gè)圖片文件名是以該學(xué)生姓名命名的，這樣，手機(jī)和整理圖片信息工作完成了。附核心VBA代碼如下：

Dim shy As Shape

For Each shp In Sheet1.Shapes

With shp

′插入表格里的圖片文件的文件名是系統(tǒng)隨機(jī)生成的，所以要以真實(shí)的姓名來(lái)重命名′

If shp.TopLeftCell.Column=2 then

.Name=Sheet1.Range("a"&shp.TopLeftCell.Row).Value&"-健康碼.jpg"′以截圖同行所在姓名列的內(nèi)容值重命名截圖文件′

Else

.Name=Sheet1.Range("a"&shp.TopLeftCell.Row).Value&"-承諾書(shū).jpg"′以拍照?qǐng)D片同行所在姓名列的內(nèi)容值姓名重命名拍照?qǐng)D片文件′

End if

.ScaleHeight1,msoCTrue′臨時(shí)恢復(fù)插圖的原始尺寸大小′

.ScaleWidth1,msoCTrue

′獲取插圖的原始尺寸大小值′

h=.Height

w=.Width

.Copy

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

.Parent.Select

.Paste

.Export ThisWorkbook.Path&""&shp.Name′將插圖導(dǎo)出到電腦盤(pán)上，且以提交者姓名來(lái)重命名′

.Parent.Delete

End With

End With

Next

3 結(jié)束語(yǔ)

騰訊在線文檔一般用來(lái)收集非圖片信息，借助其多人在線協(xié)同編輯的功能實(shí)現(xiàn)圖片的收集和整理，具有重要的意義。筆者介紹了騰訊在線文檔的特點(diǎn)和主要功能及VBA編程的特點(diǎn)，以在新冠肺炎疫情期間的實(shí)際工作案例進(jìn)行探索研究，給出了比較完整的實(shí)現(xiàn)方式方法，利用騰訊在線文檔，讓用戶自己在線插入圖片，隨時(shí)可以查看表格，從而可以督促未提交插入圖片的群成員，最后將表格文檔Excel導(dǎo)出到電腦盤(pán)上，在Excel工作簿中通過(guò)執(zhí)行VBA編程建立的宏，將表格里的所有微縮的圖片，恢復(fù)成用戶提交前的原始尺寸大小，并且以提交者的姓名命名。總之，利用本文闡述的方式方法，可以大大減少圖片信息收集和整理的工作量，提高我們的工作效率。