【excel导入怎么导】Excel VBA汇入和汇出工作表，资料管理方法简介

使用工作表有一个非常重要的项目：存储和替换数据。

也就是说，在创建表时，您想另存为新表，或将现有工作表检索到当前工作表中。

本节提供了分析表的导入和导出的想法。

如上图所示，实现了数据表导入和导出清理等功能。本例是设备维护管理的子项任务，通过完整的功能可以查看以前的视频理解。

导出的数据表如下图所示。

这样就提供了保存历史数据的解决方案。

此数据的存储分类是按年进行的，可以根据各种应用程序要求进行设置。

代码

数据导入过程

请参阅Private Sub DataInput()

On Error Resume Next

导入数据

Dim isTrue As Integer

IsTrue=MsgBox(' '汇入资料会清空资料。“要导入吗？”，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

-导入前清除数据

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

导入“InPutData xData”数据

t

AddListView Me。ListView1，1 '刷新ListView

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

MsgBox“导入成功！”，VB信息，“提示”

Else

导入“MsgBox”失败。“没有数据！”单击，VB信息，“提示”

End If

End If

End Sub数据导入过程

汇入「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这样管理数据，可以很好地知道应该把哪一年的数据导入哪一年的数据，不需要重新制作下一年的数据。(威廉莎士比亚，温斯顿，科学)这样，就不必为同一个数据表存储多年的数据，数据处理能力大大提高，存储记录数据也不会造成损失。

数据管理是将Excel表用作应用程序的重要方面。逻辑明确后，就不会出现随着数据量的增加而膨胀的情况。

欢迎关注，所长。

-结束-