vba录入数据和保存数据（数据导入导出管理的基本方法）
vba录入数据和保存数据（数据导入导出管理的基本方法）在MultiPage对象中的Change事件中写一些代码，来区分不同page切换，然后显示相应的工作表内容。MultiPage对象通过鼠标添加一个，同样Page对象也是手工添加。按钮形式是一个MultiPage对象，并不是按钮对象，外观像按钮，实际上是一个Page对象。切换按钮可以调出相应工作表，然后进行数据显示，右侧功能按钮是真正的按钮控件，可实现数据的导入导出和清除功能。清除功能一般不能这样使用，一不小心会把所有数据删除，于是，在清除之前要做一个提示，以防误操作。
数据管理是一个很重要的操作，是任何基于系统管理方面的基本内容，在一些重要数据的存储使用过程中，更是一件十分重要的事情，如果不是维护需要，可能不会有人关注这一点。
但是，根据目前信息化程度越来越高，数据管理也成为一项特别重要的基本管理项目。
本文将介绍一种数据管理方面的编程思路，当然也附带了一些代码，供参考学习。
下图是本文示例中的操作界面
按钮形式是一个MultiPage对象，并不是按钮对象，外观像按钮，实际上是一个Page对象。
切换按钮可以调出相应工作表，然后进行数据显示，右侧功能按钮是真正的按钮控件，可实现数据的导入导出和清除功能。
清除功能一般不能这样使用，一不小心会把所有数据删除，于是，在清除之前要做一个提示，以防误操作。
MultiPage对象通过鼠标添加一个，同样Page对象也是手工添加。
在MultiPage对象中的Change事件中写一些代码，来区分不同page切换，然后显示相应的工作表内容。
代码如下：
Private Sub MultiPage1_Change()
On Error Resume Next
Dim i As Integer xPageObj As Object ListviewObj As Object
i = Me.MultiPage1.SelectedItem.Index
Select Case i
Case 0 '设备维护记录
Case 1 '设备台账
setActSheet xSheetInfo'设置当前工作表
Set xPageObj = Me.MultiPage1.Pages(i)
Case 2 '设备配件
setActSheet xSheetFitting
Set xPageObj = Me.MultiPage1.Pages(i)
Case 3 '维修计划
setActSheet xSheetPlan
Set xPageObj = Me.MultiPage1.Pages(i)
Case 4 '设备润滑
setActSheet xSheetSoli
Set xPageObj = Me.MultiPage1.Pages(i)
Case 5 '检定校准
setActSheet xSheetVerification
Set xPageObj = Me.MultiPage1.Pages(i)
Case 6 '设备资料
setActSheet xSheetBook
Set xPageObj = Me.MultiPage1.Pages(i)
End Select
Set ListviewObj = SetListviewObj(xPageObj) '新建Listview
If ListviewObj Is Nothing Then Exit Sub
SetListviewItems ListviewObj '设置Listview
SetControlBtn xPageObj ListviewObj '设置功能按钮
Set xPageObj = Nothing
End Sub
可以年到上述代码中应用了一些自定义函数，用来新建一些控件，如Listview和commandbutton等。
新建Listview控件代码：
Private Function SetListviewObj(xPageObj As Object)
'新建Listview
On Error Resume Next
Dim xObj As Object
Set xObj = xPageObj.Controls.Add("Mscomctllib.listviewctrl.2")
With xObj
.Top = 10
.Left = 0
.Width = xPageObj.Parent.Width - 130 '.Left
.Height = xPageObj.Parent.Height - xPageObj.Parent.TabFixedHeight - .Top * 2
.BorderStyle = 1
.View = lvwReport
.Gridlines = True
.BackColor = RGB(211 235 255)
.Gridlines = True
.FullRowSelect = True
.LabelEdit = lvwManual
End With
setFont xObj
Set SetListviewObj = xObj
Set xObj = Nothing
End Function
实际上这样做的目的，就是减少代码的重复性，以减少程序的字节大小。
当然了，还有比这个更好的方法来提高程序的简洁度，以后有时间再总结一些。
至于数据管理的实际功能性应用，在以前的文章中也过介绍，侧重点不同，这里不做其它介绍了，可以翻看一下以前的文章。
欢迎关注、收藏
---END---
