使用VB實現(xiàn)Excel自動獲取外部數(shù)據(jù)
Excel表格生成和公式設置十分強大便利,是一個強有力的信息分析與處理工具。Visual Basic是一套可視化、面向?qū)ο�、事件�?qū)動方式的結構化高級程序設計語言,正成為高效率的Windows應用程序開發(fā)工具。由于微軟的努力,Visual Basic應用程序版可作為一種通用宏語言被所有微軟可編程應用軟件共享。
Excel面始之初帶有表格處理類軟件中功能最強的宏語言,通過單擊“工具”菜單中的“宏”,選擇宏名來調(diào)用宏過程。隨后發(fā)展至Visual Basic for Application專用版,可制作按鈕、復選框、單選鈕等控件,賦控件以宏名,單擊控件運行宏,事件驅(qū)動方式就Click(單擊)一種。新近推出的Office97套件中的Excel97,在“工具”菜單中選擇“宏”后,就會發(fā)現(xiàn)增加了“Visual Basic編輯器”功能。運用這個新增功能,就完全與Visual Basic編程無異了。在菜單欄上單擊鼠標右鍵,選擇彈出式菜單中的“控件工具箱”,在“控件工具箱”工具條上,單擊待添加的控件按鈕,在工作表中將控件拖曳到所需位置和大小,單擊鼠標右鍵選中“屬性”設置控件屬性后,雙擊控件就會出現(xiàn)Visual Basic編輯器。選擇該控件的一個事件如Click或Change,編寫程序。在工作表中操作該控件,如鼠標單擊、鍵入字符等,則觸發(fā)相應事件,執(zhí)行相應程序。
筆者在Excel97平臺,采用Visual Basic應用程序版開發(fā)了一套“通用報表分析系統(tǒng)”(界面如圖1)。該系統(tǒng)用于擁有眾多子公司的母公司的每月財務報表合并匯總。所有子公司的統(tǒng)計報表如資產(chǎn)負債表、損益表是由FoxBase編制的財務軟件生成的dbf文件,取名為ATV001xx.dbf----xx月份資產(chǎn)負債表,ATV002xx.dbf----xx月份損益表等。一個子公司的所有dbf文件放在一個單獨的目錄中,如C:\T\palm1,C:\T\palm2等。母公司每月份生成的匯總報表為TTTyymm.xls(yy----年份,mm----月份),它有“資產(chǎn)負債表”、“損益表”等若干工作表組成。每張工作表是由所有子公司相應的dbf文件的相應項目的數(shù)據(jù)相加而成。只要將dbf文件逐一轉(zhuǎn)化到TTTyymm.xls中去,很容易利用Excel的公式設置功能生成母公司的每張匯總報表。
這套系統(tǒng)的關鍵在于如何將所有dbf文件轉(zhuǎn)換到同一個Excel工作簿中。直接通過“文件”菜單中的“打開”項, 選擇文件類型為dBase文件(*.dbf), 可將dbf文件轉(zhuǎn)換到Excel工作簿中,但這工作簿只存轉(zhuǎn)換而來的一張工作表,其他表都自動關閉了。另外,通過“工具”菜單中的“向?qū)А�,選擇“文件轉(zhuǎn)換”后, 只是將一系列dbf文件轉(zhuǎn)換為一系列xls文件而已。于是采用建立ODBC數(shù)據(jù)源獲取外部數(shù)據(jù)的辦法, 將dbf文件逐一轉(zhuǎn)換到一個Excel工作簿內(nèi), 且用Visual Basic for Application將轉(zhuǎn)換過程自動化。只要按一下圖1中的“生成報表”按鈕, 就能完成所有dbf 文件的轉(zhuǎn)換, 且利用Excel公式自動計算功能完成所有報表的匯總計算。按“顯示報表”按鈕,選擇表名,可以瀏覽報表數(shù)據(jù)。
相關推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |