VBA中如何通过CodeName引用外部工作簿Book4的工作表？

你遇到的问题核心是：工作表的CodeName是VBA工程内部的专属标识符，默认不能跨工作簿直接引用。

为什么用工作表名称可以？ #

Workbooks("Book4").Worksheets("Text")是通过工作表的Name属性查找的，这个属性属于工作表对象的公开属性，任何外部工作簿都可以直接访问。

为什么用CodeName不行？ #

Sheet1作为CodeName，本质是你在Book4的VBA工程里定义的「内部变量」，当前工作簿的VBA代码无法直接识别外部工程里的这个标识符，所以直接写Workbooks("Book4").Sheet1会报错或无效。

解决方法 #

方法1：遍历工作表匹配CodeName

这是最通用的方法，不需要修改外部工作簿的设置：

Dim targetWs As Worksheet
' 遍历Book4的所有工作表，找到CodeName为Sheet1的表
For Each targetWs In Workbooks("Book4").Worksheets
    If targetWs.CodeName = "Sheet1" Then
        Text = targetWs.Range("A2").Value
        Exit For ' 找到后退出循环，避免不必要的遍历
    End If
Next targetWs

方法2：添加外部工程引用（仅限固定路径场景）

如果Book4的文件路径固定，且你有权限修改它的VBA设置，可以这么做：

1. 打开Book4的VBA编辑器，在「工程资源管理器」里右键点击Book4的工程，选择「属性」，设置一个唯一的工程名（比如Book4_Project）。
2. 回到当前工作簿的VBA编辑器，点击菜单「工具」->「引用」，在列表里找到刚才设置的Book4_Project并勾选，确定。
3. 之后就能直接用CodeName引用了：

   Text = Book4_Project.Sheet1.Range("A2").Value
   

   注意：如果Book4的文件位置移动，引用会失效，所以只适合文件路径固定的场景。

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