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

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

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

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

4、sgBox(“日期輸入錯誤“)decide=FalseEndSubPrivateSubTextBox1_Change()EndSubPrivateSubUserFm_Activate()dyaaa.Top=30dybbb.Left=230EndSubVB是標準的面向對象編程語言可視編程，采用事件驅動的編程技術。所以可以直接調用VB編輯器所寫的程序，簡化以往較為繁瑣的一些步驟。由于用戶的需求較多，VB可以通過直接調用OFFICE組件EXC

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