某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

1、大連理工大學(xué)城市學(xué)院 本科生畢業(yè)設(shè)計(jì)（論文）院（系）：管理學(xué)院專 業(yè)：信息管理與信息系統(tǒng)學(xué) 生：楊晨昕指導(dǎo)教師：畢建濤完成日期：2016年6月1日大連理工大學(xué)城市學(xué)院本科生畢業(yè)設(shè)計(jì)（論文） 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)總計(jì) 畢業(yè)設(shè)計(jì)（論文） 45 頁表格 5 表插圖 20 幅摘 要隨著信息技術(shù)的發(fā)展，辦公自動(dòng)化領(lǐng)域也在悄然發(fā)展，融入到我們的生活和工作中。當(dāng)然，新的技術(shù)也在隨著經(jīng)濟(jì)和業(yè)務(wù)的拓展日新月異的發(fā)展，與其同步前行，掌握辦公自動(dòng)化技術(shù)已然成為進(jìn)行社會(huì)工作的必備知識(shí)和技能，同時(shí)在各行各業(yè)中辦公自動(dòng)化也正在逐步替代原有的辦公方式，使得無紙化辦公成為可能。Excel作為辦公自動(dòng)化軟件的代表，簡

2、潔的界面，多重的功能，方便的操作使得它成為目前使用比較廣泛的辦公軟件。但是目前看來，大多數(shù)Excel使用者，對(duì)Excel的使用大部分處于使用公式，數(shù)據(jù)透視表這類的典型基本功能。而若想其能實(shí)現(xiàn)辦公自動(dòng)化，就需要靠代碼和其他輔助工具。ExcelVBA正好是這樣的角色。ExcelVBA作為集成在Excel中的工具，雖然其不能自主開發(fā)辦公自動(dòng)化程序，但它能通過VBA代碼在后臺(tái)實(shí)現(xiàn)自動(dòng)進(jìn)行表格的操作。而ExcelVBA又是在VB語言的基礎(chǔ)上形成的，語法結(jié)構(gòu)與VBA相似。語法結(jié)構(gòu)的相同，又使得VBA很容易被理解，它不像VB語言繁瑣，稍微懂得編程語言的人很容易上手。同樣，對(duì)編程不懂的人，從業(yè)務(wù)角度也能編制E

3、xcelVBA辦公自動(dòng)化小工具，只需要后天進(jìn)行學(xué)習(xí)即可。當(dāng)然，辦公自動(dòng)化也少不了數(shù)據(jù)庫的存在，在財(cái)務(wù)中業(yè)務(wù)的復(fù)雜繁多，一個(gè)業(yè)務(wù)可能會(huì)有好多的財(cái)務(wù)數(shù)據(jù)要進(jìn)行處理和整合。數(shù)據(jù)庫能否建立的得當(dāng)也很重要。本系統(tǒng)，首先在用戶體驗(yàn)中能夠很輕松方便的處理財(cái)務(wù)的事務(wù)，開發(fā)過程也較簡單，實(shí)踐度也高，能夠在財(cái)務(wù)辦公中得到很有力的幫助，提高了工作的效率，也能節(jié)省了企業(yè)成本。非常適合一些小企業(yè)或者業(yè)務(wù)數(shù)量比較中等的企業(yè)進(jìn)行日常的數(shù)據(jù)處理，減少了重復(fù)工作的時(shí)間和精力。關(guān)鍵詞：辦公自動(dòng)化；Excel；ExcelVBA；數(shù)據(jù)庫；財(cái)務(wù)AbstractWith the development of information te

4、chnology, office automation is also quietly developing, into our life and work. Of course, the new technology is also with the expansion of the economy and the rapid development of business, in synchronization with the front row, master office automation technology has become the essential knowledge

5、 and skills in social work, as well as office automation in all walks of life are being gradually replace the old way of office, making paperless office possible. .Excel as a representative office automation software, simple interface, multiple functions, ease of operation make it become more widely

6、 used office software. But now it seems the majority of Excel users, most of the use of Excel formulas in use, the basic functions of a typical kind of PivotTables. And if you want it to achieve office automation, we need to rely on the code and other aids. ExcelVBA is just such a role.ExcelVBA as a

7、n integrated tool in Excel, although it can not be developed office automation program, but it can achieve automatic table in the background through VBA code. And ExcelVBA is based on VB language on the form, structure and syntax similar to VBA. The same grammatical structure, but also makes VBA eas

8、ily understood, it is not complicated VB language, know a little programming language, it is very easy to use. Similarly, people who do not understand the program, from a business point of view can be prepared ExcelVBA office automation gadget, you only need to learn to be acquired.Of course, office

9、 automation and ultimately the existence of the database, complex financial services in many, a business may have a lot of financial data to be processed and integration. The possibility of establishing a database properly is also important.This system, first in the user experience can be very easy

10、and convenient to handle financial affairs, the development process is relatively simple, practical degree is high, can be very effective help in the financial office, and improve work efficiency, but also saves business costs. Ideal for small businesses or business relatively moderate amount of rou

11、tine business data processing, reducing the duplication of work time and effort.Key Words：Office Automation；Excel；ExcelVBA；Database；Financial affairs目 錄1 引言11.1 系統(tǒng)開發(fā)背景11.2 論文的內(nèi)容結(jié)構(gòu)12 關(guān)鍵技術(shù)介紹32.1 Visial Basic32.2 Excel宏42.3 ExcelVBA53 系統(tǒng)分析73.1 需求分析73.2 可行性分析83.2.1技術(shù)可行性83.2.2經(jīng)濟(jì)可行性93.2.3管理可行性93.3 業(yè)務(wù)流程分析1

12、03.4 數(shù)據(jù)流程分析113.4.1 數(shù)據(jù)流程圖123.5 系統(tǒng)功能分析134 系統(tǒng)設(shè)計(jì)164.1系統(tǒng)結(jié)構(gòu)設(shè)計(jì)164.2 數(shù)據(jù)庫設(shè)計(jì)174.2.1 概念設(shè)計(jì)184.2.2 邏輯設(shè)計(jì)224.2.3 物理設(shè)計(jì)225 系統(tǒng)實(shí)施265.1主操作界面設(shè)計(jì)265.2清空結(jié)果表DoradoReport以及結(jié)果表數(shù)據(jù)：275.3生成SAP模板并匯總金額：275.4生成最后導(dǎo)出的模板315.5添加對(duì)照表檢查科目項(xiàng)目入工作表396 結(jié) 論41參 考 文 獻(xiàn)43致 謝451 引言辦公自動(dòng)化作為一個(gè)與計(jì)算機(jī)孕育而生的事物，隨著大數(shù)據(jù)時(shí)代的到來越來越突顯出它的重要性與強(qiáng)大的存在價(jià)值。這個(gè)時(shí)代最不缺的就是數(shù)據(jù)，但如何處理

