用EXCEL組件簡化VB編程的一種方法
使用編輯器步驟如下：進入EXCEL97后，用鼠標點擊菜單欄中的“工具”按鈕，選擇“宏”，再選擇“VB編輯器”。即出現類似于VB的標準窗口。
由于“VB編輯器”的編輯界面非常類似于“Visual Basic”的界面。所以我們可以從它的控件“工程資源管理器”中插入需要的“添加用戶窗體、添加模塊、添加類模塊”，并且從“屬性窗口”中加入屬性。
例如，我們可以制定一個表格處理定位的窗體，通過程序來實現數據定位和循環調用過程。
| 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 數據表" sql = sql + " WHERE (((數據表.日期)=#" + TextBox1.Text + "#))" Set db = OpenDatabase(Application.ThisWorkbook.Path + "gl.mdb") Set rs = db.OpenRecordset(sql, dbOpenDynaset) If rs.EOF Then MsgBox ("此日期無數據") Exit Sub End If daima1 = rs.Fields("代碼") （以下為數據在表格中的定位及調用） Sheet1.Range("e5").Value = rs.Fields("日期") Sheet1.Range("f7").Value = rs.Fields("數據表記錄") Sheet1.Range("d12").Value = rs.Fields("實數100") Sheet1.Range("d14").Value = rs.Fields("實數50") Sheet1.Range("d16").Value = rs.Fields("實數10") Sheet1.Range("d18").Value = rs.Fields("實數5") Sheet1.Range("d20").Value = rs.Fields("實數2") Sheet1.Range("d22").Value = rs.Fields("實數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是標準的面向對象編程語言可視編程，采用事件驅動的編程技術。所以可以直接調用VB編輯器所寫的程序，簡化以往較為繁瑣的一些步驟。
由于用戶的需求較多，VB可以通過直接調用OFFICE組件EXCEL，進而直接調用VB編輯器實現表格處理，以簡化程序的編寫。
VB程序中直接調用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 |
具體的表格數據處理可以由EXCEL自動完成，因此就簡化VB編程的步驟，并且節約調試程序和定位調用的時間。這樣就可以把Visual Basic和 EXCEL有機的結合在一起，使編程更加實用。