基于VB 編程的電費(fèi)賬務(wù)一鍵式生成憑證附件應(yīng)用

王東亮，楊曉薇，邢雪瑩

（國(guó)網(wǎng)青海省電力公司營(yíng)銷服務(wù)中心，青海 西寧 810001）

0 引言

根據(jù)國(guó)網(wǎng)公司加快落實(shí)“三型兩網(wǎng)”戰(zhàn)略目標(biāo)，構(gòu)建現(xiàn)代服務(wù)體系，提升資金管控水平工作部署，國(guó)網(wǎng)青海省電力公司營(yíng)銷服務(wù)中心（以下簡(jiǎn)稱“營(yíng)服中心”）搭建省級(jí)層面“電費(fèi)核算賬務(wù)業(yè)務(wù)實(shí)施中心”（以下簡(jiǎn)稱“電費(fèi)部”），集約資源，集中推行電費(fèi)核算、賬務(wù)記賬憑證“省級(jí)直收”工作，實(shí)現(xiàn)一體化集中高效運(yùn)轉(zhuǎn)。

省級(jí)賬務(wù)業(yè)務(wù)集約化后，由營(yíng)服中心電費(fèi)部統(tǒng)一負(fù)責(zé)制作憑證，并完成后繼審核、打印、蓋章、裝訂及存檔工作。由于電費(fèi)部人員少，采用傳統(tǒng)的憑證制作模式，占用業(yè)務(wù)人員大量工作時(shí)間，嚴(yán)重影響后續(xù)電費(fèi)核算、發(fā)行及對(duì)地市公司業(yè)務(wù)規(guī)范、指標(biāo)管控等重點(diǎn)工作，因此對(duì)憑證制作模式函需改善，增加智能化手段，提高工作效率。在營(yíng)服中心主管領(lǐng)導(dǎo)的支持下，電費(fèi)部主任已著手與軟件公司進(jìn)行項(xiàng)目開發(fā)合作事宜，目的是實(shí)現(xiàn)憑證業(yè)務(wù)全電子無(wú)紙化，徹底改變傳統(tǒng)憑證制作模式，該項(xiàng)目預(yù)計(jì)到2021年年底完成實(shí)用化。

1 電費(fèi)記賬憑證制作中存在的不足

1.1 電費(fèi)記賬憑證制作

營(yíng)銷系統(tǒng)中電費(fèi)賬務(wù)的基礎(chǔ)數(shù)據(jù)包括：通過(guò)周期（一般為一個(gè)月）采集用電客戶電能表示數(shù)結(jié)算發(fā)行的應(yīng)收電費(fèi)；用電客戶交納的用電費(fèi)用；用電客戶辦理各種用電業(yè)務(wù)交納的費(fèi)用等各項(xiàng)費(fèi)用。將各項(xiàng)費(fèi)用以財(cái)務(wù)會(huì)計(jì)口徑的“借”“貸”關(guān)系關(guān)聯(lián)起來(lái)，以一日為一個(gè)單位記賬周期，把當(dāng)日用電客戶產(chǎn)生的各項(xiàng)費(fèi)用按會(huì)計(jì)科目進(jìn)行分類記賬的過(guò)程就稱為憑證制作。依托現(xiàn)代計(jì)算機(jī)和網(wǎng)絡(luò)技術(shù)以及配套軟件系統(tǒng)，海量的基礎(chǔ)數(shù)據(jù)通過(guò)客戶端計(jì)算機(jī)完全實(shí)現(xiàn)了電費(fèi)記賬憑證自動(dòng)化制作。

1.2 電費(fèi)憑證附件制作

電費(fèi)賬務(wù)要求有憑證就要有憑證附件（以下簡(jiǎn)稱“附件”），附件就是前面提到的“各項(xiàng)費(fèi)用”的基礎(chǔ)數(shù)據(jù)，它是對(duì)憑證數(shù)據(jù)來(lái)源的說(shuō)明性、解釋性資料，附件中的數(shù)據(jù)有明細(xì)有合計(jì)，附件的合計(jì)金額與憑證的合計(jì)金額相等才是正確有效的電費(fèi)賬務(wù)資料。

1.3 憑證制作中存在的不足

