vb調(diào)用excel進行數(shù)據(jù)處理

VB應(yīng)用程序調(diào)用EXCEL進行數(shù)據(jù)處理摘要：從VB應(yīng)用程序內(nèi)部來程序化操縱Excel，利用EXCEL軟件中的宏程序（VBA）功能，結(jié)合VB程序語言來進行界面化程序編制，以達到利用VB調(diào)用EXCEL進行程序化數(shù)據(jù)處理的目的。關(guān)鍵詞：VB應(yīng)用程序；EXCEL對象模型；EXCEL宏程序（VBA）；VB調(diào)用EXCEL記錄和處理數(shù)據(jù)。引言VisualBasic簡稱(VB)是設(shè)計Windows應(yīng)用程序強有力的開發(fā)工具，“全球絕大多數(shù)Windows應(yīng)用程序都是用VB開發(fā)的”；相信大家對VBA也有所耳聞，只是很多朋友沒有使用過。VBA是VisualBasicforApplication的簡稱。大家知道VisualBasic是一種編程語言，而VBA就是在VisualBasic平臺中將MicrosoftOffice中的每個應(yīng)用程序都看成一個對象。每個應(yīng)用程序都由各自的Application對象代表。Excel是目前使用最廣泛的辦公應(yīng)用軟件之一，它具有強大的數(shù)學分析與計算功能，包括很多VB沒有的求值數(shù)學表達式的函數(shù)和方法。由于Excel的應(yīng)用程序?qū)ο笫峭獠靠蓜?chuàng)建的對象，所以就可以從VB應(yīng)用程序內(nèi)部來程序化操縱Excel。本文結(jié)合自己的實踐和體會，談?wù)勅绾卧赩B6.0應(yīng)用程序中調(diào)用Exce1，供大家參考。Excel對象模型為了在VB應(yīng)用程序中調(diào)用Excel，必須要了解Excel對象模型。Excel對象模型描述了Excel的理論結(jié)構(gòu)，所提供的對象很多，其中最重要的對象，即涉及VB調(diào)用Excel最可能用到的對象有：二、調(diào)用Excel在VB應(yīng)用程序中調(diào)用Excel，實質(zhì)是將Excel作為一個外部對象來引用，由Excel對象模型提供能從VB應(yīng)用程序內(nèi)部來程序化操縱的對象以及相關(guān)的屬性、方法和事件。1、在VB工程中添加對Excel類型庫的引用塊，需要在VB工程中添加對Excel類型庫的引用。注：要想在VB應(yīng)用程序中調(diào)用Excel，你的計算機系統(tǒng)中必須安裝Excel。2、引用Application對象Application對象是Excel對象模型的頂層，表示整個Excel應(yīng)用程序。在VB應(yīng)用程序中調(diào)用Excel，就是使用Application對象的屬性、方法和事件。為此，首先要聲明對象變量：DimVBExcelAsObject或直接聲明為Excel對象：DimVBExcelAsExcel.Application。在聲明對象變量之后，可用CreateObject函數(shù)或GetObject函數(shù)給變量賦值新的或已存在的Application對象引用。三、使用Excel應(yīng)用程序如前所述，在VB應(yīng)用程序中調(diào)用Excel應(yīng)用程序，就是使用Application對象的屬性、方法和事件。下面分類給出其中常用的屬性和方法。1、使用工作薄Workbook對象代表Excel應(yīng)用程序中當前打開的一個工作簿，包含在Workbooks集合中。可以通過Workbooks集合或表示當前活動工作簿的ActiveWorkbook對象訪問Workbook對象。2、使用工作表Sheets集合表示工作簿中所有的工作表。可以通過Sheets集合來訪問、激活、增加、更名和刪除工作表。一個Worksheet對象代表一個工作表。3、使用單元范圍Range對象代表工作表的某一單元格、某一行、某一列、某一選定區(qū)域或者某一三維區(qū)域。4、使用圖表Chart對象代表工作簿中的圖表。該圖表既可為嵌人式圖表(包含于ChartObject對象中)也可為分立的圖表工作表。5、使用Excel工作表函數(shù)在VB語句中可使用大部分的Excel工作表函數(shù)，可通過WorksheetFunction對象調(diào)用Excel工作表函數(shù)。四、應(yīng)用實例下面是VB調(diào)用EXCEL進行外業(yè)記錄和數(shù)據(jù)處理的程序界面，界面的制作方法不再敘述了，程序代碼見附錄。先利用VB應(yīng)用程序調(diào)用EXCEL進行數(shù)據(jù)的記錄，然后再利用EXCEL的宏程序(VBA)（程序代碼見附錄）進行數(shù)據(jù)的處理和曲線圖表的生成。如下表：這樣既實現(xiàn)了程序界面化的可操作性，同時也體現(xiàn)了基于面向?qū)ο蟮姆椒ǖ膶崿F(xiàn)。使VB、Excel以及ExceL宏程序（VBA）三者交互接合起來，相得益彰。五、結(jié)論賭以上簡要介紹榮了湊Exce羨l抄對象模型中部聯(lián)分對象及其屬泡性和方法浙。通過使用這奇些方法，就能爬很好地問把捧V訪B遲和扭Exce筍l凳接合起來，充雀分利從用口Exce阻l燦的強大的數(shù)學代分析、計算和丘圖表功能。把鑒它們有機地掛口接在一起，從我而實現(xiàn)二者的郊無縫連接。為貝日常工作中一夕些復(fù)雜的數(shù)據(jù)床處理帶來極大侍的便利。從更詳細的信息悟可參清閱憶Exce金l隨幫助中的內(nèi)容專。實際上康，忍Micros引oftOf饑fic厭e衣家族筍的楚Word殲、根PowerP賄oint形、綱Acces或s門和鋸Projec扁t胞等應(yīng)用程序都奶可以核在殲V勉B笛應(yīng)用程序中調(diào)累用，其原理和指步驟完全相同狡，只是其對象羅模型有所不同補而已。附錄：程序代碼：懂Option懂Expli把cit淘Dima搬,b,c,d鞠AsDo宅uble鹽’異申明屯變量尿申謊明傅EXCE幣L儀變量湖Dimxl塔AppAs筋Excel擁.Appli基cation滔Dimxl守BookA制sExce面l.Work赴book輝Dimxl雖Sheet糟AsExc肺el.Wor誰ksheet婆Privat剝eSub業(yè)comman氣d10_cl旦ick()哈’癥選擇易數(shù)據(jù)仇存盤目錄儀Dimfi端lename枕,outp規(guī)utfile日AsSt父ring炸Common厭Dialog朝1.Filt哭er="續(xù)excel(岸*.xls)臭|*.xls顏|rich之file(醬*.rtf)四|*.rtf議|allf煤iles(*炸.*)|*.松*"晨Common幻Dialog須1.Filt她erInde州x=1通Common莖Dialog法1.Show廊Save踐output停file=功Commo浩nDialo敵g1.fil傭ename犯Text36織.text場=outp地utfile卸Text33軌.SetFo耕cus飾EndSu錯b譯Privat毒eSub坦Comman吉d5_Cli弓ck()備’太VB濫主程序步Setxl胃App=登Create抖Object導("Exce豪l.Appl昂icatio杠n")系’等滑創(chuàng)建蒸EXCE扮對象恢L拍xlApp.救Visibl兔e=Fa載lse掉’爺設(shè)高置醫(yī)Exce猾l呀對象不可見（撤或可見）互Setxl希Book=縮xlApp留.Workb粗ooks.O媽pen("c緣:\prog紐ramfi艘les\蒸緣temp邊\奉水平角記錄猴表國.xls")拒’兔打雨開預(yù)Exce偽l奶工作表慰Setxl債Sheet希=xlBo授ok.Wor籌ksheet許s("she團et1")甲’寬設(shè)置活動榨工作表冊xlShee場t.Cell仿s(ww,元4)=F碰ormat(繳aaa,"宮0000己00")架’奶記錄數(shù)據(jù)盛到急EXCE伙L闊工作表挖xlShee漫t.Cell熊s(ww,慰5)=F惠ormat(鍛bbb,"獻0000肺00")異xlShee斃t.Cell很s(ww,孫6)=T沉ext7.t線ext蟲xlShee票t.Cell柔s(ww,陵7)=T抬ext9.t防ext川xlBook鬧.saveA箱sText們36.tex悉t料’望保存數(shù)據(jù)秩到繭Exce救l開工作表稼xlBook茂.Close騎(True戴)派’密關(guān)閉工作表比xlApp.陪Quit君’濾退出工作表浮Setxl賣App=御Nothin稿g鈴’待釋放塊對應(yīng)用程序和廊電子數(shù)據(jù)表的金引用殘Dimin殃taAs那Double這inta=友MsgBo骨x(隙"搶下一站拘?。?！公",0,紛"泳！?。∷浇侵。≤?！糕")春Form1.積Text33薪.SetFo拴cus專Form1.但Text33握.SelSt乖art=零0控Form1.過Text33永.SelLe芹ngth=德Len(T涼ext33.召text)壽EndSu忍b慚’群結(jié)束程序遞E嗽XCE左L纏宏程姨序泛(竊VBA)貧Public轉(zhuǎn)Funct病ionzh以1(txt慧AsDou眼ble)A數(shù)sDoub汗le枯鏡'肆格式轉(zhuǎn)化函數(shù)建Dima1沙AsDo映uble她a1=I問nt((tx領(lǐng)t+3貫*10^碗-10)擋/1000弄0)癥zh1=釀a1犯EndFu玩nction偶Privat撤eSub幟Comman眼dButto誠n3_Cli偉ck()望脾'次調(diào)入記錄數(shù)據(jù)欠Dimhh悶h但,淡tt膜,捕lllAs灶Doubl蠅e甚hhh=蓋InputB轟ox(顯"掘請輸入計算表粥起始行析數(shù)逼",豐"迎輸入計算表開姿始述行秒!!")撈tt=I逆nputBo開x(畜"抗請輸入計算表福結(jié)束行巡數(shù)錦",符"失輸入計算表結(jié)塵束杰行辣!!")卷lll=午InputB優(yōu)ox(腔"晴請輸入計算表即與轉(zhuǎn)換表起始陜行數(shù)差剛值濫",輕"勒輸入計算表與漏轉(zhuǎn)換表起始行暗數(shù)差蠅值促!!")杠Forhh猛=hhh紙Tott狂Sheet4曲.Cells業(yè)(hh,6欣)=zh車1(Shee竄t5.Cel降ls(hh撞-lll,燥4))肝’進不同工作表間子的數(shù)據(jù)交換棚Sheet4慚.Cells薄(hh,7憐)=zh沒2(Shee榮t5.Cel梁ls(hh侮-lll,檢4))竄Nexth錫h勝EndSu譯b籃Privat脈eSub譯Worksh押eet_Se萬lectio治nChang牲e(ByVa烈lTarg鏈etAs屢Range)怠’近EXCE軟L升成果表處理h=9Do處h=h挪+1唉LoopU丟ntilS萬heet1.釋Cells(丘h,3)害=""悼n=Sh啦eet1.C卡ells(4補,22)按ForI激=10T畫oh-贏1響A=Sh醒eet1.C乖ells(I灰,5)換CallH業(yè)AN(A,縫c)姓Sheet2秋.Cells間(c,2棋*n)=娃Sheet刪1.Cell活s(I,2顯6)飛Sheet2紫.Cells場(c,2浙*n+差1)=S掛heet1.落Cells(喬I,27)NextI堡Sheet2甩.Cells攝(2,2宇*n)=火Sheet春1.Cell旺s(5,7窮)委Sheet2去.Cells不(3,2攔*n)=橡輸"摩變化狹量帳"燒Sheet2幅.Cells拍(3,2版*n+茫1)=退"架累計變化汗量閣"燕EndSu費b艦基于工作拔表免“遲Sheet相l(xiāng)封”射中單元格區(qū)脹域?qū)！罢朽1描：叔A2奮0頂”茂中的數(shù)據(jù)生成集新的折線圖并陡打印。宿WithCh道arts.A界dd艷.Chart達Wizard轟sourc桌e濾：粉=Works晌heets(姜"sheet畜1").Ra齊nge("a珍1返：揚a20"),改galler宣y別：邊=xlLin澡e,titl窩e豎：兩=賽“亞折線圖年表稈”白.Print糾out才EndWit立h肉典吃[竄參鑼訊斧考紅諸充文扮售肌獻亦]依[1驟]鋤孫敬攪杰擺.米遣《務(wù)Excel娛VB他A酬入門與提高軍》奉[M拖]隔中國青年出版裁社滾[2]鋪縣明日科完