Fatal编程技术网
  • xml/
  • Excel中VBA的选择性XML节点解析

Excel中VBA的选择性XML节点解析

xml vba excel

Excel中VBA的选择性XML节点解析,xml,vba,excel,Xml,Vba,Excel,我是一个对VBA几乎一无所知的大型机资源 我需要自动解析XML文件中的一些节点并在Excel中显示它们。 然后，我需要连接到DB2，从表中获取字段值（与XML节点相同）并进行比较 到目前为止，我能够解析XML，但我的代码只是打印每个节点的文本 它既没有组织，也没有选择性 这是XML文件示例： <?xml version="1.0" encoding="iso-8859-1"?> <ServiceRequest xmlns:xsi=

我是一个对VBA几乎一无所知的大型机资源

我需要自动解析XML文件中的一些节点并在Excel中显示它们。 然后，我需要连接到DB2，从表中获取字段值（与XML节点相同）并进行比较

到目前为止，我能够解析XML，但我的代码只是打印每个节点的文本

它既没有组织，也没有选择性

这是XML文件示例：

<?xml version="1.0" encoding="iso-8859-1"?>
<ServiceRequest
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema" version="2.0">
    <RequestHeader>
        <ServiceName>ProcessAMLMessageService</ServiceName>
        <ApplicationVersion>1.0</ApplicationVersion>
    </RequestHeader>
    <RequestBody>
        <Arguments type="ContractApplicationAMLDetails">
            <ContractApplicationAMLDetails>
                <AMLDataLanguage>E</AMLDataLanguage>
                <AMLApplication>E-FORM</AMLApplication>
                <AMLApplicationVersionNumber>3.0.0</AMLApplicationVersionNumber>
                <LaunchingApplication>EApp</LaunchingApplication>
                <LaunchingApplicationVersionNumber>36.1</LaunchingApplicationVersionNumber>
                <AdvisorNumber>123456</AdvisorNumber>
                <Userid>U12345</Userid>
                <ContractDetails>
                    <ContractNumber>CONT1234</ContractNumber>
                    <SourceData>
                        <AMLAdvisorNumber>98765</AMLAdvisorNumber>
                        <IntendedUseOfAcctCode>IOAC</IntendedUseOfAcctCode>
                        <ThirdPartyInd>N</ThirdPartyInd>
                        <TrustInd/>
                        <EstateInd/>
                        <SourcesOfPayment>
                            <SourceOfPayment>
                                <SequenceNumber>1</SequenceNumber>
                                <PaymentSourceCode>IA</PaymentSourceCode>
                            </SourceOfPayment>
                            <SourceOfPayment>
                                <SequenceNumber>2</SequenceNumber>
                                <PaymentSourceCode>SP</PaymentSourceCode>
                            </SourceOfPayment>
                            <SourceOfPayment>
                                <SequenceNumber>3</SequenceNumber>
                                <PaymentSourceCode>IF</PaymentSourceCode>
                            </SourceOfPayment>
                        </SourcesOfPayment>
                    </SourceData>
                </ContractDetails>
                <Owners>
                    <Owner>
                        <PartyTypeCode>P</PartyTypeCode>
                        <Person>
                            <UniqueIdentifier>UNIQUE-IDENTIFIER-1</UniqueIdentifier>
                            <Surname>USER-NAME</Surname>
                            <FirstName>FIRST-NAME</FirstName>
                            <DateOfBirth>1967-03-01</DateOfBirth>
                            <OccupationOrPrincipalBusiness>Pilot</OccupationOrPrincipalBusiness>
                            <AMLPEPInd>Y</AMLPEPInd>
                            <SelfIdentifiedPEFPInd>N</SelfIdentifiedPEFPInd>
                            <SelfIdentifiedPEDPInd>Y</SelfIdentifiedPEDPInd>
                            <SelfIdentifiedHIOInd>Y</SelfIdentifiedHIOInd>
                            <ForeignTaxResidentInd>N</ForeignTaxResidentInd>
                            <CRSForeignTaxResidentInd>N</CRSForeignTaxResidentInd>
                            <PEDPDetails>
                                <PEDP>
                                    <UniqueIdentifier>UNIQUE-IDENTIFIER-2</UniqueIdentifier>
                                    <Surname>USER-2</Surname></Surname>
                                    <FirstName>FIRST-2</FirstName>
                                    <RelationshipCode>RC</RelationshipCode>
                                    <PositionCode>PC-1</PositionCode>
                                    <CountryText>COUNTRY-1</CountryText>
                                    <PEOrganizationText>COUNTRY-1 Council</PEOrganizationText>
                                </PEDP>
                            </PEDPDetails>
                            <HIODetails>
                                <HIO>
                                    <UniqueIdentifier>HIO UNIQUI ID-1</UniqueIdentifier>
                                    <Surname>ApplicantAHIOw</Surname>
                                    <FirstName>HIOFourE</FirstName>
                                    <RelationshipCode>SI</RelationshipCode>
                                    <PositionText>Political Party Leader</PositionText>
                                    <CountryText>The United Arab Emirates</CountryText>
                                    <PEOrganizationCode>H06</PEOrganizationCode>
                                </HIO>
                                <HIO>
                                    <UniqueIdentifier>HIO UNIQUI ID-2</UniqueIdentifier>
                                    <Surname>ApplicantAHIOx</Surname>
                                    <FirstName>HIOFourF</FirstName>
                                    <RelationshipCode>PA</RelationshipCode>
                                    <PositionText>Director</PositionText>
                                    <CountryText>France</CountryText>
                                    <PEOrganizationText>Chamber of Commerce</PEOrganizationText>
                                    <PEOrganizationCode>XX</PEOrganizationCode>
                                </HIO>
                            </HIODetails>
                            <FATCADetails/>
                        </Person>
                        <Address>
                            <AddressLine1>ADDRESS-1</AddressLine1>
                            <City>CITY-1</City>
                            <ProvinceCode>PC</ProvinceCode>
                            <PostalCode>N2N 2N2</PostalCode>
                            <CountryCode>CA</CountryCode>
                            <CountryText>Canada</CountryText>
                        </Address>
                    </Owner>
                </Owners>
            </ContractApplicationAMLDetails>
        </Arguments>
    </RequestBody>
