0

我正在尝试使用 linq 读取和修改一些 Excel XML，首先我获取名为Datagrid的工作表 从那里我选择第一行（使用索引）现在我想在该行中找到属性为atrHeader的单元格

    Dim dg = From item In root...<ss:Worksheet> Select item Where item.@ss:Name = "Datagrid"
    Dim r = From item In dg...<Table>...<Row> Select item Where item.@ss:Index = 1 row
    Dim cell = From item In r...<Cell> Select item Where item.@ecProperty = "atrHeader"

在这一点上一切都很好。现在我想做的是创建一个新单元格并将其插入到找到的单元格之前。

    Dim newCell As New XElement("cell", 123)
    cell.First.AddBeforeSelf(newCell)

保存文件后，我看到了它应该在的新值

    <cell xmlns="">123</cell>

但是我需要它像

   <ss:Cell>123</ss:Cell>

如果我在创建新元素时尝试使用“ss:cell”，我会收到一个 RTE 说“:”不能被包含

我的代码顶部已经有以下导入语句：

Imports <xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet">

初始 XML

  <ss:Worksheet ss:Name="Datagrid">
    <ss:Table ss:ExpandedColumnCount="17" ss:ExpandedRowCount="5" x:FullColumns="1" x:FullRows="1" ss:DefaultRowHeight="15">
      <ss:Row ss:Index="1" ss:AutoFitHeight="0">
        <ss:Cell ecProperty="model_name" ss:StyleID="styleReadOnly">
          <ss:Data ss:Type="String">Joe's Project</ss:Data>
        </ss:Cell>
        <ss:Cell ss:Index="6" ss:StyleID="styleColumnDescription">
          <ss:Data ss:Type="String">Type</ss:Data>
        </ss:Cell>
        <ss:Cell ecProperty="atrHeader" ss:Index="7">
          <ss:Data ss:Type="String">blank</ss:Data>
        </ss:Cell>
      </ss:Row>
      <ss:Row ss:AutoFitHeight="0" ss:Index="2">
        <ss:Cell ecProperty="email_address" ss:StyleID="styleBiDirectional">
          <ss:Data ss:Type="String">joe@ec.com</ss:Data>
        </ss:Cell>
        <ss:Cell ss:Index="6" ss:StyleID="styleColumnDescription">
          <ss:Data ss:Type="String">Full Path</ss:Data>
        </ss:Cell>
        <ss:Cell ecProperty="atrHeader" ss:Index="7">
          <ss:Data ss:Type="String">blank</ss:Data>
        </ss:Cell>
      </ss:Row>
    </ss:Table>
  </ss:Worksheet>
4

1 回答 1

0

导入命名空间仅允许您在处理 XML 文字和查询 (AFAIK) 时获得设计时支持。这使您可以像以前一样编写查询并创建文字元素。您也可以将 your 创建newCell为文字。

Dim newCell = <ss:cell>123</ss:cell>

否则，您需要一个XNamespace来创建您的元素。

Dim ss As XNamespace = "urn:schemas-microsoft-com:office:spreadsheet"
Dim newCell As New XElement(ss + "cell", 123)
于 2012-08-18T19:28:19.203 回答