傳統(tǒng)的憑證制作業(yè)務(wù)在電費(fèi)部集中開展伊始，前面提到的歷史遺留的問(wèn)題凸顯出來(lái)，部分憑證的附件文檔一直是從營(yíng)銷系統(tǒng)中導(dǎo)出源數(shù)據(jù)后，通過(guò)人工分類篩選數(shù)據(jù)、數(shù)據(jù)求和、表格排版，最后打印完成的。憑證及附件的數(shù)據(jù)基本上每天都會(huì)產(chǎn)生，因此，人工制作附件文檔這一工作環(huán)節(jié)又在傳統(tǒng)的憑證制作模式中占用了業(yè)務(wù)人員很大一部分的時(shí)間和精力。在實(shí)現(xiàn)憑證業(yè)務(wù)全電子無(wú)紙化的新模式前，如何減輕這一環(huán)節(jié)的工作量，仍然是一個(gè)有現(xiàn)實(shí)意義的考慮。

2 解決方案的可行性分析

2.1 使用計(jì)算機(jī)編程語(yǔ)言的可行性

人工制作附件的工作量如何減輕，最好的辦法就是實(shí)現(xiàn)附件數(shù)據(jù)的自動(dòng)化生成。在計(jì)算機(jī)中實(shí)現(xiàn)數(shù)據(jù)的自動(dòng)化處理，基本是通過(guò)計(jì)算機(jī)編程語(yǔ)言來(lái)實(shí)現(xiàn)。

前面說(shuō)到營(yíng)銷系統(tǒng)導(dǎo)出的數(shù)據(jù)是EXECL 格式的，對(duì)于EXECL 電子表格而言，它的數(shù)據(jù)就是由“行”“列”組成，具有二維屬性的數(shù)據(jù)結(jié)構(gòu)，這種數(shù)據(jù)結(jié)構(gòu)完全符合計(jì)算機(jī)數(shù)據(jù)庫(kù)的數(shù)據(jù)表定義，“行”就是記錄；“列”就是字段。因此，完全可以使用現(xiàn)在流行的編程語(yǔ)言實(shí)現(xiàn)對(duì)EXECL 文檔數(shù)據(jù)的自動(dòng)讀寫處理。

2.2 幾種常用計(jì)算機(jī)編程語(yǔ)言的對(duì)比

表1 中列舉了幾種常用的編程語(yǔ)言在本解決方案中的優(yōu)劣對(duì)比經(jīng)過(guò)比較，能夠確定VB 編程語(yǔ)言是最佳選擇。

表1 編程語(yǔ)言選擇

2.3 VB 編程語(yǔ)言如何訪問(wèn)EXECL 文檔

在VBA 編輯器中，把WPS 電子表格文件里的工作薄、工作表、單元格等統(tǒng)稱為“對(duì)象”，對(duì)象包括“事件”“屬性”“方法”等特性。通過(guò)引用對(duì)象的屬性和方法，就可以實(shí)現(xiàn)諸如保存、刪除、增加、查找、篩選、復(fù)制、粘貼、求和、設(shè)定字體、設(shè)定表格布局等功能。對(duì)象的事件是在打開、關(guān)閉、切換、激活對(duì)象等操作時(shí)觸發(fā)的對(duì)象接口程序，可以根據(jù)需要自行寫入代碼，當(dāng)操作對(duì)象時(shí)就可以自動(dòng)執(zhí)行某項(xiàng)功能。

3 確定編程方案

3.1 人工制作附件流程