13、，如何提高處理數(shù)據(jù)的效率是我們亟待解決的問題。企業(yè)首當(dāng)其沖，擁有數(shù)據(jù)卻不能合理快速的處理，效率的低下會(huì)導(dǎo)致企業(yè)無法在經(jīng)濟(jì)全球化的浪潮上處于領(lǐng)先。辦公自動(dòng)化的到來會(huì)很大程度上解決這個(gè)問題。1.1 系統(tǒng)開發(fā)背景面對(duì)信息化浪潮帶來的沖擊，企業(yè)信息化的趨勢(shì)正在席卷全球，辦公自動(dòng)化的發(fā)展成為企業(yè)信息化建設(shè)的任務(wù)之一，也成為社會(huì)各個(gè)行業(yè)普遍面對(duì)的問題，掌握計(jì)算機(jī)知識(shí)，利用計(jì)算機(jī)軟件實(shí)現(xiàn)辦公自動(dòng)化，已經(jīng)成為當(dāng)代從業(yè)人員的必備條件。隨著計(jì)算機(jī)和因特網(wǎng)的普及，辦公自動(dòng)化已經(jīng)成為政府部門、各類企業(yè)和科研單位的必備工具。1對(duì)于企業(yè)用戶來說，辦公自動(dòng)化是一個(gè)好幫手，是企業(yè)的“管家”。但是，其實(shí)很多企業(yè)用戶并不是真正的

14、了解辦公自動(dòng)化系統(tǒng)，亦或是了解得不夠全面，更有一些小微企業(yè)用戶甚至不知道辦公自動(dòng)化系統(tǒng)到底是做什么的，有什么功能和作用，而事實(shí)上辦公自動(dòng)化確實(shí)對(duì)于企業(yè)管理來說是一個(gè)很大的幫手。2因此，推廣并使用辦公自動(dòng)化工具是很有必要的。1.2 論文的內(nèi)容結(jié)構(gòu)在本文中，首要介紹了當(dāng)下社會(huì)信息化建設(shè)的現(xiàn)狀下，辦公自動(dòng)化的現(xiàn)狀和發(fā)展的重要性。本文共分為八章，具體內(nèi)容安排如下：第一章：引言，介紹本課題的應(yīng)用背景以及論文的大致結(jié)構(gòu)。第二章：對(duì)所做的辦公自動(dòng)化系統(tǒng)應(yīng)用的關(guān)鍵技術(shù)進(jìn)行介紹。第三章：對(duì)辦公自動(dòng)化系統(tǒng)從需求上、可行性上、業(yè)務(wù)流程上、數(shù)據(jù)流程上以及系統(tǒng)功能流程上進(jìn)行分析與論證。第四章：財(cái)務(wù)辦公自動(dòng)化系統(tǒng)的系統(tǒng)結(jié)

15、構(gòu)和數(shù)據(jù)庫設(shè)計(jì)。第五章：財(cái)務(wù)辦公自動(dòng)化系統(tǒng)的各個(gè)模塊截圖和代碼功能介紹。第六章：結(jié)論，對(duì)該財(cái)務(wù)辦公自動(dòng)化系統(tǒng)進(jìn)行分析與總結(jié)。第七章：本篇論文中所引用到的文獻(xiàn)資料。第八章：致謝，對(duì)在本次畢業(yè)論文中指導(dǎo)幫助我的指導(dǎo)老師和同學(xué)表示感謝。2 關(guān)鍵技術(shù)介紹2.1 Visial BasicVisial Basic是在原有的Basic語言基礎(chǔ)上發(fā)展而來的，Visual指的是開發(fā)圖像用戶界面對(duì)的方法，Basic指的是廣為流行的BASIC計(jì)算機(jī)語言。VB具有簡單易學(xué)的特性，只要稍有計(jì)算機(jī)語言基礎(chǔ)就可以很快掌握它。可視化的編程環(huán)境的“所見即所得”功能，是界面設(shè)計(jì)如同積木游戲一樣，從而使編程成為一種享受。強(qiáng)大的多媒

16、體功能可以輕而易舉的開發(fā)出多媒體應(yīng)用程序。當(dāng)然在網(wǎng)絡(luò)功能中也提供了快捷別寫Internet程序的能力。3VB能快速發(fā)展，有著以下特點(diǎn)：1面向?qū)ο骎B采用了面向?qū)ο笤O(shè)計(jì)思想，它基本思路是把復(fù)雜設(shè)計(jì)問題分解為個(gè)個(gè)能夠完成獨(dú)立功能相對(duì)簡單對(duì)象集合。所謂“對(duì)象”就是個(gè)可操作實(shí)體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等面向?qū)ο缶幊叹秃孟翊罘e木樣員可根據(jù)和界面設(shè)計(jì)要求直接在屏幕上“畫出窗口、菜單、按鈕等區(qū)別類型對(duì)象并為每個(gè)對(duì)象設(shè)置屬性。2事件驅(qū)動(dòng)在Windows環(huán)境下是以事件驅(qū)動(dòng)方式運(yùn)行每個(gè)對(duì)象的都能響應(yīng)多個(gè)區(qū)別事件，每個(gè)事件都能驅(qū)動(dòng)段代碼事件過程該代碼決定了對(duì)象功能通常稱這種機(jī)制為事件驅(qū)動(dòng)事件可由用戶操作

17、觸發(fā)也可以由系統(tǒng)或應(yīng)用觸發(fā)例如單擊個(gè)命令按鈕就觸發(fā)了按鈕Click(單擊)事件該事件中代碼就會(huì)被執(zhí)行若用戶未進(jìn)行任何操作(未觸發(fā)事件)則就處于等待狀態(tài)整個(gè)應(yīng)用就是由彼此獨(dú)立事件過程構(gòu)成。3軟件Software集成式開發(fā)VB為編程提供了個(gè)集成開發(fā)環(huán)境在這個(gè)環(huán)境中編程者可設(shè)計(jì)界面、編寫代碼、調(diào)試直至把應(yīng)用編譯成可在Windows中運(yùn)行可執(zhí)行文件并為它生成安裝VB集成開發(fā)環(huán)境為編程者提供了很大方便。4結(jié)構(gòu)化設(shè)計(jì)語言VB具有豐富數(shù)據(jù)類型是種符合結(jié)構(gòu)化設(shè)計(jì)思想語言而且簡單易學(xué)此外作為種設(shè)計(jì)語言VB還有許多獨(dú)到之處。5強(qiáng)大數(shù)據(jù)庫訪問功能。VB利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)庫VB6.0提供ADO

