如何在C#中生成关联指定Excel工作表的VBA代码？

方案一：将VBA代码写入指定工作表的代码模块 #

工作表对应的代码模块属于工作簿VBProject的一部分，不需要新建标准模块，直接获取目标工作表的VBComponent即可：

// 替换为你的目标工作表名称，比如"Sheet1"
string targetSheetName = "Sheet1";
VBE.VBComponent sheetCodeModule = WB.VBProject.VBComponents.Item(targetSheetName);
var VBA_Code = sheetCodeModule.CodeModule;

// 在模块末尾添加按钮点击事件代码
int lineNum = VBA_Code.CountOfLines + 1;
VBA_Code.InsertLines(lineNum, "Public Sub CommandButton1_Click()");
VBA_Code.InsertLines(lineNum + 1, "    Call SeriesToggle(1)");
VBA_Code.InsertLines(lineNum + 2, "    If (ActiveWorkbook.Sheets(1).ChartObjects(1).Chart.FullSeriesCollection(1).IsFiltered) Then");
VBA_Code.InsertLines(lineNum + 3, "        CommandButton1.BackColor = RGB(240, 240, 240)");
VBA_Code.InsertLines(lineNum + 4, "    Else");
VBA_Code.InsertLines(lineNum + 5, "        CommandButton1.BackColor = RGB(146, 208, 80)");
VBA_Code.InsertLines(lineNum + 6, "    End If");
VBA_Code.InsertLines(lineNum + 7, "End Sub");

这种方式和你原VBA程序的逻辑一致，代码处于工作表的作用域内，能直接访问工作表中的CommandButton1。

方案二：修改标准模块中的代码，明确引用按钮所属工作表 #

如果要保留标准模块的存放方式，必须给CommandButton1加上所属工作表的限定——标准模块没有默认的工作表上下文，直接引用按钮会因作用域问题找不到对象：

Public Sub CommandButton1_Click()
    Call SeriesToggle(1)
    ' 明确指定按钮所在的工作表，替换为你的目标工作表
    Dim btnSheet As Worksheet
    Set btnSheet = ActiveWorkbook.Sheets("Sheet1")
    
    If btnSheet.ChartObjects(1).Chart.FullSeriesCollection(1).IsFiltered Then
        btnSheet.CommandButton1.BackColor = RGB(240, 240, 240)
    Else
        btnSheet.CommandButton1.BackColor = RGB(146, 208, 80)
    End If
End Sub

注意事项 #

• 操作Excel的VBProject需要在Excel信任中心启用信任对VBA项目对象模型的访问，否则C#代码会抛出权限异常。
• 尽量使用工作表名称而非索引（比如Sheets("Sheet1")而非Sheets(1)），避免工作表顺序变动导致引用错误。

内容的提问来源于stack exchange，提问作者Steve5785