xml文件如何导入到ACCESS表中？

幽助　发表于：2018-12-28 14:37:58 　

各位大神，咨询一下。有一些XML格式文件，格式基本都一样，怎么导入到ACCESS表中？（XML非标准格式的项目与数字，格式有稍许凌乱）求大神支招！

幽助发表于：2018-12-28 15:22:42

使用这个导入的话，会提示运行时错误 31527 路径未找到。。。。。。

----------------------------------------------------------------------------------------

'将XML文件导入到当前数据库
Private Sub Command0_Click()
    Dim dg As Office.FileDialog
    Dim xmlPATH As String
    '通过文件对话框获取XML 文件路径
    Set dg = Application.FileDialog(msoFileDialogOpen)
    With dg
        .Title = "选择导入的XML"
        .Filters.Clear
        .Filters.Add "HTML 文件", "*.xml"
        .Show
    End With
    xmlPATH = dg.SelectedItems.Item(1)
    '导入XML文件
    Application.ImportXML xmlPATH
End Sub

--------------------------------------------------------------------------------------------

Top

伊西军发表于：2018-12-28 21:22:59

手头没xml文件建议上传你的附件看下

Top

幽助发表于：2018-12-29 08:47:39

嗯，好的劳烦协助看一下。（其实我只要导入XML内容如下，只要黑体部分能导入到ACCESS就行了。）

------------------------------------------------------------------------------------------------------------

<?xml version="1.0" encoding="UTF-8" ?>
<China_Parts_Clean_CoAShipment xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xsi:noNamespaceSchemaLocation="ET2_30026388_CAP_V1.xsd"
    MaterialNo="30026388"
    SupplierID="3000935"
    RawLotId="SN0000000501"
    PONo=""
    TSMCFab="F100"
    InvoiceNo=""
    MaterialName="CAP"
    SupplierName="GEMTEK"
    LotQty="1"
    ShipQty="1"
    SpecNo=""
    SpecVersion=""
    DeliverDate="2018-12-25"
    ManufacturingDate="2018-12-24"
    ShelfLifeTime="90"
    RemainLifeTime="89"
>
        <Lot>
            <Clean_time VALUE="41" UNIT="time" >
            </Clean_time>
            <Particle_0.2um VALUE="7.63" UNIT="ea" >
            </Particle_0.2um>
            <Visual_inspection VALUE="0" UNIT="-" >
            </Visual_inspection>
        </Lot>
</China_Parts_Clean_CoAShipment>

---------------------------------------------------------------------------------------------------------------

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

xml文件如何导入到ACCESS表中？