18、Control控件不但可以用最少代碼實(shí)現(xiàn)數(shù)據(jù)庫操作和控制也可以取代DataControl控件和RDOControl控件。46多個(gè)應(yīng)用向?qū)B提供了多種向?qū)鐟?yīng)用向?qū)?、安裝向?qū)А?shù)據(jù)對(duì)象向?qū)Ш蛿?shù)據(jù)窗體向?qū)ㄟ^它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用 7聯(lián)機(jī)幫助功能。在VB中利用幫助菜單和F1功能鍵用戶可隨時(shí)方便地得到所需要幫助信息VB幫助窗口中顯示了有關(guān)舉例代碼通過復(fù)制、粘貼操作可獲取大量舉例代碼為用戶學(xué)習(xí)和使用提供方便。2.2 Excel宏宏是Excel能夠執(zhí)行的一系列VBA語句，他是一個(gè)指令集，可以使Excel自動(dòng)完成用戶指定的各項(xiàng)動(dòng)作組合，而且宏的錄制和使用方法相對(duì)而言也比較簡單。錄制宏命

19、令時(shí)，Excel會(huì)自動(dòng)將已錄制的命令組合重復(fù)執(zhí)行一次或者回放，從而實(shí)現(xiàn)重復(fù)操作的自動(dòng)化。也就是說，宏命令本身就是一種VBA應(yīng)用程序，它是儲(chǔ)存VBA模塊中的一系列命令和函數(shù)的集合。當(dāng)知心宏命令所對(duì)應(yīng)的任務(wù)組合時(shí)，Excel會(huì)自動(dòng)啟動(dòng)該VBA程序模塊中的應(yīng)用程序。當(dāng)一個(gè)宏錄制了用戶想要進(jìn)行的全部操作，而應(yīng)用程序再次執(zhí)行這個(gè)宏時(shí)，它將以準(zhǔn)確的順序執(zhí)行用戶上次執(zhí)行的全部操作。如果宏記錄中有一個(gè)嚴(yán)重的錯(cuò)誤，那么改正這個(gè)錯(cuò)我的唯一辦法是重新錄制這個(gè)宏。可是在重新錄制這個(gè)宏的過程中有一個(gè)嚴(yán)重的錯(cuò)誤，那么改正這個(gè)錯(cuò)誤的唯一辦法就是重新錄制這個(gè)宏?？墒窃谥匦落浿七@個(gè)宏的過程中又有可能引發(fā)新的錯(cuò)誤，這會(huì)給用戶帶來

20、很大麻煩。為了避免這種麻煩，軟件開發(fā)者在宏記錄器中增加了編輯宏的功能，方便用戶改正錯(cuò)誤或進(jìn)行其他變動(dòng)而無需重新錄制宏。宏的執(zhí)行效果可以通過運(yùn)行宏命令來實(shí)現(xiàn)，宏命令的運(yùn)行過程比錄制宏簡單的多。宏是一些代碼，用來簡化重復(fù)的工作。正因?yàn)楹甑倪@種特性，使得曾經(jīng)一些惡意的軟件編程人員研發(fā)出了極具破壞性的宏病毒。為了安全性考慮，Excel內(nèi)置了安全性機(jī)制，機(jī)智是不允許啟用宏的。也就是說，如果有一些宏是一啟動(dòng)就執(zhí)行的話，Excel是不允許的，而且是一些防病毒也會(huì)對(duì)帶有宏的Excel文件進(jìn)行檢查。當(dāng)Excel逐步發(fā)展過程中，Excel從2010版后對(duì)宏的安全性相較于之前的Excel版本有了進(jìn)一步的提高，當(dāng)錄制

21、好宏之后，如果將宏保存在當(dāng)前的工作簿，并且以普通的xlsx格式保存時(shí)，Excel會(huì)提示無法保存宏的對(duì)話框，為此Excel提供了啟用宏的工作簿格式xlsm格式來保存帶有宏的工作簿，使得與不帶有宏的工作簿進(jìn)行明顯的區(qū)分。52.3 ExcelVBAVB的全稱是Visual Basic，是一門重要的開發(fā)的語言。微軟開發(fā)目的是簡化過去人們?cè)谑褂肅+開發(fā)標(biāo)準(zhǔn)Win32應(yīng)用程序的復(fù)雜性而出現(xiàn)的，它的開發(fā)方式以及內(nèi)置的Win32空間庫使得應(yīng)用程序開發(fā)人員能夠非?？斓拈_發(fā)獨(dú)立可執(zhí)行的應(yīng)用程序，或其他一些程序庫。VBA與VB盡管一字之差，但兩者是截然不同的的開發(fā)工具，但又有相同之處。VBA的全稱是Visual B

22、asic Application，是VB的子集。與VB相比，VBA輕便的多。同樣的，VBA的語言是Visual Basic，但它使用的僅是VB中的一個(gè)子集，具有與VB類似的語法。然而，VBA并不是可以開發(fā)獨(dú)立可執(zhí)行應(yīng)用程序的，VBA開發(fā)的程序是寄生于其他已有的程序（如Word、Excel等程序）的內(nèi)部。也就是說，要想使VBA程序得以運(yùn)行，必須先打開Word、Excel等程序。簡單來說，雖然VBA不能自主開發(fā)應(yīng)用程序，但它在辦公自動(dòng)化中有很多特點(diǎn)和功能：1. 可以是重復(fù)性的工作自動(dòng)化，減輕工作負(fù)擔(dān)；2. 可以進(jìn)行復(fù)雜的數(shù)據(jù)操作分析；3. 通過Data Access Objects（DAO）和Ac

23、tiveX Data Object（ADO），能夠?qū)⑼獠繑?shù)據(jù)庫中的數(shù)據(jù)與Excel集成；4. 能夠定制Excel的外觀，如菜單、工具條等；5. 可以動(dòng)態(tài)創(chuàng)建工作簿，動(dòng)態(tài)地改變單元格外觀等定制工作，創(chuàng)建自定義函數(shù)來簡化公式和計(jì)算；6. 支持自動(dòng)化功能，自動(dòng)化功能可以使得通過VBA能控制其他支持自動(dòng)化的程序，如在Word中顯示Excel統(tǒng)計(jì)報(bào)表。63 系統(tǒng)分析系統(tǒng)分析主要包括需求分析、可行性分析、業(yè)務(wù)流程分析、數(shù)據(jù)流程分析、功能分析。3.1 需求分析隨著計(jì)算機(jī)的發(fā)展，無紙化辦公已成為一個(gè)趨勢(shì)。而要實(shí)現(xiàn)無紙化辦公，最重要的莫屬于要實(shí)現(xiàn)辦公自動(dòng)化了。財(cái)務(wù)與數(shù)字、人有關(guān)，但是如果達(dá)到一定的數(shù)量，憑紙質(zhì)表

