Hi，大家好，我是编程小6，很荣幸遇见你，我把这些年在开发过程中遇到的问题或想法写出来，今天说一说
vba 导入数据_vba把数据写入另一个表,希望能够帮助你!!!。

数据管理是一个很重要的操作，是任何基于系统管理方面的基本内容，在一些重要数据的存储使用过程中，更是一件十分重要的事情，如果不是维护需要，可能不会有人关注这一点。

但是，根据目前信息化程度越来越高，数据管理也成为一项特别重要的基本管理项目。

本文将介绍一种数据管理方面的编程思路，当然也附带了一些代码，供参考学习。

下图是本文示例中的操作界面

按钮形式是一个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---

今天的分享到此就结束了，感谢您的阅读，如果确实帮到您，您可以动动手指转发给其他人。