4

我对使用 closedXMl 和 Excel 也很陌生（至少为此目的），如果我问愚蠢的问题，我很抱歉。

我知道 closedXML 还不支持图表，所以唯一想到解决这个问题的是使用excel table创建我的图表。这样，我认为 ClosedXML 会在我插入新行时更新范围，并且图表会选择它。好吧，它没有。至少当我使用 closedXML 库从代码中添加行时不会。

奇怪的是，从 excel 中添加新行会自动更新图表，但如果我想从代码中获得相同的结果，我必须使用 OFFSET 公式和命名范围，然后将图表源数据设置为这些命名范围。这就是为什么我想知道我用来插入新行的代码是否有问题：

    Dim ruta As String = Server.MapPath("~/Templates/MyTemplate.xlsx")
    Dim wb As New XLWorkbook(ruta)
    Dim ws = wb.Worksheet(1)

    Dim tblData = ws.Table("Table1")

    Dim year As Integer = 2000
    For i As Integer = 1 To 13

        With tblData.DataRange.LastRow()
            .Field("Year").SetValue(year)
            .Field("Sales").SetValue(CInt(Math.Floor((2000 - 500 + 1) * Rnd())) + 500)
        End With
        tblData.DataRange.InsertRowsBelow(1)
        year = year + 1
    Next

    tblData.LastRow.Delete()

如您所见，代码非常简单，模板也很简单，它只包含两列：“Year”（table1[Year]）和“Sales”（Table1[Sales]

我认为这与我的模板没有任何关系，因为正如我告诉你的那样，直接从 excel 添加新行按预期工作，只有当我从代码生成表格时，图表系列才不包含新行添加的 在此处输入图像描述

有必要手动添加新范围（Sheet1!Table1[Sales]和Sheet1!Table1[Year]），因为它只包括第一行（插入表格时默认添加的行） 在此处输入图像描述

任何帮助将非常感激

PS 这是一个包含完整代码以及 excel 模板的 rar链接（\Templates\MyTemplate.xlsx）

4

1 回答 1

1

如果问题是您的表无法识别其他行，请尝试在最后一行删除后添加：

tblData.Resize tblData.Range(1, 1).CurrentRegion

那应该调整表格的大小。然后希望您的表操作应该有效。

于 2013-02-27T15:24:17.490 回答