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

2019-11-18 17:37:30

字體：大中小

來源：轉載

供稿：網(wǎng)友

具體使用編輯器步驟如下：進入Excel97后，用鼠標點擊菜單欄中的“工具”按鈕，選擇“宏”，再選擇“VB編輯器”。即出現(xiàn)類似于VB的標準窗口。

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

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

　　PublicdecideAsBoolean

　　
　　Setdb=OpenDatabase(application.ThisWorkbook.Path "gl.mdb")

　　Setrs=db.OpenRecordset(sql,dbOpenDynaset)

　　Ifrs.EOFThen

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

　　ExitSub

　　EndIf

　　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

　　Dimsql1AsString

　　Dimdb1AsDatabase

　　Dimrs1AsRecordset

　　sql1="SELECT*From代碼字典"

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

　　Setdb1=OpenDatabase(Application.ThisWorkbook.Path "gl.mdb")

　　Setrs1=db1.OpenRecordset(sql1,dbOpenDynaset)

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

　　ExitSub

　　error:

　　MsgBox("日期輸入錯誤")

　　decide=False

　　EndSub

　　PrivateSubTextBox1_Change()

　　EndSub

　　PrivateSubUserForm_Activate()

　　dyaaa.Top=30

　　dybbb.Left=230

　　EndSub

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

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

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

　　PrivateSubmenudy_Click(IndexAsInteger)這是一個打印菜單

　　SelectCaseIndex

　　Case0

　　OnErrorGoToLast

　　diaoyong=Shell("D:ProgramFilesMicrosoftOfficeOfficeEXCEL.EXEc:glgl.xls",1)

　　Case1

　　OnErrorGoToLast1作為空表處理

　　diaoyong=Shell("D:ProgramFilesMicrosoftOfficeOfficeEXCEL.EXEc:glgly.xls",1)

　　Case3

　　EXIT

　　EndSelect

　　ExitSub

　　Last:

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

　　ExitSub

　　Last1:

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

　　EndSub

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

上一篇：在GotFocus時快速選擇文本

下一篇：用VB為軟件增加注冊功能