用EXCEL組件簡(jiǎn)化VB編程的一種方法.txt

1、用EXCEL組件簡(jiǎn)化VB編程的一種方法具體使用編輯器步驟如下：進(jìn)入EXCEL97后，用鼠標(biāo)點(diǎn)擊菜單欄中的“工具”按鈕，選擇“宏”，再選擇“VB編輯器”。即出現(xiàn)類似于VB的標(biāo)準(zhǔn)窗口。由于“VB編輯器”的編輯界面非常類似于“VisualBasic”的界面。所以我們可以從它的控件“工程資源管理器”中插入需要的“添加用戶窗體、添加模塊、添加類模塊”，并且從“屬性窗口”中加入屬性。例如，我們可以制定一個(gè)表格處理定位的窗體，通過程序來(lái)實(shí)現(xiàn)數(shù)據(jù)定位和

2、循環(huán)調(diào)用過程。PublicdecideAsBooleanPrivateSubCommButton1_Click()exchangeIfdecideThenUnloadMeElseTextBox1.Text=““EndIfEndSubSubexchange()IfNotdecideday(TextBox1.Text)ThenGoToerrdecide=TrueDimsqlAsStringDimdbAsDatabaseDimrsAsRecd

3、setsql=“From數(shù)據(jù)表“sql=sql“WHERE(((數(shù)據(jù)表.日期)=#“TextBox1.Text“#))“Setdb=OpenDatabase(Application.ThisWkbook.Path“gl.mdb“)Setrs=db.OpenRecdset(sqldbOpenDynaset)Ifrs.EOFThenMsgBox(“此日期無(wú)數(shù)據(jù)“)ExitSubEndIfdaima1=rs.Fields(“代碼“)err:M

4、sgBox(“日期輸入錯(cuò)誤“)decide=FalseEndSubPrivateSubTextBox1_Change()EndSubPrivateSubUserFm_Activate()dyaaa.Top=30dybbb.Left=230EndSubVB是標(biāo)準(zhǔn)的面向?qū)ο缶幊陶Z(yǔ)言可視編程，采用事件驅(qū)動(dòng)的編程技術(shù)。所以可以直接調(diào)用VB編輯器所寫的程序，簡(jiǎn)化以往較為繁瑣的一些步驟。由于用戶的需求較多，VB可以通過直接調(diào)用OFFICE組件EXC

5、EL，進(jìn)而直接調(diào)用VB編輯器實(shí)現(xiàn)表格處理，以簡(jiǎn)化程序的編寫。VB程序中直接調(diào)用EXCEL的格式如下：PrivateSubmenudy_Click(IndexAsInteger)這是一個(gè)打印菜單CaseIndexCase0OnErrGoToLastdiaoyong=Shell(“D:ProgramFilesMicrosoftOfficeOfficeEXCEL.EXEc:glgl.xls“1)Case1OnErrGoToLast1作為空表處