Excel.Workbook 和 Excel.Worksheet 的通用方法

Question

我正在编写一个 Excel 插件，我需要为其中一个函数计算一些汇总统计信息。这些应作为名称添加到整个 Workbook 或单个 Worksheet。现在我有两种方法可以完成每件事。然而，这两种方法看起来几乎完全相同，区别在于第一种方法将名称添加到工作簿，第二种方法添加到工作表。

有没有办法使此方法更通用，以便根据传递的参数检查提供的工作表是否 null，如果是，则添加到整个工作簿？

    /// <summary>
    /// Generate dynamic summary statistics as <see cref="Name"/>s in the specified <see cref="Workbook"/>.
    /// </summary>
    /// <param name="range">The <see cref="Range"/> of the data that needs summary statistics.</param>
    /// <param name="doCalculate">Defines which variables in the summary have to be calculated.</param>
    public DynamicSummaryStatistics(Range range, SummaryStatisticsBool doCalculate)
    {
        var book = Globals.ThisAddIn.Application.ActiveWorkbook;
        var name = ((Name)range.Name).Name;
        if (doCalculate.Mean) Mean = book.Names.Add(name + "_MEAN", "=AVERAGE(" + name + ")");
        if (doCalculate.Variance) Variance = book.Names.Add(name + "_VAR", "=VAR.S(" + name + ")");
        if (doCalculate.StdDev) StdDev = book.Names.Add(name + "_STDEV", "=STDEV.S(" + name + ")");
        if (doCalculate.Minimum) Minimum = book.Names.Add(name + "_MINIMUM", "=MIN(" + name + ")");
        if (doCalculate.Quartile1) Quartile1 = book.Names.Add(name + "_QUARTILE1", "=QUARTILE.INC(" + name + ",1)");
        if (doCalculate.Median) Median = book.Names.Add(name + "_MEDIAN", "=MEDIAN(" + name + ")");
        if (doCalculate.Quartile3) Quartile3 = book.Names.Add(name + "_QUARTILE3", "=QUARTILE.INC(" + name + ",3)");
        if (doCalculate.Maximum) Maximum = book.Names.Add(name + "_MAXIMUM", "=MAX(" + name + ")");
        if (doCalculate.InterquartileRange) InterquartileRange = book.Names.Add(name + "_IQR", "=" + Quartile3.Name + "-" + Quartile1.Name);
        if (doCalculate.Skewness) Skewness = book.Names.Add(name + "_SKEW", "=SKEW(" + name + ")");
        if (doCalculate.Kurtosis) Kurtosis = book.Names.Add(name + "_KURT", "=KURT(" + name + ")");
        if (doCalculate.MeanAbsDev) MeanAbsDev = book.Names.Add(name + "_AVEDEV", "=AVEDEV(" + name + ")");
        if (doCalculate.Mode)
        {
            Mode = book.Names.Add(name + "_MODE", "=MODE.SNGL(" + name + ")");
            try
            {
                Globals.ThisAddIn.Application.WorksheetFunction.Mode_Sngl(range);
                HasMode = true;
            }
            catch
            {
                HasMode = false;
            }
        }
        if (doCalculate.Range) Range = book.Names.Add(name + "_RANGE", "=" + Maximum.Name + "-" + Minimum.Name);
        if (doCalculate.Count) Count = book.Names.Add(name + "_COUNT", "=COUNT(" + name + ")");
        if (doCalculate.Sum) Sum = book.Names.Add(name + "_SUM", "=SUM(" + name + ")");
    }

    /// <summary>
    /// Generate dynamic summary statistics as <see cref="Name"/>s in the specified <see cref="Worksheet"/>.
    /// </summary>
    /// <param name="sheet">The <see cref="Worksheet"/> on which the <see cref="Name"/>s should be generated.</param>
    /// <param name="range">The <see cref="Range"/> of the data that needs summary statistics.</param>
    /// <param name="doCalculate">Defines which variables in the summary have to be calculated.</param>
    public DynamicSummaryStatistics(Worksheet sheet, Range range, SummaryStatisticsBool doCalculate)
    {
        var name = ((Name)range.Name).Name;
        if (doCalculate.Mean) Mean = sheet.Names.Add(name + "_MEAN", "=AVERAGE(" + name + ")");
        if (doCalculate.Variance) Variance = sheet.Names.Add(name + "_VAR", "=VAR.S(" + name + ")");
        if (doCalculate.StdDev) StdDev = sheet.Names.Add(name + "_STDEV", "=STDEV.S(" + name + ")");
        if (doCalculate.Minimum) Minimum = sheet.Names.Add(name + "_MINIMUM", "=MIN(" + name + ")");
        if (doCalculate.Quartile1) Quartile1 = sheet.Names.Add(name + "_QUARTILE1", "=QUARTILE.INC(" + name + ",1)");
        if (doCalculate.Median) Median = sheet.Names.Add(name + "_MEDIAN", "=MEDIAN(" + name + ")");
        if (doCalculate.Quartile3) Quartile3 = sheet.Names.Add(name + "_QUARTILE3", "=QUARTILE.INC(" + name + ",3)");
        if (doCalculate.Maximum) Maximum = sheet.Names.Add(name + "_MAXIMUM", "=MAX(" + name + ")");
        if (doCalculate.InterquartileRange) InterquartileRange = sheet.Names.Add(name + "_IQR", "=" + Quartile3.Name + "-" + Quartile1.Name);
        if (doCalculate.Skewness) Skewness = sheet.Names.Add(name + "_SKEW", "=SKEW(" + name + ")");
        if (doCalculate.Kurtosis) Kurtosis = sheet.Names.Add(name + "_KURT", "=KURT(" + name + ")");
        if (doCalculate.MeanAbsDev) MeanAbsDev = sheet.Names.Add(name + "_AVEDEV", "=AVEDEV(" + name + ")");
        if (doCalculate.Mode)
        {
            Mode = sheet.Names.Add(name + "_MODE", "=MODE.SNGL(" + name + ")");
            try
            {
                Globals.ThisAddIn.Application.WorksheetFunction.Mode_Sngl(range);
                HasMode = true;
            }
            catch
            {
                HasMode = false;
            }
        }
        if (doCalculate.Range) Range = sheet.Names.Add(name + "_RANGE", "=" + Maximum.Name + "-" + Minimum.Name);
        if (doCalculate.Count) Count = sheet.Names.Add(name + "_COUNT", "=COUNT(" + name + ")");
        if (doCalculate.Sum) Sum = sheet.Names.Add(name + "_SUM", "=SUM(" + name + ")");
    }