24、格已經(jīng)無法勝任，若為其購置一套相關(guān)的ERP設(shè)備又顯得太小題大做。Excel表格是目前運(yùn)用范圍最廣的辦公自動(dòng)化軟件，能錄入數(shù)據(jù)和處理數(shù)據(jù)，一定程度上方便了工作，但繁瑣的打字錄入多次點(diǎn)擊處理又覺得太多麻煩，重復(fù)性操作太多，故而ExcelVBA這個(gè)技術(shù)可以通過編碼的形式，在后臺(tái)操控Excel表格，把一些繁瑣的步驟模塊化、功能化。這就運(yùn)用到了OA（Office Automation）系統(tǒng)管理。7例如在可口可樂共享服務(wù)中心中，有個(gè)Infoshare組負(fù)責(zé)可口可樂的ExcelVBA的OA系統(tǒng)開發(fā)和維護(hù)。不光可樂，其他生產(chǎn)管理企業(yè)基本都認(rèn)為企業(yè)OA辦公管理系統(tǒng)在運(yùn)行和使用中，作為系統(tǒng)或者公司管理平臺(tái)，能否真

25、正滿足了企業(yè)的管理，是非常重要的。而每個(gè)企業(yè)所需要的OA辦公管理系統(tǒng)都是不同的，因?yàn)橄到y(tǒng)是根據(jù)企業(yè)內(nèi)部的管理需求而開發(fā)的，所以具有獨(dú)特性。8在這樣的開發(fā)需求背景下，可口可樂共享服務(wù)中心運(yùn)用的OA辦公管理系統(tǒng)是利用ExcelVBA技術(shù)進(jìn)行開發(fā)維護(hù)的。因?yàn)槭褂肙A工具的人們，不一定懂得編程，而Excel作為一個(gè)強(qiáng)大的辦公軟件，使用面廣，易操作，而且后臺(tái)可控，這些就使得使用者與開發(fā)人員進(jìn)行能近一步的溝通，將企業(yè)的相關(guān)需求嵌入到OA工具中。因此，能讓OA辦公管理系統(tǒng)的建設(shè)定位在這個(gè)層面上,才能使企業(yè)辦公變得更加高效。如圖3.1所示：圖3.1 魚骨圖3.2 可行性分析可行性分析，就是系統(tǒng)分析階段的一個(gè)重

26、要環(huán)節(jié)，需要在這個(gè)環(huán)節(jié)中明確所做系統(tǒng)或項(xiàng)目的開發(fā)必要性和可行性。開發(fā)的項(xiàng)目是否迫切，是否有足夠的資源和條件。本章節(jié)將主要從技術(shù)可行性、經(jīng)濟(jì)可行性和管理可行性三方面進(jìn)行分析。3.2.1技術(shù)可行性技術(shù)可行性是指從項(xiàng)目實(shí)施的技術(shù)角度，對(duì)項(xiàng)目的設(shè)計(jì)技術(shù)是否合理，并進(jìn)行評(píng)估。本系統(tǒng)只要依托Excel軟件，通過VBA進(jìn)行后臺(tái)開發(fā)，因?yàn)閂BA代碼的自身優(yōu)勢(shì)和特點(diǎn)，模塊化的代碼很使開發(fā)人員以及之后的維護(hù)人員可以很容易的根據(jù)代碼對(duì)功能實(shí)現(xiàn)升級(jí)或刪除，亦可在原有基礎(chǔ)上增加新的模塊功能；前臺(tái)來說，因?yàn)镋xcel自身控件，可將后臺(tái)模塊化的代碼被指定在自己身上，實(shí)際使用Excel辦公自動(dòng)化工具的人，可以根據(jù)提示點(diǎn)擊控件

27、，完成自己對(duì)表格的處理。甚至操作人員不懂得后臺(tái)VBA亦可對(duì)Excel辦公自動(dòng)化小工具進(jìn)行使用。所以從技術(shù)可行性上來講，本系統(tǒng)開發(fā)是滿足要求的。3.2.2經(jīng)濟(jì)可行性經(jīng)濟(jì)可行性方面針對(duì)企業(yè)我們肯定更多的會(huì)考慮成本的問題。企業(yè)若想實(shí)現(xiàn)辦公自動(dòng)化，固然是好事，方便業(yè)務(wù)的同時(shí)也能減少人力成本。但小企業(yè)斥資購進(jìn)一套大型的辦公自動(dòng)化系統(tǒng)，可謂是不太明智。而用ExcelVBA進(jìn)行開發(fā)，真的是物美價(jià)廉。無需投入過多的資金支持，頂多購買一套正版的Office辦公軟件，幾臺(tái)性能不錯(cuò)的PC機(jī)即可。加上VBA語法結(jié)構(gòu)較為簡單，懂得VB的開發(fā)人員無需學(xué)習(xí)，知道需求后即可進(jìn)行開發(fā)，若無基礎(chǔ)仍可自學(xué)數(shù)周，即可基本達(dá)到開發(fā)要求

28、。綜上所述，運(yùn)用ExcelVBA開發(fā)成本低、質(zhì)量好，且在中小企業(yè)可運(yùn)用，在大型企業(yè)的一些業(yè)務(wù)中亦可勝任。所以從經(jīng)濟(jì)可行性方面看，該辦公自動(dòng)化符合要求。3.2.3管理可行性管理可行性是在管理功能的基礎(chǔ)上將其細(xì)化，使得每個(gè)部分可控可管理。以ExcelVBA為基礎(chǔ)的辦公自動(dòng)化小工具，最大的優(yōu)點(diǎn)就是模塊化，后臺(tái)代碼根據(jù)功能被分為好多模塊，通過前臺(tái)界面的控件調(diào)用，易于管理維護(hù)。被選的控件可以根據(jù)需求被指定為其他的模塊代碼，可重復(fù)利用高，編碼人員的管理也方便。同時(shí)，前臺(tái)使用人員對(duì)照Excel的前臺(tái)界面 對(duì)于業(yè)務(wù)熟悉的他們可以根據(jù)業(yè)務(wù)點(diǎn)擊相應(yīng)的控件，完成自己想要辦公自動(dòng)化工具實(shí)現(xiàn)的功能，也方便使用人員的管理

