前言：
眼前咱们对“vba读取二进制文件写入excel”大体比较着重，朋友们都想要知道一些“vba读取二进制文件写入excel”的相关知识。那么小编也在网摘上搜集了一些对于“vba读取二进制文件写入excel””的相关知识，希望姐妹们能喜欢，各位老铁们一起来了解一下吧！本实例基于VBA程序，实现功能：在其中一个数据表中录入数据，点击录入按钮后所输入的数据自动进入到另外一个数据表中。该程序可以极大的方便仓库管理员等人员的工作效率。
看下图就知道本期案例实现的功能啦
数据录入表
数据表
注意在录入前，需要在数据表中手动创建对象列表。Ctrl+L 创建列表区域A1:K2。
程序如下：
Sub 跨表数据录入()
'数据声明
Dim lastRow As Long '数据表中的数据行
Dim lstData As ListObject '数据表中的listObject对象
Dim rngTitle As Range '单元格对象用于遍历输入表中的标题
'设置listobject对象变量
Set lstData = Sheets("数据表").ListObjects(1)
'获取当前数据最后一行
lastRow = lstData.DataBodyRange.Rows.Count
'遍历数据录入表中的各个标题
For Each rngTitle In Union(Sheets("数据录入").Range("A3:A9"), Sheet1.Range("C6:C9"))
'将数据录入表中标题之右的单元格（即录入数据单元格）的值赋值给数据表中相应的列
lstData.ListColumns(rngTitle.Value).DataBodyRange(lastRow).Offset(1, 0).Value = rngTitle.Offset(0, 1).Value
Next rngTitle
End Sub
谢谢大家阅读，尝试
版权声明：
本站文章均来自互联网搜集，如有侵犯您的权益，请联系我们删除，谢谢。
标签： #vba读取二进制文件写入excel
