用EXCEL組件簡化VB編程的一種方法 
具體使用編輯器步驟如下：進(jìn)入EXCEL97后，用鼠標(biāo)點(diǎn)擊菜單欄中的“工具”按鈕，選擇“宏”，再選擇“VB編輯器”。即出現(xiàn)類似于VB的標(biāo)準(zhǔn)窗口。

　　由于“VB編輯器”的編輯界面非常類似于“Visual Basic”的界面。所以我們可以從它的控件“工程資源管理器”中插入需要的“添加用戶窗體、添加模塊、添加類模塊”，并且從“屬性窗口”中加入屬性。

　　例如，我們可以制定一個(gè)表格處理定位的窗體，通過程序來實(shí)現(xiàn)數(shù)據(jù)定位和循環(huán)調(diào)用過程。

　　 Public decide As Boolean

　　 Private Sub CommandButton1_Click()

　　 exchange

　　 If decide Then

　　 Unload Me

　　 Else

　　 TextBox1.Text = ""

　　 End If

　　 End Sub

　　 Sub exchange()

　　 If Not decideday(TextBox1.Text) Then GoTo error

　　 decide = True

　　 Dim sql As String

　　 Dim db As Database

　　 Dim rs As Recordset

　　 sql = "SELECT * From 數(shù)據(jù)表"

　　 sql = sql + " WHERE (((數(shù)據(jù)表.日期)=#" + TextBox1.Text + "#))"

　　 Set db = OpenDatabase(Application.ThisWorkbook.Path + "gl.mdb")

　　 Set rs = db.OpenRecordset(sql, dbOpenDynaset)

　　 If rs.EOF Then

　　 MsgBox ("此日期無數(shù)據(jù)")

　　 Exit Sub

　　 End If

　　 daima1 = rs.Fields("代碼")

　　 （以下為數(shù)據(jù)在表格中的定位及調(diào)用）

　　 Sheet1.Range("e5").Value = rs.Fields("日期")

　　 Sheet1.Range("f7").Value = rs.Fields("數(shù)據(jù)表記錄")

　　 Sheet1.Range("d12").Value = rs.Fields("實(shí)數(shù)100")

　　 Sheet1.Range("d14").Value = rs.Fields("實(shí)數(shù)50")

　　 Sheet1.Range("d16").Value = rs.Fields("實(shí)數(shù)10")

　　 Sheet1.Range("d18").Value = rs.Fields("實(shí)數(shù)5")

　　 Sheet1.Range("d20").Value = rs.Fields("實(shí)數(shù)2")

　　 Sheet1.Range("d22").Value = rs.Fields("實(shí)數(shù)1")

　　 Sheet1.Range("h12").Value = rs.Fields("其他100")

　　 Sheet1.Range("h14").Value = rs.Fields("其他50")

　　 Sheet1.Range("h16").Value = rs.Fields("其他10")

　　 Sheet1.Range("h18").Value = rs.Fields("其他5")

　　 Sheet1.Range("h20").Value = rs.Fields("其他2")

　　 Sheet1.Range("h22").Value = rs.Fields("其他1")

　　 Sheet1.Range("d38").Value = Sheet1.Range("d12").Value * 100 + Sheet1.Range("d14").Value * 50 + Sheet1.Range("d16").Value * 10 + Sheet1.Range("d18").Value * 5 + Sheet1.Range("d20").Value * 2 + Sheet1.Range("d22").Value 

　　 Sheet1.Range("h38").Value = Sheet1.Range("h12").Value * 100 + Sheet1.Range("h14").Value * 50 + Sheet1.Range("h16").Value * 10 + Sheet1.Range("h18").Value * 5 + Sheet1.Range("h20").Value * 2 + Sheet1.Range("h22").Value 

　　 Dim sql1 As String

　　 Dim db1 As Database

　　 Dim rs1 As Recordset

　　 sql1 = "SELECT * From 代碼字典"

　　 sql1 = sql1 + " WHERE (((代碼字典.代碼)=" & daima1 & "))"

　　 Set db1 = OpenDatabase(Application.ThisWorkbook.Path + "gl.mdb")

　　 Set rs1 = db1.OpenRecordset(sql1, dbOpenDynaset)

　　 Sheet1.Range("h41").Value = rs1.Fields("代碼字典名稱")

　　 Exit Sub

　　 error:

　　 MsgBox ("日期輸入錯(cuò)誤")

　　 decide = False

　　 End Sub

　　 Private Sub TextBox1_Change()

　　 End Sub

　　 Private Sub UserForm_Activate()

　　 dyaaa.Top = 30

　　 dybbb.Left = 230

　　 End Sub

　　 VB是標(biāo)準(zhǔn)的面向?qū)ο缶幊陶Z言可視編程，采用事件驅(qū)動的編程技術(shù)。所以可以直接調(diào)用VB編輯器所寫的程序，簡化以往較為繁瑣的一些步驟。

　　由于用戶的需求較多，VB可以通過直接調(diào)用OFFICE組件EXCEL，進(jìn)而直接調(diào)用VB編輯器實(shí)現(xiàn)表格處理，以簡化程序的編寫。

　　 VB程序中直接調(diào)用EXCEL 的格式如下：

　　 Private Sub menudy_Click(Index As Integer) 這是一個(gè)打印菜單

　　 Select Case Index

　　 Case 0

　　 On Error GoTo Last 

　　 diaoyong = Shell("D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgl.xls", 1)

　　 Case 1

　　 On Error GoTo Last1 作為空表處理

　　 diaoyong = Shell("D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgly.xls", 1)

　　 Case 3

　　 EXIT 

　　 End Select

　　 Exit Sub

　　 Last:

　　 diaoyong = Shell("EXCEL.EXE c:glgl.xls", 1)

　　 Exit Sub

　　 Last1:

　　 diaoyong = Shell("EXCEL.EXE c:glgly.xls", 1)

　　 End Sub

　　具體的表格數(shù)據(jù)處理可以由EXCEL自動完成，因此就簡化VB編程的步驟，并且節(jié)約調(diào)試程序和定位調(diào)用的時(shí)間。這樣就可以把Visual Basic和 EXCEL有機(jī)的結(jié)合在一起，使編程更加實(shí)用。