如何將列添加到存盤為VB.NETXMLLiteral的MSOfficeExcel電子表格-有解無憂

背景

我有一個 Excel 電子表格，已保存為 2003 XML 電子表格，并將其粘貼到使用 VS 2022 創建的控制臺模式 VB.NET 程式中。

目標

我想使用 VB.NET 自動添加一些列。

觀察

我看到 MSExcel 廣泛使用了 XML 命名空間：

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
    <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
       xmlns:o="urn:schemas-microsoft-com:office:office"
       xmlns:x="urn:schemas-microsoft-com:office:excel"
       xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"                                    
       xmlns:html="http://www.w3.org/TR/REC-html40">
      <Worksheet ss:Name="197 Industry Groups">
        <Table ss:ExpandedColumnCount="10" ss:ExpandedRowCount="198" x:FullColumns="1"
          x:FullRows="1" ss:DefaultColumnWidth="42" ss:DefaultRowHeight="11.25">
          <Row>
             <Cell><Data ss:Type="String">Order</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>
             <Cell><Data ss:Type="String">Symbol</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>
           </Row>
           <Row>
             <Cell><Data ss:Type="Number">2</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>
             <Cell ss:StyleID="s62" ss:HRef="https://marketsmith.investors.com/mstool?Symbol=G1000"><Data
                                                                                                                                                 ss:Type="String">G1000</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>

計劃

使用 XPath 獲取對第一行的參考并使用這篇文章作為指南向其中添加一個單元格

問題

我需要向 namespaceManager 添加哪些命名空間？AddNameSpace 函式的第二個 (uri) 引數應該使用什么？我需要添加一個空的命名空間嗎？
為什么值 g2 和 g1000 的值是 Nothing？

        Dim g2 = industryGroups.XPathSelectElement("//ss:Workbook/ss:Worksheet/ss:Table/ss:Row[0]", namespaceManager)
        Dim g1000 = (From p In industryGroups.Descendants("Table") Select p).FirstOrDefault()

如何使用其他單元格作為模式添加新的 XElement（單元格）（即每個單元格都包含具有屬性的資料，或者在某些情況下單元格將具有 href 屬性）。我可以使用 XML 文字功能并嵌入我計算的 href、字串和數字嗎？

謝謝！

齊格弗里德

uj5u.com熱心網友回復：

以下內容應該對問題 #1 和 #2 有所幫助：

添加以下 Imports 陳述句：

Imports System.Xml
Imports System.Xml.XPath

代碼：

Dim xDoc As XDocument = XDocument.Load(filename)

Debug.WriteLine($"xDoc: {xDoc.ToString()}")

'add namespaces that exist in XML file
Dim nsSS As XNamespace = "urn:schemas-microsoft-com:office:spreadsheet"

'Dim dataItems = From x In xDoc.Descendants(nsSS   "Workbook").Descendants(nsSS   "Worksheet").Descendants(nsSS   "Table").Descendants(nsSS   "Row").Descendants(nsSS   "Cell").Descendants(nsSS   "Data") Select x
'Dim dataItems = From x In xDoc.Descendants("{urn:schemas-microsoft-com:office:spreadsheet}Workbook").Descendants("{urn:schemas-microsoft-com:office:spreadsheet}Worksheet").Descendants("{urn:schemas-microsoft-com:office:spreadsheet}Table").Descendants("{urn:schemas-microsoft-com:office:spreadsheet}Row").Descendants("{urn:schemas-microsoft-com:office:spreadsheet}Cell").Descendants("{urn:schemas-microsoft-com:office:spreadsheet}Data") Select x
Dim dataItems = From x In xDoc.Descendants(nsSS   "Table").Descendants(nsSS   "Row").Descendants(nsSS   "Cell").Descendants(nsSS   "Data") Select x

Debug.WriteLine($"dataItems: {dataItems.Count.ToString()} Type: {dataItems.GetType.ToString()}")