Answer 1

与其尝试访问 Workbook 和 Worksheet 泛型，不如说提供一个 Func<string, string, Name> 允许访问调用 Workbook或者 Worksheet 会是更好的方法。

public DynamicSummaryStatistics(Range range, SummaryStatisticsBool doCalculate)
{
    var functionToRun = (arg1, arg2) => Globals.ThisAddIn.Application.ActiveWorkbook.Names.Add(arg1, arg2);

    this.ComputeDynamicSummaryStatistics(range, doCalculate, functionToRun);
}

public DynamicSummaryStatistics(Worksheet sheet, Range range, SummaryStatisticsBool doCalculate)
{
    var functionToRun = (arg1, arg2) => sheet.Names.Add(arg1, arg2);

    this.ComputeDynamicSummaryStatistics(range, doCalcualte, functionToRun);
}

private void ComputeDynamicSummaryStatistics(Range range, SummaryStatisticsBool doCalculate, Func<string, string, Name> functionToRun)
{
    var name = ((Name)range.Name).Name;
    if(doCalculate.Mean) Mean = functionToRun(name + "_MEAN", "=AVERAGE(" + name + ")");
    if(doCalculate.Variance) Variance = functionToRun(name + "_VAR", "=VAR.S(" + name + ")");
    // etc. etc.
}

所以这是在函数 ComputeDynamicSummaryStatistics 中说的，每次我调用 functionToRun 时，我都会根据调用的构造函数调用 sheet.Names.Add(...) 或 Globals.ThisAddIn.Application.ActiveWorkbook.Names.Add(...)。

该方法完全不知道 Workbook 或 Worksheet 的访问，它现在关心的只是提供要添加的名称。

Excel.Workbook 和 Excel.Worksheet 的通用方法

Generic method for Excel.Workbook and Excel.Worksheet

c#

excel

vsto

generic-programming