VBA子过程传递Range可选参数时范围丢失，Range.Select报错如何解决？

问题核心 #

调用Send_Email过程传递Range参数后，执行RangeB.Select时报错“select method of range class failed”，本质原因是**Select方法要求目标Range所在的工作表必须处于激活状态**，若传递的Range所在工作表未激活，就会触发该错误。同时，依赖Select的写法本身不稳定，不推荐使用。

解决方案 #

方案1：避免使用Select，直接操作Range对象（推荐） #

无需激活工作表或选中Range，直接对Range对象进行操作。比如要将Range内容放入邮件正文，可直接复制或读取值：

' 示例：复制Range内容到剪贴板，后续粘贴到邮件正文
RangeB.Copy

' 或直接读取Range文本内容
Dim emailBody As String
emailBody = RangeB.Value ' 若为多单元格Range，可循环读取或用Join处理

方案2：若必须使用Select，先激活目标工作表 #

如果业务逻辑确实需要使用Select，需先激活Range所在的工作表，再执行Select操作：

' 在RangeB.Select前添加以下代码
RangeB.Parent.Activate ' Parent属性返回Range所属的工作表
RangeB.Select

额外优化建议 #

为避免隐式类型转换带来的潜在问题，建议给Send_Email过程的参数明确声明类型：

Sub Send_Email(Type As Integer, MSG As String, operation As String, Optional RangeB As Range, Optional txtpath As String)
    ' 过程逻辑
End Sub

内容的提问来源于stack exchange，提问作者Matheus Assumpção Solinho