使用編輯器步驟如下：進入EXCEL97后，用鼠標(biāo)點擊菜單欄中的“工具”按鈕，選擇“宏”，再選擇“VB編輯器”。即出現(xiàn)類似于VB的標(biāo)準(zhǔn)窗口。
由于“VB編輯器”的編輯界面非常類似于“Visual Basic”的界面。所以我們可以從它的控件“工程資源管理器”中插入需要的“添加用戶窗體、添加模塊、添加類模塊”，并且從“屬性窗口”中加入屬性。
例如，我們可以制定一個表格處理定位的窗體，通過程序來實現(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ù)100")
Sheet1.Range("d14").Value = rs.Fields("實數(shù)50")
Sheet1.Range("d16").Value = rs.Fields("實數(shù)10")
Sheet1.Range("d18").Value = rs.Fields("實數(shù)5")
Sheet1.Range("d20").Value = rs.Fields("實數(shù)2")
Sheet1.Range("d22").Value = rs.Fields("實數(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 ("日期輸入錯誤")
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，進而直接調(diào)用VB編輯器實現(xiàn)表格處理，以簡化程序的編寫。
VB程序中直接調(diào)用EXCEL 的格式如下：
Private Sub menudy_Click(Index As Integer) 這是一個打印菜單
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)用的時間。這樣就可以把Visual Basic和 EXCEL有機的結(jié)合在一起，使編程更加實用。