</ServiceRequest>
可以通过以下方式选择图元：

1） xpath（节点2）例如

2） 在DOM结构（节点）中使用标记，例如

我很惊讶您的文档被解析，因为以下内容不正确：

<Surname>USER-2</Surname></Surname>
XML xpath查询：

Option Explicit
Public Sub Convert_XML_To_Excel_Through_VBA()
    Dim xmlDoc As MSXML2.DOMDocument60, xmlRoot As MSXML2.IXMLDOMNode
    Set xmlDoc = New MSXML2.DOMDocument60

    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load "C:\Users\XML_FIle.xml"
    Set xmlRoot = xmlDoc.DocumentElement

    Dim nodes As Object, nodes2, i  As Long
    Set nodes = xmlDoc.getElementsByTagName("Person"): Set nodes2 = xmlDoc.SelectNodes("//Userid")

    For i = 0 To nodes.Length - 1
        Debug.Print nodes(i).Text
        Debug.Print nodes2(i).Text
    Next i
End Sub

回复：你的更新 下面是一个选择这些并从中列出的示例

Option Explicit
Public Sub Convert_XML_To_Excel_Through_VBA()
    Dim xmlDoc As MSXML2.DOMDocument60, xmlRoot As MSXML2.IXMLDOMNode
    Set xmlDoc = New MSXML2.DOMDocument60

    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load "C:\Users\XML_FIle.xml"
    Set xmlRoot = xmlDoc.DocumentElement

    Dim userIds As Object, AMLAdvisorNumbers As Object, UniqueIdentifiers As Object, RelationshipCodes As Object, i As Long
    Set userIds = xmlDoc.SelectNodes("//Userid")
    Set AMLAdvisorNumbers = xmlDoc.SelectNodes("//AMLAdvisorNumber")
    Set UniqueIdentifiers = xmlDoc.SelectNodes("//AMLAdvisorNumber")
    Set RelationshipCodes = xmlDoc.SelectNodes("//RelationshipCode")

    For i = 0 To userIds.Length - 1
        Debug.Print userIds(i).Text
        Debug.Print AMLAdvisorNumbers(i).Text
        Debug.Print UniqueIdentifiers(i).Text
        Debug.Print RelationshipCodes(i).Text
    Next i
