用EXCEL組件簡化VB編程的一種方法.txt

1、用EXCEL組件簡化VB編程的一種方法具體使用編輯器步驟如下：進(jìn)入EXCEL97后，用鼠標(biāo)點(diǎn)擊菜單欄中的“工具”按鈕，選擇“宏”，再選擇“VB編輯器”。即出現(xiàn)類似于VB的標(biāo)準(zhǔn)窗口。由于“VB編輯器”的編輯界面非常類似于“VisualBasic”的界面。所以我們可以從它的控件“工程資源管理器”中插入需要的“添加用戶窗體、添加模塊、添加類模塊”，并且從“屬性窗口”中加入屬性。例如，我們可以制定一個表格處理定位的窗體，通過程序來實(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(“此日期無數(shù)據(jù)“)ExitSubEndIfdaima1=rs.Fields(“代碼“)err:M

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

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