If dataItems IsNot Nothing Then
    For Each item In dataItems
        Debug.WriteLine($"{item.ToString()}")
    Next
End If

代碼：

Dim xDoc As XDocument = XDocument.Load(filename)

'Debug.WriteLine($"xDoc: {xDoc.ToString()}")

'add namespaces that exist in XML file
Dim nsMgr = New XmlNamespaceManager(New NameTable())
nsMgr.AddNamespace("", "urn:schemas-microsoft-com:office:spreadsheet")
nsMgr.AddNamespace("o", "urn:schemas-microsoft-com:office:office")
nsMgr.AddNamespace("x", "urn:schemas-microsoft-com:office:excel")
nsMgr.AddNamespace("ss", "urn:schemas-microsoft-com:office:spreadsheet")
nsMgr.AddNamespace("html", "http://www.w3.org/TR/REC-html40")

Dim g2 = xDoc.XPathSelectElement("ss:Workbook/ss:Worksheet/ss:Table", nsMgr)
Debug.WriteLine($"g2: {g2.ToString()}")

測驗.xml：

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
  <Author>TestUser</Author>
  <LastAuthor>TestUser</LastAuthor>
  <Created>2022-04-02T14:35:55Z</Created>
  <LastSaved>2022-04-02T14:37:37Z</LastSaved>
  <Version>16.00</Version>
 </DocumentProperties>
 <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
  <AllowPNG/>
 </OfficeDocumentSettings>
 <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
  <WindowHeight>5955</WindowHeight>
  <WindowWidth>17970</WindowWidth>
  <WindowTopX>32767</WindowTopX>
  <WindowTopY>32767</WindowTopY>
  <ProtectStructure>False</ProtectStructure>
  <ProtectWindows>False</ProtectWindows>
 </ExcelWorkbook>
 <Styles>
  <Style ss:ID="Default" ss:Name="Normal">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
  <Style ss:ID="s62">
   <NumberFormat ss:Format="0"/>
  </Style>
 </Styles>
 <Worksheet ss:Name="Sheet1">
  <Table ss:ExpandedColumnCount="3" ss:ExpandedRowCount="3" x:FullColumns="1"
   x:FullRows="1" ss:DefaultRowHeight="15">
   <Column ss:StyleID="s62"/>
   <Row>
    <Cell><Data ss:Type="String">Id</Data></Cell>
    <Cell><Data ss:Type="String">FirstName</Data></Cell>
    <Cell><Data ss:Type="String">LastName</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="Number">1</Data></Cell>
    <Cell><Data ss:Type="String">John</Data></Cell>
    <Cell><Data ss:Type="String">Smith</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="Number">2</Data></Cell>
    <Cell><Data ss:Type="String">Bob</Data></Cell>
    <Cell><Data ss:Type="String">Seagul</Data></Cell>
   </Row>
  </Table>
  <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
   <PageSetup>
    <Header x:Margin="0.3"/>
    <Footer x:Margin="0.3"/>
    <PageMargins x:Bottom="0.75" x:Left="0.7" x:Right="0.7" x:Top="0.75"/>
   </PageSetup>
   <Print>
    <ValidPrinterInfo/>
    <HorizontalResolution>600</HorizontalResolution>
    <VerticalResolution>600</VerticalResolution>
   </Print>
   <Selected/>
   <Panes>
    <Pane>
     <Number>3</Number>
     <ActiveRow>2</ActiveRow>
     <ActiveCol>2</ActiveCol>
    </Pane>
   </Panes>
   <ProtectObjects>False</ProtectObjects>
   <ProtectScenarios>False</ProtectScenarios>
  </WorksheetOptions>
 </Worksheet>
</Workbook>

資源：

包含命名空間的 XDocument
如何將 XPath 與 XDocument 一起使用？
XDocument 類

轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/455658.html

標籤：擅长 xml VB.net

上一篇：是否可以在函式中創建DataGridViewRow，獨立于控制元件，然后通過呼叫程序將其添加到任意控制元件？

下一篇：VB中的DataGridView口吃