如何借助Microsoft.Office.Interop.Excel通过CodeName直接获取Worksheet对象

可以直接通过CodeName定位目标工作表，无需遍历所有工作表，以下是两种可行方案：

方案1：通过VBAProject组件定位 #

CodeName本质是工作表在VBA项目中的组件名称，因此可以通过访问工作簿的VBProject对象直接获取对应工作表。需要先添加对Microsoft.Vbe.Interop的引用，同时确保Excel信任中心允许访问VBA项目对象模型（否则会触发权限异常）。

代码示例：

using Microsoft.Office.Interop.Excel;
using Microsoft.Vbe.Interop;

// 获取当前活动工作簿
Workbook targetWorkbook = Globals.ThisAddIn.Application.ActiveWorkbook;
VBProject vbaProject = targetWorkbook.VBProject;

// 查找指定CodeName的工作表
foreach (VBComponent component in vbaProject.VBComponents)
{
    // 筛选工作表类型的组件，并匹配CodeName
    if (component.Type == vbext_ComponentType.vbext_ct_Document && component.Name.Equals("TemplateSheetCodeName", StringComparison.Ordinal))
    {
        Worksheet templateSheet = (Worksheet)component.Object;
        // 执行复制操作，例如：
        templateSheet.Copy(After: targetWorkbook.Sheets[targetWorkbook.Sheets.Count]);
        break;
    }
}

方案2：直接通过CodeName对象访问（仅限特定场景） #

如果你的XLL加载项是基于VSTO或与Excel对象模型深度集成的项目，且目标工作表的CodeName已在Excel对象模型中注册为可访问对象，可以直接通过名称调用：

Worksheet templateSheet = Globals.ThisAddIn.Application.TemplateSheetCodeName;

但这种方式依赖于Excel的内部对象映射，稳定性不如方案1，仅适用于固定模板且CodeName不会变更的场景。

注意事项 #

• 确保Excel信任中心设置中勾选"信任对VBA项目对象模型的访问"，否则方案1会抛出权限错误。
• CodeName匹配时建议使用严格大小写对比（StringComparison.Ordinal），避免因Excel语言环境差异导致匹配失败。

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