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

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

2、通過程序來實現(xiàn)數(shù)據(jù)定位和循環(huán)調(diào)用過程。Public decide As BooleanPrivate Sub CommandButton1_Click()exchangeIf decide ThenUnload MeElseTextBox1.Text = ““End IfEnd SubSub exchange()If Not decideday(TextBox1.Text) Then GoTo errordecide = TrueDim

3、 sql As StringDim db As DatabaseDim rs As Recordsetsql = “SELECT * From 數(shù)據(jù)表“sql = sql + “ WHERE (((數(shù)據(jù)表.日期)=#“ + TextBox1.Text + “#))“Set db = OpenDatabase(Application.ThisWorkbook.Path + “gl.mdb“)Set rs = db.OpenRecordse

4、t(sql, dbOpenDynaset)If rs.EOF ThenMsgBox (“此日期無數(shù)據(jù)“)Exit SubEnd Ifdaima1 = rs.Fields(“代碼“)error:MsgBox (“日期輸入錯誤“)decide = FalseEnd SubPrivate Sub TextBox1_Change()End SubPrivate Sub UserForm_Activate()dyaaa.Top = 30dybbb

5、.Left = 230End SubVB 是標(biāo)準(zhǔn)的面向?qū)ο缶幊陶Z言可視編程，采用事件驅(qū)動的編程技術(shù)。所以可以直接調(diào)用 VB 編輯器所寫的程序，簡化以往較為繁瑣的一些步驟。由于用戶的需求較多，VB 可以通過直接調(diào)用 OFFICE 組件 EXCEL，進(jìn)而直接調(diào)用 VB 編輯器實現(xiàn)表格處理，以簡化程序的編寫。VB 程序中直接調(diào)用 EXCEL 的格式如下：Private Sub menudy_Click(Index As Integer) 這是

6、一個打印菜單Select Case IndexCase 0On Error GoTo Last diaoyong = Shell(“D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgl.xls“, 1)Case 1On Error GoTo Last1 作為空表處理diaoyong = Shell(“D:Program FilesMicrosoft OfficeOfficeEXCE