29、。根據(jù)上述，該辦公自動(dòng)化工具在管理可行性上也是很好的。 以此可以得出，從技術(shù)、經(jīng)濟(jì)、管理上三方面來講，本系統(tǒng)的開發(fā)都是可行的。3.3 業(yè)務(wù)流程分析所謂業(yè)務(wù)流程分析是以管理信息系統(tǒng)（MIS）的基本目標(biāo)，識(shí)別與MIS相關(guān)的各主要管理業(yè)務(wù)。從信息流的觀點(diǎn)，弄清各業(yè)務(wù)的發(fā)生(事件)、執(zhí)行(過程)與結(jié)果(數(shù)據(jù))，并最后生成業(yè)務(wù)流程圖。在業(yè)務(wù)流程圖中，重中之重是要標(biāo)出與該業(yè)務(wù)相關(guān)的報(bào)表、單據(jù)的來源、去向與應(yīng)用。業(yè)務(wù)流程圖的圖形符號(hào)如圖3.2所示。圖3.2 業(yè)務(wù)流程圖的表示符號(hào)本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)是為某飲料廠的業(yè)務(wù)服務(wù)的：首先，各地方廠商根據(jù)總部要求繪制符合本辦公自動(dòng)化軟件處理的兩張標(biāo)準(zhǔn)化Excel表格，一

30、張為SAP表，一張為明細(xì)表。之后，兩張表進(jìn)入制成的ExcelVBA小工具中，系統(tǒng)會(huì)根據(jù)代碼自動(dòng)把兩個(gè)表中的有效內(nèi)容整合，生成一張結(jié)果表。緊接著，生成的結(jié)果表根據(jù)總部需求對(duì)其進(jìn)行差異化的處理，形成不同的表格，最后生成的結(jié)果表為最終結(jié)果，將交給總部人員。由總部人員交由管理層進(jìn)行審批并報(bào)告。上述業(yè)務(wù)描述的業(yè)務(wù)流程如圖3.3所示。圖3.3 某財(cái)務(wù)辦公自動(dòng)化軟件的業(yè)務(wù)流程圖3.4 數(shù)據(jù)流程分析數(shù)據(jù)流程分析就是把數(shù)據(jù)在系統(tǒng)中的流向過程抽象出來，不考慮系統(tǒng)本身是否有缺陷，專門考慮業(yè)務(wù)中對(duì)于數(shù)據(jù)的處理是否得當(dāng)，從而發(fā)現(xiàn)解決數(shù)據(jù)處理中的毛病。數(shù)據(jù)流程分析包括對(duì)數(shù)據(jù)的手機(jī)、傳遞、處理和儲(chǔ)存的分析。數(shù)據(jù)流程分析一般

31、會(huì)用到以下描述工具Data Flow Diagram(DFD圖)、數(shù)據(jù)字典、判斷樹、判斷表等。3.4.1 數(shù)據(jù)流程圖數(shù)據(jù)流程圖的符號(hào)如圖3.4所示。圖3.4 數(shù)據(jù)流程圖的符號(hào)某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)數(shù)據(jù)流程圖如圖3.5所示。圖3.5 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)數(shù)據(jù)流程圖3.5 系統(tǒng)功能分析本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)總體上分為兩個(gè)模塊，前臺(tái)使用模塊和后臺(tái)代碼模塊。1、該財(cái)務(wù)辦公自動(dòng)化系統(tǒng)前臺(tái)共分為八大功能模塊，根據(jù)整體業(yè)務(wù)流程自下而上，具體功能如圖3.6所示：圖3.6 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)前臺(tái)模塊功能樹功能樹前臺(tái)使用模塊功能介紹：清空操作和數(shù)據(jù)表：這個(gè)是為了本次業(yè)務(wù)的準(zhǔn)確度而設(shè)計(jì)，以防上次使用后沒有完全清空表，

32、導(dǎo)致本次操作的漏洞；分割模塊所需元素：由于操作前會(huì)導(dǎo)入兩個(gè)處理表格，而最后需要的數(shù)據(jù)可能只是一些，所以要對(duì)導(dǎo)入的兩個(gè)表格進(jìn)行分割，在分割好的基礎(chǔ)下再進(jìn)行操作；生成SAP表匯總金額：對(duì)表的操作，統(tǒng)計(jì)表中的金額：檢查清單和下載模版金額：將處理后的表格與模板進(jìn)行對(duì)比，整理對(duì)比形成同一張表格顯示；輸出模板：把經(jīng)過操作后的模板生成對(duì)應(yīng)的格式，并初步生產(chǎn)結(jié)果表；將新模板導(dǎo)入新下載模板中：把結(jié)果表導(dǎo)入處理，為之后操作進(jìn)行鋪墊；個(gè)性要求：對(duì)不同的廠子的表進(jìn)行提取或者修飾；添加會(huì)計(jì)科目等項(xiàng)目：由于此表最后需要交由會(huì)計(jì)部處理、審批，需要根據(jù)會(huì)計(jì)要求，添加相應(yīng)會(huì)計(jì)科目，為會(huì)計(jì)業(yè)務(wù)處理打下基礎(chǔ)。2、該財(cái)務(wù)辦公自動(dòng)化系

33、統(tǒng)后臺(tái)模塊共分為五個(gè)基本處理功能模塊，根據(jù)不同的流程進(jìn)行調(diào)用，并發(fā)揮其功能。具體如圖3.7所示：圖3.7 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)后臺(tái)模塊功能樹后臺(tái)功能模塊介紹：查找最小值：通過冒泡排序的方法查找最小值，并通過次把金額合計(jì)排序好；輸出模板：對(duì)處理完成和整合完成的表格生成對(duì)照表數(shù)據(jù)：對(duì)于模板中出現(xiàn)的個(gè)人或單位，會(huì)在Excel中有一個(gè)對(duì)照表顯示，該部分是把對(duì)照表信息對(duì)應(yīng)在模板中的值替換；檢查金額：對(duì)模板處理后的數(shù)據(jù)進(jìn)行核對(duì)，保證準(zhǔn)確度；添加其他相關(guān)內(nèi)容：由于分屬不同的廠，總廠對(duì)于分廠數(shù)據(jù)的提取有特殊性，所以該功能下集成了很多小模塊，對(duì)于不同需求有不同的解決方案，添加相關(guān)需要的內(nèi)容。4 系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)