部分附件的數(shù)據(jù)都存在于導(dǎo)出文檔“收費(fèi)員日收費(fèi)情況查詢表”中（圖1），該表有九列數(shù)據(jù)，全部打印會(huì)導(dǎo)致版面(A4 紙橫向顯示）內(nèi)容擁擠或者一頁(yè)顯示不全，人工操作時(shí)，各地市公司的做法不完全相同，有的保留全部列，有的會(huì)刪除幾列不重要數(shù)據(jù)，使打印頁(yè)面的內(nèi)容合理分布，一頁(yè)顯示完整。人工制作附件的流程如圖2（以源文檔為“收費(fèi)員日收費(fèi)情況查詢表”為例），源文檔數(shù)據(jù)的篩選分兩步，先以“結(jié)算方式”篩選，再以“收費(fèi)類型”篩選。

圖1 收費(fèi)員日收費(fèi)情況查詢表

圖2 人工制作附件流程圖

3.2 編程方案原理圖

以人工制作附件的流程為依據(jù)，結(jié)合編程規(guī)則，制訂如圖3 所示編程方案原理圖。

圖3 編程方案原理圖

3.3 編程方案分級(jí)

表2 為實(shí)現(xiàn)功能需求的分析表。

表2 功能需求分析表

根據(jù)功能需求分析制定功能設(shè)計(jì)流程圖（圖4），程序代碼的編寫就以圖4 為指導(dǎo)。

圖4 功能設(shè)計(jì)流程圖

4 程序運(yùn)行方式

4.1 設(shè)計(jì)通用程序界面

VBA 編程環(huán)境中，“窗體”“文本框”“下拉框”“按鈕”等做為編程“對(duì)象”，是比較方便用來(lái)設(shè)計(jì)程序運(yùn)行界面的。

圖5 是一個(gè)比較常見(jiàn)的程序運(yùn)行界面，若要完成附件的自動(dòng)生成，需要三個(gè)步驟：第一步通過(guò)“下拉框”選擇需要的源文檔；第二步點(diǎn)擊“導(dǎo)入”按鈕，將營(yíng)銷系統(tǒng)導(dǎo)出的源文檔打開；第三步點(diǎn)擊“生成”按鈕，自動(dòng)生成附件數(shù)據(jù)包括設(shè)置好打印布局，數(shù)據(jù)審核無(wú)誤后打印，就完成了附件制作?！傲泶妗卑粹o與WPS Office軟件菜單里的“另存”功能一致，起到一個(gè)提醒單獨(dú)保存的作用。相對(duì)于人工制作附件的工作流程，程序界面上的這些操作步驟還是不太便捷。

圖5 程序運(yùn)行界面

4.2 無(wú)運(yùn)行界面的程序設(shè)計(jì)

以“方便操作，達(dá)到實(shí)用為目的”的編程思路是程序開發(fā)的宗旨和方向。本文論述的中心思想，就是讓業(yè)務(wù)人員以最少的步驟、最簡(jiǎn)單的操作方式實(shí)現(xiàn)自動(dòng)生成附件的目的。即“一鍵式生成憑證附件”，沒(méi)有程序運(yùn)行界面（人機(jī)交互界面），不用選擇菜單、不用點(diǎn)擊按鈕。

4.3 程序設(shè)計(jì)方向選擇

通過(guò)以上對(duì)比，本案例的程序確定了以代碼后臺(tái)運(yùn)行的方式編寫，業(yè)務(wù)人員只需要“雙擊”程序的文件名，或者說(shuō)打開程序文件，就可以一步到位實(shí)現(xiàn)自動(dòng)生成附件。

5 代碼編寫

人工制作的附件涵蓋了收款憑證、付款憑證、轉(zhuǎn)賬憑證、記賬憑證四類憑證的附件，共計(jì)需要導(dǎo)出四個(gè)源文檔，制作成8 個(gè)附件文檔。編寫代碼之初，以盡早將編寫的程序應(yīng)用到工作中為目標(biāo)，按照一個(gè)導(dǎo)出文檔對(duì)應(yīng)一個(gè)程序包的方式進(jìn)行代碼編寫、調(diào)試，先從簡(jiǎn)單的程序開始編寫，實(shí)際效果明顯，2021 年4 月底完成了一個(gè)程序包的應(yīng)用，并于6 月初將四個(gè)程序包全部普及應(yīng)用到了七個(gè)地市公司的人工附件制作業(yè)務(wù)中。計(jì)劃后期將四個(gè)程序包合并為一個(gè)程序。2021 年12 月底新增加了會(huì)計(jì)科目為“一次銷根”收款憑證的附件代碼。

5.1 自動(dòng)運(yùn)行代碼

通過(guò)雙擊打開程序文件后要讓其自動(dòng)運(yùn)行后面的功能代碼，這需要在EXECL 電子表格工作薄對(duì)象“WorkBook”的“OPEN”事件中插入“主程序”的調(diào)用語(yǔ)句[1]，代碼內(nèi)容見(jiàn)表3。

表3 WorkBook_Open（）程序代碼

5.2 主程序代碼

主程序代碼見(jiàn)表4。上面展示的主程序代碼，能夠?qū)崿F(xiàn)自動(dòng)判斷打開了哪幾個(gè)源文檔，然后依次完成對(duì)應(yīng)附件的自動(dòng)化制作。源文檔和程序文件的打開順序沒(méi)有硬性規(guī)定，但有邏輯關(guān)系，只有先打開源文檔，再打開程序文件，才能自動(dòng)實(shí)現(xiàn)“一鍵生成附件”。若先打開程序文件，會(huì)有人性化的窗口提示內(nèi)容“請(qǐng)先打開任意一個(gè)從營(yíng)銷系統(tǒng)中導(dǎo)出的源文檔”，確認(rèn)提示內(nèi)容后，程序文件會(huì)自動(dòng)關(guān)閉。

表4 Main（）程序代碼

5.3 子程序“日收費(fèi)情況”代碼

表5 是“日收費(fèi)情況”代碼。

表5 收費(fèi)情況（）子程序代碼

