Access VBA导出Excel时添加可点击mailto邮件链接问题

你的代码问题出在两处逻辑细节：一是先手动给单元格赋值再添加超链接的操作冲突，二是未明确指定Range所属的目标工作表，导致超链接地址解析异常。

修正后的代码如下：

sCell1 = "B" & iRow
sEmail = "mailto:" & ![Email]
' 为目标单元格添加mailto超链接，同时指定显示文本
xlSheet.Hyperlinks.Add Anchor:=xlSheet.Range(sCell1), _
                       Address:=sEmail, _
                       TextToDisplay:=![Email]

修改说明： #

• 移除了单独设置xlSheet.Cells(iRow, 2) = ![Email]的步骤，改用Hyperlinks.Add的TextToDisplay参数控制单元格显示的文本，避免手动赋值和超链接属性冲突。
• 明确将Anchor参数指向xlSheet.Range(sCell1)，确保操作的是导出目标工作表的单元格，而非当前激活的工作表（这是跨工作表VBA操作的常见误区）。
• 保留Address参数为完整的mailto:邮箱地址格式，Excel会正确识别该协议，点击时直接唤起默认邮件客户端并自动填入收件人地址。

修改后测试：单元格显示纯邮箱地址，点击后不会再出现“此站点地址无效”的提示，可直接调用邮件客户端。

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