使用工作表有一個(gè)非常重要的項(xiàng)目：存儲(chǔ)和替換數(shù)據(jù)。

也就是說，在創(chuàng)建表時(shí)，您想另存為新表，或?qū)F(xiàn)有工作表檢索到當(dāng)前工作表中。

本節(jié)提供了分析表的導(dǎo)入和導(dǎo)出的想法。

如上圖所示，實(shí)現(xiàn)了數(shù)據(jù)表導(dǎo)入和導(dǎo)出清理等功能。本例是設(shè)備維護(hù)管理的子項(xiàng)任務(wù)，通過完整的功能可以查看以前的視頻理解。

導(dǎo)出的數(shù)據(jù)表如下圖所示。

這樣就提供了保存歷史數(shù)據(jù)的解決方案。

此數(shù)據(jù)的存儲(chǔ)分類是按年進(jìn)行的，可以根據(jù)各種應(yīng)用程序要求進(jìn)行設(shè)置。

代碼

數(shù)據(jù)導(dǎo)入過程

請(qǐng)參閱Private Sub DataInput()

On Error Resume Next

導(dǎo)入數(shù)據(jù)

Dim isTrue As Integer

IsTrue=MsgBox(' '匯入資料會(huì)清空資料?！耙獙?dǎo)入嗎？”，vbYesNo，“警告”)

If isTrue=6 Then

-匯入資料

Dim xData As String

XData=VBA。Trim)

If VBA。Len(xData)=0 Then MsgBox '未選擇年份'，vbInformation，'提示' : Exit Sub

XData=xData“維修記錄”

If CheckData(xData) Then

-導(dǎo)入前清除數(shù)據(jù)

Me。李氏

T(xSheet)。Select

If ac1或ac1 then

交流(2，1)。Resize(Ac-1、Ac)。Select

With Selection

.Delete

.Cells。AutoFit

.Columns。AutoFit

End With

End If

導(dǎo)入“InPutData xData”數(shù)據(jù)

t

AddListView Me。ListView1，1 '刷新ListView

Me。Label3.Caption='共' xCount '頁'

MsgBox“導(dǎo)入成功！”，VB信息，“提示”

Else

導(dǎo)入“MsgBox”失敗?！皼]有數(shù)據(jù)！”單擊，VB信息，“提示”

End If

End If

End Sub數(shù)據(jù)導(dǎo)入過程

匯入「private sub input data(xdata as string)」資料

Dim s as工作表、w as工作表

Set w=作用中的圖紙

Set s=T(延伸資料)

S.Select

交流(2，1)。Resize(Ac-1、Ac)。Select

Selec w.Range('A2 ')

W.Select

Set w=Nothing

Set s=Nothing

End Sub這樣管理數(shù)據(jù)，可以很好地知道應(yīng)該把哪一年的數(shù)據(jù)導(dǎo)入哪一年的數(shù)據(jù)，不需要重新制作下一年的數(shù)據(jù)。(威廉莎士比亞，溫斯頓，科學(xué))這樣，就不必為同一個(gè)數(shù)據(jù)表存儲(chǔ)多年的數(shù)據(jù)，數(shù)據(jù)處理能力大大提高，存儲(chǔ)記錄數(shù)據(jù)也不會(huì)造成損失。

數(shù)據(jù)管理是將Excel表用作應(yīng)用程序的重要方面。邏輯明確后，就不會(huì)出現(xiàn)隨著數(shù)據(jù)量的增加而膨脹的情況。

歡迎關(guān)注，所長(zhǎng)。

-結(jié)束-