Excel ExcelDNA C# / 尝试复制 Bloomberg BDH() 行为（在 Web 请求后写入数组）

我想复制 Bloomberg BDH 的行为。

BDH 发出 Web 请求并写入数组（但不返回数组样式）。在此 Web 请求期间，该函数返回“#N/A Requesting”。 当 Web 请求完成时，BDH() 函数将数组结果写入工作表中。

例如，在ExcelDNA中，我成功地用线程在工作表中写入。

如果您在 DNA 文件中使用以下代码，结果为

=写入数组(2;2)

will be

1号线 >#N/A Requesting Data (0,1)

2号线 >(1,0) (1,1)

最后一期是要替换#N/A Requesting Data与值并复制公式。 当您取消注释 //xlActiveCellType.InvokeMember("FormulaR1C1Local" 时，您接近结果，但没有正确的行为

文件.dna

 <DnaLibrary Language="CS" RuntimeVersion="v4.0">
<![CDATA[

using System;
using System.Collections.Generic;
using System.Reflection;
using System.Runtime.InteropServices;
using System.Threading;
using ExcelDna.Integration;


    public static class WriteForXL
    {

        public static object[,] MakeArray(int rows, int columns)
        {
            if (rows == 0 && columns == 0)
            {
                rows = 1;
                columns = 1;
            }


            object[,] result = new string[rows, columns];
            for (int i = 0; i < rows; i++)
            {
                for (int j = 0; j < columns; j++)
                {
                    result[i, j] = string.Format("({0},{1})", i, j);
                }
            }

            return result;
        }

        public static object WriteArray(int rows, int columns)
        {
            if (ExcelDnaUtil.IsInFunctionWizard())
                return "Waiting for click on wizard ok button to calculate.";

            object[,] result = MakeArray(rows, columns);

            var xlApp = ExcelDnaUtil.Application;
            Type xlAppType = xlApp.GetType();
            object caller = xlAppType.InvokeMember("ActiveCell", BindingFlags.GetProperty, null, xlApp, null);
            object formula = xlAppType.InvokeMember("FormulaR1C1Local", BindingFlags.GetProperty, null, caller, null);

            ObjectForThread q = new ObjectForThread() { xlRef = caller, value = result, FormulaR1C1Local = formula };

            Thread t = new Thread(WriteFromThread);
            t.Start(q);            

            return "#N/A Requesting Data";
        }

        private static void WriteFromThread(Object o)
        {
            ObjectForThread q = (ObjectForThread) o;

            Type xlActiveCellType = q.xlRef.GetType();

            try
            {
                for (int i = 0; i < q.value.GetLength(0); i++)
                {
                    for (int j = 0; j < q.value.GetLength(1); j++)
                    {
                        if (i == 0 && j == 0)
                            continue;

                        Object cellBelow = xlActiveCellType.InvokeMember("Offset", BindingFlags.GetProperty, null, q.xlRef, new object[] { i, j });
                        xlActiveCellType.InvokeMember("Value", BindingFlags.SetProperty, null, cellBelow, new[] { Type.Missing, q.value[i, j] });             
                    }
                }                               
            }
            catch(Exception e)
            {                
            }
            finally
            {
                //xlActiveCellType.InvokeMember("Value", BindingFlags.SetProperty, null, q.xlRef, new[] { Type.Missing, q.value[0, 0] });
                //xlActiveCellType.InvokeMember("FormulaR1C1Local", BindingFlags.SetProperty, null, q.xlRef, new [] { q.FormulaR1C1Local });               
            }
        } 

public class ObjectForThread
        {
            public object xlRef { get; set; }
            public object[,] value { get; set; }
            public object FormulaR1C1Local { get; set; }
        }

    }

    ]]>

</DnaLibrary>

@戈弗特

BDH已成为金融行业的标准。人们不知道如何操作数组（甚至不知道如何操作 Ctrl+Shift+Enter）。

BDH 正是使彭博社如此受欢迎的功能（对路透社来说是不利的）。

不过我会考虑使用你的方法或 RTD。

感谢您在 Excel DNA 中所做的所有工作

我想你已经尝试过Excel-DNA https://github.com/Excel-DNA/ExcelDna 数组调整器 http://excel-dna.net/2011/01/30/resizing-excel-udf-result-arrays/示例，它小心地避免了您遇到的许多问题。我想了解您认为数组公式编写方法的缺点是什么。

现在，关于你的功能：

首先，您无法安全地将“调用者”Range COM 对象传递给另一个线程 - 而是传递带有地址的字符串，并从另一个线程获取 COM 对象（在工作线程上使用对 ExcelDnaUtil.Application 的调用）。不过，大多数时候你会很幸运。 更好的方法是从工作线程让 Excel 在主线程上运行宏 - 通过调用 Application.Run。 Excel-DNA ArrayResizer 示例展示了如何完成此操作。

其次，您几乎肯定不需要 ActiveCell，而是 Application.Caller。 ActiveCell 很可能与运行公式的单元格无关。

接下来 - 每次您再次设置公式时，Excel都会重新计算您的函数 - 因此，当您在finally子句中启用公式集时，会让您陷入无限循环。您不能同时设置单元格的值和公式- 如果单元格有公式，那么 Excel 将使用该公式来计算值。如果设置值，公式将被删除。 目前尚不清楚您想要在 [0,0] 单元格中实际保留什么 - IIRC Bloomberg 修改了那里的公式，使其记住写入的范围有多大。您可以尝试向函数添加一些参数，告诉函数是否重新计算或是否返回实际值作为结果。

最后，您可能需要重新考虑 Bloomberg BDH 功能是否是您想要做的事情的一个很好的例子。它破坏了工作表的依赖性计算，这对性能和维护电子表格模型的一致性都有影响。