親愛的小伙伴：
我們上一期學(xué)習(xí)了通過VB程序讀取Access數(shù)據(jù)庫與Excel表格數(shù)據(jù)實(shí)現(xiàn)自動(dòng)數(shù)據(jù)處理，那么今天我們就來嘗試一個(gè)編程的小例子，希望能夠給大家?guī)韼椭蛦l(fā)。
我們先來看一個(gè)VB程序存取Excel表格數(shù)據(jù)的例子，我們要把'sheet1'表中一班的學(xué)生語文成績用VB程序存取到'sheet2'表里面去。
要把成績表中一班的學(xué)生提出來放到另一個(gè)表中
首先我們打開安裝好的VB6.0程序，然后保存到一個(gè)指定的文件夾下面，這樣我們就有了一個(gè)空的VB程序，我們雙擊按鈕控件，按鈕控件就會(huì)自動(dòng)跳到窗體上面：
打開安裝好的VB6.0程序
在進(jìn)入代碼窗口之前我們簡單把這個(gè)控件設(shè)計(jì)成好看的樣式，點(diǎn)擊屬性窗口圖標(biāo)，就會(huì)彈出一個(gè)屬性窗口，在這個(gè)窗口下，我們就能對(duì)我們的按鈕進(jìn)行設(shè)計(jì)啦：
對(duì)我們的按鈕進(jìn)行設(shè)計(jì)
然后我們點(diǎn)擊按鈕控件，在右邊的屬性窗口找到'Cpation'字樣，它就是控件要顯示的名字，我們可以任意修改，改完后的效果是這樣的：
找到'Cpation'字樣，修改內(nèi)容
我們?cè)賮砀囊幌滤纳拾?，這樣看起來漂亮些，就改成下面這樣吧：
改一下它的色彩
可以看到我們的按鈕變樣子啦，變的美美噠，對(duì)啦忘記一樣，如果小伙伴選上色彩后，沒有變色，那一定有一個(gè)選項(xiàng)沒選，就是下面這個(gè)要點(diǎn)Style選項(xiàng)的第二個(gè)類型，就允許我們對(duì)控件的色彩進(jìn)行改變啦：
要點(diǎn)Style選項(xiàng)的第二個(gè)類型
好了，我們繼續(xù)雙擊這個(gè)設(shè)計(jì)完的按鈕吧，這樣就進(jìn)入到編寫代碼的窗口了，就是下面這個(gè)樣子：
雙擊進(jìn)入到編寫代碼的窗口
我們先把昨天的固定代碼復(fù)制過來，就是讀取Excel表格數(shù)據(jù)固定引用的代碼，在代碼窗口的開始部分：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlSheet1 As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet
Set xlApp = CreateObject('Excel.Application')
Set xlBook = xlApp.Workbooks.Open('F:\成績表.xlsx')
xlApp.Visible = True
Set xlSheet1 = xlBook.Worksheets('Sheet1')
xlSheet1.Activate
上面的'F:\成績表.xlsx'和'Sheet1'是我們要讀取數(shù)據(jù)的目標(biāo)文件和目標(biāo)表，一定要和我們的數(shù)據(jù)一致。
在代碼窗口的結(jié)尾部分是這些固定的代碼：
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
MsgBox '主人，黑貓警長向您報(bào)告，程序已運(yùn)行完畢'
MsgBox后面的內(nèi)容是可以隨便修改的。
復(fù)制過來的代碼
好啦，準(zhǔn)備的代碼都已經(jīng)完工啦，就等著在上面中間的空白部分去實(shí)現(xiàn)我們要實(shí)現(xiàn)的工作啦，我們的目標(biāo)是要把'sheet1'表中一班的學(xué)生語文成績自動(dòng)存取到'sheet2'表里面去。
我們先來把'sheet1'表中一班的數(shù)據(jù)讀到變量里面去：
m = 1
For i = 2 To 121【一共有121條學(xué)生數(shù)據(jù)】
If Trim(xlSheet.Cells(i, 'a')) = '一班' Then【條件判定】
gs = gs 1【記錄一班學(xué)生數(shù)量】
a1(m) = xlSheet1.Cells(i, 'a')【讀班級(jí)】
b1(m) = xlSheet1.Cells(i, 'b')【讀姓名】
c1(m) = xlSheet1.Cells(i, 'c')【讀語文成績】
m = m 1
End If
Next i
我們已經(jīng)讀完數(shù)據(jù)啦，下面我們來把從'sheet1'表中讀取的一班數(shù)據(jù)寫到'sheet2'表中去：
m = 1
For i = 2 To gs【gs表示一班的學(xué)生人數(shù)】
xlSheet2.Cells(i, 'a')= a1(m)【寫班級(jí)】
xlSheet2.Cells(i, 'b')= b1(m)【寫姓名】
xlSheet2.Cells(i, 'c')= c1(m)【寫語文成績】
m = m 1
Next i
這樣，我們的程序就差不多啦，不過還要修改幾處，就是前面要加上變量的定義，否則程序就會(huì)報(bào)錯(cuò)，定義加在前面即可：
Dim a1(1 To 50), b1(1 To 50), c1(1 To 50)【定義數(shù)組，裝數(shù)據(jù)用的】
Dim gs, i, m【定義變量】
最后，我們編完的程序是這樣的:
所有的代碼我們都寫完啦
讓我們來點(diǎn)擊上面的小三角運(yùn)行吧，運(yùn)行之后是這樣的：
運(yùn)行后的界面
點(diǎn)擊按鈕，看看有什么反應(yīng)：
點(diǎn)擊按鈕，程序瞬間完成
直接彈出這個(gè)文件啦，程序瞬間完成了我們的工作，問是否保存呢，我們點(diǎn)擊取消就行啦，文件就會(huì)打開著，之后我們?cè)俦４婢蚈K啦。
點(diǎn)完取消會(huì)彈出這個(gè)信息框：
提示信息顯示工作完成啦
就是我們?cè)诔绦蚶锩孀龅奶崾拘畔ⅲ嬖V我們工作已經(jīng)完成，一班的學(xué)生成績已經(jīng)提出來啦，并且放到了“Sheet2”表中，實(shí)現(xiàn)了程序的自動(dòng)處理。當(dāng)然了，我們需要程序完成的工作要比這復(fù)雜的多，否則，我們也不需要編程序啦。
小伙伴們，你們學(xué)會(huì)了嗎？
今天的勵(lì)志名言是：
人生最大快樂，是自己的勞動(dòng)得到了成果，農(nóng)民勞動(dòng)得了收獲，工人勞動(dòng)出了產(chǎn)品，醫(yī)生勞動(dòng)治好了病，教師勞動(dòng)教好了學(xué)生，其他工作都是一樣?！x覺哉
喜歡的小伙伴給個(gè)關(guān)注，謝謝，下期見！
聯(lián)系客服