34、主要考慮的是為實(shí)現(xiàn)某一個(gè)系統(tǒng)或子系統(tǒng)，應(yīng)該設(shè)計(jì)幾個(gè)功能模塊。系統(tǒng)設(shè)計(jì)主要是圍繞系統(tǒng)結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫設(shè)計(jì)、數(shù)據(jù)與信息的代碼設(shè)計(jì)、輸入輸出設(shè)計(jì)和軟硬件配置等內(nèi)容來進(jìn)行的。在設(shè)計(jì)過程中，除了要有相應(yīng)的設(shè)計(jì)原則外，還要采用正確的方法。如何從若干方案中選擇一個(gè)盡可能好的，是決策問題。評(píng)價(jià)一個(gè)系統(tǒng)設(shè)計(jì)是否好也是標(biāo)準(zhǔn)可言的：運(yùn)行效率、可靠性、可修改性、靈活性、通用性和實(shí)用性。期中前三項(xiàng)是很必要的評(píng)價(jià)標(biāo)準(zhǔn)。91、運(yùn)行效率：一個(gè)系統(tǒng)的可用資源畢竟有限，設(shè)法提高資源的使用效率是系統(tǒng)設(shè)計(jì)的重要任務(wù)。評(píng)價(jià)系統(tǒng)運(yùn)行效率可以從處理能力、運(yùn)行時(shí)間、響應(yīng)時(shí)間3個(gè)方面來進(jìn)行。2、可靠性：系統(tǒng)的可靠性包括軟件硬件的可靠性，一般可

35、以從以下幾個(gè)方面來考慮：文件存取限制，主要為安全性和完整性的問題，什么人可以訪問，什么人不可以；建立運(yùn)行日志和信息追蹤，由于一些特殊業(yè)務(wù)的需要，管理層可能需要系統(tǒng)每天提供處理那些任務(wù)的報(bào)告，如何處理的。為了這些，需要建立運(yùn)行日志，每用本系統(tǒng)進(jìn)行過處理，就將該事物記錄。4.1系統(tǒng)結(jié)構(gòu)設(shè)計(jì)該財(cái)務(wù)自動(dòng)化系統(tǒng)的總體結(jié)構(gòu)已經(jīng)屬于一個(gè)管理信息系統(tǒng)(MIS)。對(duì)本系統(tǒng)進(jìn)行設(shè)計(jì)時(shí)，要給這系統(tǒng)進(jìn)行個(gè)總體的架構(gòu)搭建，下圖為某財(cái)務(wù)自動(dòng)化系統(tǒng)的系統(tǒng)結(jié)構(gòu)圖，如圖4.1所示：圖4.1某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)結(jié)構(gòu)圖4.2 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫通俗的講，就是存放數(shù)據(jù)的“倉庫”，而且數(shù)據(jù)是按一定的格式存放的。概念化的講，數(shù)據(jù)庫(Dat

36、aBase,DB)是長期存儲(chǔ)在計(jì)算機(jī)內(nèi)的、有組織的、可共享的數(shù)據(jù)集合。數(shù)據(jù)庫中的數(shù)據(jù)按一定的數(shù)據(jù)模型組織、描述和儲(chǔ)存，具有最小的冗余度、較高的數(shù)據(jù)獨(dú)立性和易擴(kuò)展性，并可為各種用戶共享。數(shù)據(jù)庫不孤立，是數(shù)據(jù)庫系統(tǒng)的組成部分。數(shù)據(jù)庫是一個(gè)軟件尤其是一個(gè)辦公自動(dòng)化系統(tǒng)的生命，數(shù)據(jù)庫設(shè)計(jì)階段，能否對(duì)表內(nèi)的數(shù)據(jù)表與表之間形成優(yōu)質(zhì)的連接，對(duì)日后的查詢排序有著很重要的前置作用。對(duì)于數(shù)據(jù)庫開發(fā)人員來說，數(shù)據(jù)庫設(shè)計(jì)就是對(duì)一個(gè)給定的實(shí)際應(yīng)用環(huán)境，如何利用數(shù)據(jù)庫正確的反應(yīng)軟件現(xiàn)實(shí)能滿足的情況，而且還能滿足使用這的各種應(yīng)用需求是數(shù)據(jù)庫設(shè)計(jì)的關(guān)鍵之一。10類似于軟件工程中軟件生命周期的概念，一般把數(shù)據(jù)庫應(yīng)用系統(tǒng)從開始規(guī)

37、劃、分析、設(shè)計(jì)、實(shí)施、投入運(yùn)行后的維護(hù)直到消亡成為數(shù)據(jù)庫系統(tǒng)的生命期。數(shù)據(jù)庫設(shè)計(jì)階段處于實(shí)施前的關(guān)節(jié)階段。為何數(shù)據(jù)庫設(shè)計(jì)處于如此關(guān)鍵的節(jié)點(diǎn)呢？主要還是和它自身的特點(diǎn)有關(guān)：首先，具有反復(fù)性。數(shù)據(jù)庫設(shè)計(jì)不是一朝一夕就可以完成的，需要反復(fù)推倒修改后才能完成。前段設(shè)計(jì)是基礎(chǔ)，后階段的設(shè)計(jì)會(huì)反應(yīng)前階段的部分，看似毫無聯(lián)系，實(shí)則關(guān)系密切。其次，試探性。數(shù)據(jù)庫設(shè)計(jì)結(jié)果并不唯一，設(shè)計(jì)過程中往往是試探的過程。有各式各樣的要求和制約元素，它們往往勢(shì)不兩立。數(shù)據(jù)庫設(shè)計(jì)很難達(dá)到最完美的效果，只能在原有的基礎(chǔ)上不斷的進(jìn)行優(yōu)化處理，使其處理能力能夠達(dá)到接受的范疇即可。再之，多部性。數(shù)據(jù)庫設(shè)計(jì)往往交給一人來完成的話不容易發(fā)

38、現(xiàn)細(xì)微的問題，常常是多人完成，這樣既能保證質(zhì)量和進(jìn)度，又能分段把關(guān)。最后，面向數(shù)據(jù)。數(shù)據(jù)庫最終還是為數(shù)據(jù)服務(wù)，如何以數(shù)據(jù)的格式為主情況下，建立優(yōu)化的數(shù)據(jù)庫，是目標(biāo)所在。11數(shù)據(jù)庫設(shè)計(jì)階段包括概念設(shè)計(jì)、邏輯設(shè)計(jì)和物理設(shè)計(jì)三方面，本文接下來將從這三方面詳細(xì)介紹。4.2.1 概念設(shè)計(jì)概念設(shè)計(jì)就是把分析上述需求分析的結(jié)果，抽象為概念模型表示的過程，是完整而全面的設(shè)計(jì)過程。一般利用E-R圖來實(shí)現(xiàn)。主要步驟實(shí)現(xiàn)設(shè)計(jì)局部功能的E-R圖；將局部E-R圖整合，形成全局E-R圖；對(duì)全局E-R圖進(jìn)行優(yōu)化，主要是對(duì)冗余屬性進(jìn)行剔除或者修改。最后得到以E-R圖為顯示的數(shù)據(jù)庫概念結(jié)構(gòu)圖。E-R圖的好處是在物理設(shè)計(jì)階段前，