End Sub
它们的长度不同，因此您不希望使用上面显示的循环清空所有内容：

Debug.Print userIds.Length
Debug.Print AMLAdvisorNumbers.Length
Debug.Print UniqueIdentifiers.Length
Debug.Print RelationshipCodes.Length
以上显示，除最后一个外，所有长度均为1，但最后一个是长度3。

您到底想要什么信息？我对以下节点感兴趣：ContractApplicationNameDetails/Userid ContractApplicationNameDetails/ContractDetails/AMLAVISORNNumber ContractApplicationNameDetails/Owners/Person/UniqueIdentifier合同应用程序详细信息/所有者/所有者/个人/PEDP详细信息/PEDP/关系代码感谢您的快速响应。在发布之前，我编辑了XML以更改节点文本，这样可能会弄乱文档。我对以下节点感兴趣：ContractApplicationAMLDetails/Userid ContractApplicationAMLDetails/ContractDetails/AMLAdvisorNumber ContractApplicationAMLDetails/Owners/Person/UniqueIdentifier ContractApplicationAMLDetails/Owners/Person/PEDPDetails/PEDP/RelationshipCode再次感谢您的帮助。非常感谢。它正在工作。周末不能试一试。很抱歉迟了答复。 
<Surname>USER-2</Surname>

Option Explicit
Public Sub Convert_XML_To_Excel_Through_VBA()
    Dim xmlDoc As MSXML2.DOMDocument60, xmlRoot As MSXML2.IXMLDOMNode
    Set xmlDoc = New MSXML2.DOMDocument60

    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load "C:\Users\XML_FIle.xml"
    Set xmlRoot = xmlDoc.DocumentElement

    Dim nodes As Object, nodes2, i  As Long
    Set nodes = xmlDoc.getElementsByTagName("Person"): Set nodes2 = xmlDoc.SelectNodes("//Userid")

    For i = 0 To nodes.Length - 1
        Debug.Print nodes(i).Text
        Debug.Print nodes2(i).Text
    Next i
End Sub

Option Explicit
Public Sub Convert_XML_To_Excel_Through_VBA()
    Dim xmlDoc As MSXML2.DOMDocument60, xmlRoot As MSXML2.IXMLDOMNode
    Set xmlDoc = New MSXML2.DOMDocument60

    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load "C:\Users\XML_FIle.xml"
    Set xmlRoot = xmlDoc.DocumentElement

    Dim userIds As Object, AMLAdvisorNumbers As Object, UniqueIdentifiers As Object, RelationshipCodes As Object, i As Long
    Set userIds = xmlDoc.SelectNodes("//Userid")
    Set AMLAdvisorNumbers = xmlDoc.SelectNodes("//AMLAdvisorNumber")
    Set UniqueIdentifiers = xmlDoc.SelectNodes("//AMLAdvisorNumber")
    Set RelationshipCodes = xmlDoc.SelectNodes("//RelationshipCode")

    For i = 0 To userIds.Length - 1
        Debug.Print userIds(i).Text
        Debug.Print AMLAdvisorNumbers(i).Text
        Debug.Print UniqueIdentifiers(i).Text
        Debug.Print RelationshipCodes(i).Text
    Next i
End Sub

Debug.Print userIds.Length
Debug.Print AMLAdvisorNumbers.Length
Debug.Print UniqueIdentifiers.Length
Debug.Print RelationshipCodes.Length