5.4 子函數(shù)“數(shù)據(jù)處理”代碼

表6 是子函數(shù)“數(shù)據(jù)處理”代碼。

表6 數(shù)據(jù)處理（）子函數(shù)代碼

6 程序運(yùn)行效果檢查

6.1 目標(biāo)檢查

表7 是測(cè)試結(jié)果

表7 測(cè)試結(jié)果

表7 中的測(cè)試時(shí)間為：所有源文檔已打開，從打開程序文件開始到全部附件文檔生成。

圖6 是表格生成后的打印預(yù)覽圖，頁(yè)面左邊留白，為裝訂預(yù)留。

圖6 打印預(yù)覽圖

6.2 生成附件的時(shí)間測(cè)試方法和展示

為準(zhǔn)確測(cè)試生成附件的時(shí)間，在程序中增加了文檔保存代碼，文件“屬性”中的“創(chuàng)建時(shí)間”與“修改時(shí)間”，其差值能準(zhǔn)確的反映生成附件的時(shí)間，測(cè)試結(jié)果零誤差，能精確到秒級(jí)。

圖7 為生成附件文檔時(shí)間展示圖，由源文檔“收費(fèi)員日收費(fèi)情況查詢表”生成的四個(gè)附件文檔，在文件夾中鼠標(biāo)右擊文件名查看文件“屬性”。由圖中可以看出，生成四個(gè)文檔的時(shí)間總計(jì)不到1 s。這個(gè)也可以理解，畢竟是電腦運(yùn)算。

圖7 生成附件文檔時(shí)間展示圖

6.3 程序與人工對(duì)比表8 是對(duì)比結(jié)果1 的內(nèi)容。

表8 對(duì)比結(jié)果1

表8 中的測(cè)試時(shí)間為：所有源文檔已打開，從打開程序文件開始到全部附件文檔生成。

表9 是對(duì)比結(jié)果2 的內(nèi)容。

表9 對(duì)比結(jié)果2

表9 中的測(cè)試時(shí)間為：在營(yíng)銷系統(tǒng)導(dǎo)出所有源文檔并打開，再到生成全部附件文檔的時(shí)間。測(cè)試時(shí)間的軟件使用的是常用的電腦錄屏工具，因手工操作錄屏工具，會(huì)有大概1～2 s 的誤差。

6.4 程序應(yīng)用的效益分析

6.4.1 工作效率分析

通過(guò)上面測(cè)試時(shí)間的對(duì)比，可以看到使用程序生成附件的時(shí)間比人工制作時(shí)間提高了4 倍多，憑證審核工作效率大幅提升，人工制作附件的工作量大幅減輕。同時(shí)，該程序的普及使用也是對(duì)營(yíng)銷系統(tǒng)現(xiàn)有的業(yè)務(wù)功能的末端補(bǔ)充。

6.4.2 工作質(zhì)量分析

程序自動(dòng)生成的附件，消除了人工操作可能帶來(lái)的數(shù)據(jù)差錯(cuò)；由人工排版而造成打印頁(yè)面樣式的差別，也因此而避免。從數(shù)據(jù)準(zhǔn)確性和打印頁(yè)面規(guī)范性兩個(gè)方面提高了工作質(zhì)量。

6.4.3 材料成本分析

若不習(xí)慣使用打印預(yù)覽功能，那么當(dāng)人工排版的文檔頁(yè)面不規(guī)范不合理時(shí)，就會(huì)造成多打紙張或打廢紙張，而由程序自動(dòng)排版生成的附件頁(yè)面能夠杜絕打廢紙張，提高紙張的利用率。

7 程序運(yùn)行環(huán)境

本程序?yàn)閱螜C(jī)版，運(yùn)行于個(gè)人電腦中，操作系統(tǒng)為Windows10，電腦需要安裝有WPS Office 2019 版及其以下版本。程序文件的后綴名是“xlsm”，亦稱為“宏文件”，程序正常運(yùn)行需要在WPS Office 軟件中設(shè)置為受信任的“宏文件”，也可以在運(yùn)行程序時(shí)，在彈出的警告窗口點(diǎn)擊“啟用宏”按鈕。

8 結(jié)論

“一鍵式生成憑證附件”應(yīng)用程序把“營(yíng)銷系統(tǒng)”電費(fèi)賬務(wù)憑證附件制作最末端的功能給補(bǔ)齊了，實(shí)用性很強(qiáng)。用這種編程方法（思路）解決其它辦公數(shù)據(jù)的（臨時(shí)或階段性）統(tǒng)計(jì)、分類分析等繁瑣費(fèi)時(shí)的操作也很有效。