C# Excel 下拉事件

Question

我有一个 Excel 电子表格，它位于一个用 C# 编写的自动化测试应用程序中。测试应用程序使用最终统计数据填充工作表，然后使用电子表格生成指标。该过程的一部分是将下拉列表放入电子表格的 L 列，并将其关联的 VBA 更改事件从应用程序写入工作表中。

这是将下拉列表写入电子表格的代码 Excel.DropDown xlDropDown;

//set range for insert cell
 range = wrkSheet.get_Range("L" + (x + 9).ToString() + ":L" + (x + 9).ToString());

//insert the dropdown into the cell
xlDropDown = xlDropDowns.Add((double)range.Left, (double)range.Top, (double)range.Width, (double)range.Height, true);

//set the nbame of the new dropdown
xlDropDown.Name = "expFail" + (x + 1).ToString();

//assign dropdown name to cmbName 
cmbName = xlDropDown.Name;

 //call function to write change macro for this box 
 cmbWriteMacro(cmbName, xlApp, xlBook, wrkSheet); 

cmbWrite 函数：

    StringBuilder sb;
    VBA.VBComponent xlModule;
    VBA.VBProject prj;
    string modName;
    int modExists;

    prj = wrkBook.VBProject;
    modExists = 0;

    sb = new StringBuilder();

    //build string with module code 
    sb.Append("Sub " + cmbName + "_Change()" + "\n");
    sb.Append("\t" + "Call lstBox_Update(" + cmbName + ")" + "\n");
    sb.Append("End Sub");

    foreach (VBA.VBComponent comp in prj.VBComponents)
    {
        modName = comp.Name;

        if (modName == "Module2")
        {
            modExists = 1;
            break;
        }
    }

     //check to see if module already exists
     if (modExists != 1)
     {
        //set an object for the new module to create
        xlModule = wrkBook.VBProject.VBComponents.Add(VBA.vbext_ComponentType.vbext_ct_StdModule);
     }
     else
     {
        xlModule = wrkBook.VBProject.VBComponents.Item("Module2");
     }

     //add the cmbbox macro to the spreadsheet
     xlModule.CodeModule.AddFromString(sb.ToString());

这会将以下 VBA 事件写入电子表格，以便在记录失败时在工作表中执行操作。

Sub expFail1_Change(ByVal Target As Range)
    Call lstBox_Update("expFail1")
End Sub

所有下拉菜单都会根据选择的内容调用相同的函数 (lstBox_Update)。

一切正常。下拉菜单显示在它们应该出现的位置，并且宏正在正确地写入电子表格中。问题似乎是在更改选择时触发相关的更改事件。解决方案可能很简单，但我翻遍了，似乎找不到答案

Answer 1

我只是根据您的代码做了一个小例子。经过一番谷歌搜索和测试一些源代码片段后，它归结为一行代码：

xlDropDown.Name = "expFail" + (x + 1).ToString(); // your code
xlDropDown.OnAction = xlDropDown.Name + "_Change"; // new code: IMPORTANT

在Microsoft KB article 中找到此代码如何使用 Visual C# .NET 中的自动化创建 Excel 宏。

您似乎需要这行代码来设置某种委托指向您的自定义 vba 代码。

如果您需要我的完整来源，请告诉我，我会邮寄给您。

Answer 2

基于this article，您需要将代码写入Worksheet_Change 事件，而不是ComboBox_Change 事件：

Sub Worksheet_Change(ByVal Target As Range)
    Call lstBoxUpdate("expFail1")
End Sub

Answer 3

您必须将更改事件写入创建组合框的工作表（而不是 VBA 模块“module2”。 组合框是 Worksheet(object) 的一部分，所有事件处理程序都必须在那里。