vba 将xml导入到excel

'根据销售单从相应的xml文件中读取条形码数据，

'再输入到新建的excel文件中，改为特定的名字并保存。

Option ExplicitSub FindNode()
Dim myWorkbook As Workbook
Dim ws As Worksheet
Dim rg As Range
Dim rgFirst As Range
Dim nLength As Integer
Dim strTmp As String
Dim strFilePath As String '第三方2文件夹中导入xml文件名
Dim strFileExl As String '导出文件2文件夹中导出exl文件名
Dim nNum As Integer  '销售件数
'nLength = 0
strTmp = ""
On Error GoTo errExSet rgFirst = Cells(ActiveCell.Row, ActiveCell.Column)Do While rgFirst.Value <> ""  '*************循环**********************************nLength = 0
strTmp = rgFirst.ValueIf Right(strTmp, 1) > 9 ThenMsgBox (strTmp & "的发货单据号有误！")Exit Sub
End If   '如果药检码单尾数是7位，以下将6改成7即可
strFilePath = ThisWorkbook.Path & "\第三方2\SalesWareHouseOut_" & Right(strTmp, 6) & ".xml"
strFileExl = ThisWorkbook.Path & "\导出文件2\" & Application.WorksheetFunction.Text(rgFirst.Offset(0, -1), "yyyymmdd") _& rgFirst.Offset(0, 2) & rgFirstnNum = rgFirst.Offset(0, 4)Set myWorkbook = Workbooks.Add(xlWBATWorksheet)
Set myWorkbook = ActiveWorkbook
Set ws = myWorkbook.Worksheets(1)
Set rg = ws.Cells(1, 2)
rg.ColumnWidth = 22
rg.Offset(0, -1).ColumnWidth = 4
ws.Columns("B:B").NumberFormatLocal = "@"
rg = "电子监管码"Dim objDOM As ObjectDim nodes As ObjectDim n As Object'装载xml文档到dom 文档中Set objDOM = CreateObject("MSXML.DOMDocument")objDOM.Load (strFilePath)'查找并选择文档中的所有id节点Set nodes = objDOM.SelectNodes("//Data")'遍历节点并输出每个节点For Each n In nodesSet rg = rg.Offset(1, 0)nLength = nLength + 1rg = n.Attributes.Item(0).NodeValuerg.Offset(0, -1) = nLength'MsgBox n.Attributes.Item(0).NodeValue'MsgBox n.TextNext'nLength = n.LengthIf nLength <> nNum ThenMsgBox (strTmp & "的件数不对！第三方2文件夹中的xml文件可能错误！")Exit SubEnd IfOn Error Resume NextmyWorkbook.SaveAs (strFileExl)myWorkbook.CloseSet rgFirst = rgFirst.Offset(1, 0)Loop          ' *************循环**********************************Exit Sub
errEx:MsgBox (strTmp & "的执行有错误，请检查！")
End SubSub Macro1()
Application.OnKey "^+f", "FindNode"
End Sub

vba 将xml导入到excel相关推荐

国产Excel开发组件Spire.XLS【转换】教程（3）：将 Excel 导出到 XML 和将 XML 导入到 Excel
我们如何才能快速且高质量地将 Excel 导出到 Office Open XML 并将 Office Open XML 导入到 Excel?答案是大多数开发人员想知道和客户关心的问题.这里将演示一种将 ...
xml文件导入wps_#WPS表格怎么导入XML数据？#excel怎样导入wps表格数据
WPS表格怎么导入XML数据? 他们说的都不对还,WPS发展到现Office好用多了,不用像Office那样需要XML映射,直xml拖拽到WPS表格里选择表开即可 PS:有的人之直接拖拽过来还是不行是 ...
CATIA软件VBA二次开发：Excel文件中点坐标数据导入与生成点应用程序编写
本文已经首发在个人微信公众号:工业机器人仿真与编程(微信号:IndRobSim),欢迎关注! 前几期为大家介绍了基于VBA二次开发的CATIA软件焊点坐标数据导出应用程序编写以及焊点小球生成工具应用程 ...
通过VBA将word中的表格导入到excel中
通过VBA将word中的表格导入到excel中由于项目需要,需要将word中的表格按照格式导入到excel中,所以通过在word中写VBA程序的方式将word的内容导出到excel中. 1.添加&q ...
Java解析xml文件dom4j篇(基于xml配置文件完成Excel数据的导入、导出功能完整实现)
DOM4J解析XML文件 dom4j是一个Java的XML API,是jdom的升级产品,用来读写XML文件.另外对比其他API读写XML文件,dom4j是一个十分优秀的JavaXML API,具有性 ...
再见 VBA！神器工具统一 Excel 和 Python
作者 | 东哥起飞来源 | Python数据科学经常给大家推荐好用的数据分析工具,也收到了铁子们的各种好评.这次也不例外,我要再推荐一个,而且是个爆款神器. Excel和Jupyter Noteb ...
[node 工具] 用 Node.js 将 bugzilla 上的 bug 列表导入到 excel 表格在线版本之一（server 端）...
之前写了个用 Node.js 将 bugzilla 上的 bug 列表导入到 excel 表格里的 cli 工具虽然可以用,但考虑到一下几点,总觉得需要再做点什么. 界面简陋,我那截图上是在 VS ...
java excel data 导入数据_java实现导入导出excel数据
项目需要,要实现一个导入导出excel的功能,于是,任务驱动着我学习到了POI和JXL这2个java操作Excel的插件. 一.POI和JXL介绍 1.POI:是对所有office资源进行读写的一套工 ...
如何在ex表格导入php_怎么使用php把表格中的数据导入到excel中,php如何快速导入excel表格数据...
php怎么导入大量数据的excel php导出数据的Excel: PHP从数据库分多次读取100万行记录,和分将100万入文本文件都没问题 Excel可以支100万行记录,Excel 2003最大支持 ...

vba 将xml导入到excel

vba 将xml导入到excel相关推荐

最新文章

热门文章