如何使用Excel DNA对行进行迭代

Question

我正在寻找一个简单的excel dna迭代工作表中细胞的例子。我想我会有这样的东西：

public static class Test {
    [ExcelCommand(MenuName = "Range Tools", MenuText = "Iterator")]
    public static void IterateOverRows(string worksheetName, string startAddress, string endAddress) {
    ...
    }
}

我会使用一个按钮点击从Excel调用这个加载项，它将运行：

   Application.Run("IterateOverRows", "Sheet1", "A1", "C3")

关于如何在Excel DNA中做到这一点，有什么建议吗？

Answer 1

这是有效的：

using Excel = Microsoft.Office.Interop.Excel;
[ExcelCommand]
public static void IterateOverRows(string worksheetName, string startAddress, string endAddress) {
    var app = (Excel.Application)ExcelDnaUtil.Application;
    var ws = (Excel.Worksheet)app.ActiveWorkbook.Sheets[worksheetName];
    var rows = ws.Range[$"{startAddress}:{endAddress}"].Rows.OfType<Excel.Range>();
    foreach (var row in rows) {
        row.Cells[1, 1].Value = "aaaa";
    }
}

或者，您可以使用它并将其称为Application.Run "IterateOverRows2", [Sheet1!B2:C10]:

[ExcelCommand]
public static void IterateOverRows2([ExcelArgument(AllowReference = true)] object range) {
    var app = (Excel.Application)ExcelDnaUtil.Application;
    var xlRng = app.Range[XlCall.Excel(XlCall.xlfReftext, (ExcelReference)range, true)];
    var rows = xlRng.Rows.OfType<Excel.Range>();
    foreach (var row in rows) {
        row.Cells[1, 1].Value = "aaaa";
    }
}