39、能夠給直觀的給設(shè)計(jì)人員看到數(shù)據(jù)庫的模型結(jié)構(gòu)，以便后來的系統(tǒng)集成數(shù)據(jù)庫后的集成度會(huì)大大有保障。數(shù)據(jù)庫的概念設(shè)計(jì)E-R圖圖例表示，如圖4.2所示圖4.2 ER圖圖例1、清單實(shí)體屬性圖，如圖4.3所示：圖4.3.清單實(shí)體屬性圖2、新下載模板實(shí)體屬性圖，如圖4.4所示圖4.4.清單實(shí)體屬性圖3、DoradoReport實(shí)體屬性圖，如圖4.5所示圖4.5.清單實(shí)體屬性圖4、結(jié)果實(shí)體屬性圖，如圖4.6所示圖4.6.清單實(shí)體屬性圖5、添加檢查實(shí)體屬性圖，如圖4.7所示圖4.7.清單實(shí)體屬性圖6、某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)E-R圖總圖，如圖4.8所示圖4.8. 財(cái)務(wù)辦公自動(dòng)化系統(tǒng)E-R圖總圖4.2.2 邏輯設(shè)計(jì)正經(jīng)

40、來說，E-R圖和關(guān)系模型都是抽象的。而若想被數(shù)據(jù)庫所接受，就必須要信息化。也就是說，把E-R圖模型轉(zhuǎn)化為關(guān)系數(shù)據(jù)庫的關(guān)系模型，也就是通常說的邏輯設(shè)計(jì)。最常見的要數(shù)實(shí)體集映射為關(guān)系表的方法了：實(shí)體集的每個(gè)屬性成為關(guān)系的一個(gè)屬性。應(yīng)當(dāng)注意的是，需要知道每個(gè)屬性的域和主碼。下面就為根據(jù)剛才的概念設(shè)計(jì)出的E-R圖轉(zhuǎn)化為的關(guān)系模型：清單(報(bào)銷單號(hào)*，姓名，金額)新下載模板(報(bào)銷單號(hào)*，成本中心編碼*，總賬科目*，部門，職位，姓名，費(fèi)用類型，費(fèi)用子類型，月份，詳細(xì)備注，金額，分?jǐn)偝杀揪幋a*，分?jǐn)偙壤?，分?jǐn)偨痤~，審批完成時(shí)間)DoradoReport(報(bào)銷編號(hào)*,總賬科目*,部門,職位,姓名,月份,費(fèi)用類型

41、,詳細(xì)備注,金額)結(jié)果(總賬科目*,成本中心編碼*,金額,詳細(xì)情況,報(bào)銷單號(hào)*)添加檢查(總賬科目*,科目詳情)4.2.3 物理設(shè)計(jì)數(shù)據(jù)庫物理設(shè)計(jì)階段就是設(shè)計(jì)數(shù)據(jù)庫各字段內(nèi)部結(jié)構(gòu)，根據(jù)邏輯設(shè)計(jì)階段選取適合的儲(chǔ)存結(jié)構(gòu)和存取方式。數(shù)據(jù)庫物理設(shè)計(jì)相對(duì)于邏輯設(shè)計(jì)來說是后半段，一般來講，數(shù)據(jù)庫物理設(shè)計(jì)的第一步是確定數(shù)據(jù)庫的物流結(jié)構(gòu)，然后是對(duì)實(shí)施空間和時(shí)間的效率的評(píng)價(jià)。12Excel單元格中可以包括數(shù)據(jù)類型有數(shù)值、日期時(shí)間、文本、邏輯值和錯(cuò)誤值，期中邏輯值和錯(cuò)誤值通常是公式產(chǎn)生的，其他幾種類型則需要輸入，或者通過ExcelVBA實(shí)現(xiàn)辦公自動(dòng)化完成填充。13本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)共分為5個(gè)表，集成在一個(gè)工作簿

42、中，相關(guān)字段數(shù)據(jù)類型如下表所示：1、清單信息表如表4.1所示：表4.1清單信息表字段名稱類型長度小數(shù)位數(shù)允許空字段說明序號(hào)數(shù)值4無是自動(dòng)生成的序號(hào)報(bào)銷單號(hào)文本9無否規(guī)定單號(hào)姓名文本16無是人名金額數(shù)值102是報(bào)銷金額2、結(jié)果信息表如表4.2所示：表4.2結(jié)果信息表字段名稱類型長度小數(shù)位數(shù)允許空字段說明總賬科目數(shù)值9無否對(duì)應(yīng)的會(huì)計(jì)科目成本中心編碼數(shù)值無否規(guī)定編碼金額數(shù)值102是報(bào)銷金額詳細(xì)情況文本100無是大致消費(fèi)情況（包括時(shí)間 類別）報(bào)銷編號(hào)文本9無否規(guī)定單號(hào)3、添加檢查信息表如表4.3所示：表4.3添加檢查信息表表字段名稱類型長度小數(shù)位數(shù)允許空字段說明總賬科目數(shù)值9無否對(duì)應(yīng)的會(huì)計(jì)科目號(hào)科目詳

43、情文本20無是對(duì)應(yīng)的會(huì)計(jì)科目名稱4、DoradoReport信息表如表4.4所示：表4.4DoradoReport信息表字段名稱類型長度小數(shù)位數(shù)允許空字段說明報(bào)銷單號(hào)文本9無否規(guī)定單號(hào)總賬科目數(shù)值9無否對(duì)應(yīng)的會(huì)計(jì)科目號(hào)職位文本15無是報(bào)銷者的職位部門文本7無是報(bào)銷者的部門姓名文本16無是人名月份日期4無是發(fā)生月份費(fèi)用類型文本10無是報(bào)銷費(fèi)用所屬類型詳細(xì)備注文本100無是報(bào)銷事件大概描述金額數(shù)值102是報(bào)銷金額5、新下載模板信息表如表4.5所示：表4.5新下載模板信息表字段名稱類型長度小數(shù)位數(shù)允許空字段說明報(bào)銷單號(hào)文本9無否規(guī)定單號(hào)成本中心編碼數(shù)值無否規(guī)定編碼總賬科目數(shù)值9無否對(duì)應(yīng)的會(huì)計(jì)科目號(hào)職

