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

徐文昭

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

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

1 騰訊在線文檔和VBA概述

1.1 騰訊在線文檔

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

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

1.2 VBA

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

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

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

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

首先，準備一張Excel表，預先把所需要收集信息的學生姓名作為第一列，形式如表1所示。

表1 學生信息統(tǒng)計

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

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

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

Dim shy As Shape

For Each shp In Sheet1.Shapes

With shp

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

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&"-承諾書.jpg"′以拍照圖片同行所在姓名列的內(nèi)容值姓名重命名拍照圖片文件′

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 結(jié)束語

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