使用 VBA

Question

我正在 Excel 中创建一个 VBA 宏，它允许我创建工作表、设置列标题和导入 CSV 文件。我遇到问题的最后一部分是使用 XML 映射特定的单元格和列标题。

到目前为止，我已经包含了我的宏的截断示例，以及 XSD 文件和我想要完成的附加代码。

宏：

Sub MyMacro()

'Create Sheets, headers
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Gen. Journal Line"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "UPGRADE"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Gen. Journal Line"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "81"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "Journal Template Name"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "Line No."
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "Journal Batch Name"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "Account Type"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "Account No."
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "Posting Date"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "Document Type"
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "Document No."
    Range("I3").Select
    ActiveCell.FormulaR1C1 = "Description"
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "Bal. Account No."
    Range("K3").Select
    ActiveCell.FormulaR1C1 = "Amount"
    Range("L3").Select
    ActiveCell.FormulaR1C1 = "Debit Amount"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "Credit Amount"
    
'Set CSV paths
    Dim GenJournalLinePath As String
    GenJournalLinePath = Application.ActiveWorkbook.Path + "\CSV Exports\Dynamics NAV Data\Nav 
    Data_GenJournalLine.csv"

'Import CSV data
    Sheets("Gen. Journal Line").Select
    Range("A4").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & GenJournalLinePath _
        , Destination:=Range("$A$4"))
        .Name = "Nav Data_GenJournalLine"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    ActiveSheet.UsedRange.EntireColumn.AutoFit

End Sub

XSD：

<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" attributeFormDefault="unqualified">
    <xs:element name="DataList">
        <xs:complexType>
            <xs:sequence>
                <xs:element name="GenJournalList">
                    <xs:complexType>
                        <xs:sequence>
                            <xs:element name="TableID" type="xs:int"></xs:element>
                            <xs:element name="PackageCode" type="xs:string"></xs:element>
                            <xs:element name="GenJournal" maxOccurs="unbounded">
                                <xs:complexType>
                                    <xs:sequence>
                                        <xs:element name="JournalTemplateName" type="xs:string"></xs:element>
                                        <xs:element name="LineNo" type="xs:string"></xs:element>
                                        <xs:element name="JournalBatchName" type="xs:string"></xs:element>
                                        <xs:element name="AccountType" type="xs:string"></xs:element>
                                        <xs:element name="AccountNo"></xs:element>
                                        <xs:element name="PostingDate" type="xs:string"></xs:element>
                                        <xs:element name="DocumentType"></xs:element>
                                        <xs:element name="DocumentNo" type="xs:int"></xs:element>
                                        <xs:element name="Description" type="xs:int"></xs:element>
                                        <xs:element name="BalAccountNo"></xs:element>
                                        <xs:element name="Amount" type="xs:decimal"></xs:element>
                                        <xs:element name="DebitAmount" type="xs:decimal"></xs:element>
                                        <xs:element name="CreditAmount" type="xs:decimal"></xs:element>
                                    </xs:sequence>
                                </xs:complexType>
                            </xs:element>
                        </xs:sequence>
                    </xs:complexType>
                </xs:element>
            </xs:sequence>
        </xs:complexType>
    </xs:element>
</xs:schema>

用于导入和映射 XML 架构的 VBA 代码：（附加到宏的末尾）

'Set XSD path
    Dim XSDpath As String
    XSDpath = Application.ActiveWorkbook.Path + "\Schema\GenJournalLineSchema.xsd"

'Import and map XML schema
    Set oXMLFile = CreateObject("Microsoft.XMLDOM")
    oXMLFile.Load (XSDpath)
    Range("C1").Select
    Set TableIDNode = oXMLFile.SelectNodes("/DataList/GenJournal/TableID/text()")
    Range("A1").Select
    Set PackageCodeNode = oXMLFile.SelectNodes("/DataList/GenJournal/PackageCode/text()")
    Range("A3").Select
    Set JournalTemplateNameNode = oXMLFile.SelectNodes("/DataList/GenJournal/JournalTemplateName/text()")
    Range("B3").Select    
    Set LineNoNode = oXMLFile.SelectNodes("/DataList/GenJournal/LineNo/text()")
    Range("C3").Select    
    Set JournalBatchNameNode = oXMLFile.SeLectNodes("/DataList/GenJournal/JournalBatchName/text()")
    Range("D3").Select
    Set AccountTypeNode = oXMLFile.SelectNodes("/DataList/GenJournal/AccountType/text()")
    Range("E3").Select
    Set AccountNoNode = oXMLFile.SelectNodes("/DataList/GenJournal/AccountNo/text()")
    Range("F3").Select
    Set PostingDateNode = oXMLFile.SelectNodes("/DataList/GenJournal/PostingDate/text()")
    Range("G3").Select
    Set DocumentTypeNode = oXMLFile.SelectNodes("/DataList/GenJournal/DocumentType/text()")
    Range("H3").Select
    Set DocumentNoNode = oXMLFile.SelectNodes("/DataList/GenJournal/DocumentNo/text()")
    Range("I3").Select
    Set DescriptionNode = oXMLFile.SelectNodes("/DataList/GenJournal/Description/text()")
    Range("J3").Select
    Set BalAccountNoNode = oXMLFile.SelectNodes("/DataList/GenJournal/BalAccountNo/text()")
    Range("K3").Select
    Set AmountNode = oXMLFile.SelectNodes("/DataList/GenJournal/Amount/text()")
    Range("L3").Select
    Set DebitAmountNode = oXMLFile.SelectNodes("/DataList/GenJournal/DebitAmount/text()")
    Range("M3").Select
    Set CreditAmountNode = oXMLFile.SelectNodes("/DataList/GenJournal/CreditAmount/text()")

我希望我的 XML Map 是通过这种方法自动完成的，但我实际上不能说已经完成了任何事情。我还没有找到其他用户尝试通过 VBA 以编程方式执行这些 XML 映射的示例，但我希望这是可能的。

有没有人有通过 VBA 完成他们自己的 XML 映射的任何提示和/或示例？

My current output