44、位文本15無是報(bào)銷者的職位部門文本7無是報(bào)銷者的部門姓名文本16無是人名費(fèi)用類型文本10無是報(bào)銷費(fèi)用所屬類型費(fèi)用子類型文本10無是報(bào)銷費(fèi)用所屬詳細(xì)類型月份日期4無是發(fā)生月份詳細(xì)備注文本100無是報(bào)銷事件大概描述金額數(shù)值102是報(bào)銷金額分?jǐn)偝杀揪幋a數(shù)值10無否單號(hào)編碼分?jǐn)偙壤龜?shù)值4百分比是自己分?jǐn)偙壤謹(jǐn)偨痤~數(shù)值102是自己分?jǐn)偨痤~審批完成時(shí)間日期YYYY-mm-dd無是報(bào)銷審批時(shí)間5 系統(tǒng)實(shí)施系統(tǒng)實(shí)施階段是開發(fā)一個(gè)系統(tǒng)的最后一個(gè)階段。本階段的任務(wù)是實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)階段和系統(tǒng)分析階段提出的方案，按照方案來最后實(shí)現(xiàn)一個(gè)可運(yùn)行的信息系統(tǒng)。14而辦公自動(dòng)化系統(tǒng)的實(shí)施是一項(xiàng)復(fù)雜的系統(tǒng)工程。其中涉及到的因素很

45、多，我們?cè)谥袝?huì)感覺到開發(fā)一個(gè)系統(tǒng)不是那么容易的，但要將一個(gè)開發(fā)好的應(yīng)用軟件投入實(shí)際應(yīng)用會(huì)更難。155.1主操作界面設(shè)計(jì)本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)界面上做到了直觀，控件名稱也是操作名稱，能給使用者做到明顯直觀的使用體驗(yàn)。本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)界面設(shè)計(jì)如圖5.1所示：圖5.1某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)界面圖前臺(tái)界面基于Excel空間和表格的修飾完成，每個(gè)按鈕控件可被指定為不同的ExcelVBA代碼，同一控件可根據(jù)不同的操作，選取不同的功能，系統(tǒng)會(huì)自動(dòng)調(diào)用代碼。具體更替如圖5.2所示：圖5.2控件功能更替5.2清空結(jié)果表DoradoReport以及結(jié)果表數(shù)據(jù)：為了保證數(shù)據(jù)結(jié)果的準(zhǔn)確性，在不確定上次操作時(shí)，操作員是

46、否對(duì)表格數(shù)據(jù)進(jìn)行清空，因此設(shè)立此控件。使用時(shí)，點(diǎn)擊即可，也不用復(fù)查表格，增加工作時(shí)間。相關(guān)代碼如下：Sub we2()Dim a As Integera = Sheet1.UsedRange.Rows.CountSheet1.UsedRange.ClearSheets(結(jié)果).UsedRange.Clear /清空結(jié)果表Sheets(清單).UsedRange.Clear/清空清單表Sheets(上導(dǎo)模板).UsedRange.Clear/清空上導(dǎo)模版表Sheets(新下載模板).UsedRange.Clear/清空新下載模板表Sheets(結(jié)果2).UsedRange.Clear/清空結(jié)果2

47、表End Sub5.3生成SAP模板并匯總金額：Sub 檢查金額()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As Integer/參數(shù)定義Dim e As IntegerDim SUM1 As DoubleDim SUM2 As DoubleDim sum3 As DoubleSUM1 = 0SUM2 = 0sum3 = 0a = Sheets(清單).Range(A65535).End(xlUp).Row /有效數(shù)據(jù)數(shù)b = Sheets(結(jié)果).Range(A65535).End(xlUp).Row/有效數(shù)據(jù)數(shù)a = Sh

48、eets(原始數(shù)據(jù)).UsedRange.Rows.Count/可執(zhí)行次數(shù)數(shù)b = Sheets(結(jié)果).UsedRange.Rows.Count/可執(zhí)行次數(shù)數(shù)For c = 2 To aSUM1 = Sheets(清單).Range(D & c) + SUM1/計(jì)算清單表每行的和If Sheets(清單).Range(D & c) = 0 ThenSheets(清單).Range(G & c) = 金額為0 /如果為0 顯示”金額為0”End IfNext-差異算法-For c = 2 To bSUM2 = Sheets(結(jié)果).Range(B & c) + SUM2 NextFor c =

49、 2 To aFor d = 2 To bIf Sheets(清單).Range(B & c) = Sheets(結(jié)果).Range(E & d) ThenIf Sheets(結(jié)果).Range(E & d) = Sheets(清單).Range(B & c) ThenDebug.Print Sheets(結(jié)果).Range(E & c)Sheets(清單).Range(E & c) = Sheets(結(jié)果).Range(B & d)Sheets(原始數(shù)據(jù)).Range(F & c) = Sheets(原始數(shù)據(jù)).Range(D & c) - Sheets(原始數(shù)據(jù)).Range(E & c)

50、GoTo SKIPElseEnd If NextSKIP: Sheets(清單).Range(F & c) = Sheets(清單).Range(D & c) - Sheets(清單).Range(E & c) Sheets(清單).Range(F & c) = Int(Sheets(清單).Range(F & c) * 10000 + 0.5) / 10000 Next Sheets(清單).Range(F & 1) = 差異Sheets(清單).Range(H & 1) = 清單總金額Sheets(清單).Range(H & 2) = SUM1Sheets(清單).Range(H & 5)

51、 = 模板總金額Sheets(清單).Range(H & 6) = SUM2-差異算法-For e = 2 To bSheets(清單).Range(J & e) = Sheets(結(jié)果).Range(E & e)Sheets(清單).Range(K & e) = Sheets(結(jié)果).Range(B & e)If Sheets(清單).Range(K & e) = 0 ThenSheets(清單).Range(M & e) = 金額為0End IfFor d = 2 To aIf Sheets(清單).Range(J & e) = Sheets(清單).Range(B & d) ThenSh

52、eets(清單).Range(L & e) = Sheets(清單).Range(K & e) - Sheets(清單).Range(D & d)Sheets(清單).Range(L & e) = Int(Sheets(清單).Range(L & e) * 10000 + 0.5) / 10000ElseEnd IfNextNextSheets(清單).Range(J & 1) = 模板金額明細(xì)Sheets(清單).Range(L & 1) = 差異End Sub最后形成截圖，如圖5.3所示：圖5.3生成的SAP模板運(yùn)行截圖5.4生成最后導(dǎo)出的模板代碼如下所示：Sub GX模板生成()Dim

53、a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim f As IntegerDim i As IntegerDim STRA As StringDim SUM1 As DoubleDim SUM2 As Doublea = Sheets(doradoreport).Range(A65535).End(xlUp).RowFor b = 2 To aSheets(doradoreport).Range(w & b) = Sheets(doradoreport).Range(f & b) & Sheets(doradoreport).Range(n & b)Sheets(doradoreport).Range(X & b) = Sheets(doradoreport).Range(f & b) & Sheets(doradoreport).Range(n & b) & Sheets(doradoreport).Range(D & b) _ & Sheets(do