MS Access VBA 将电子邮件链接添加到 Excel 工作表

Question

我有一个 Access 数据库，可将数据导出到电子表格。一列包含电子邮件地址，我希望这些地址成为数据库表中指向电子邮件地址的可单击链接。目前执行此操作的代码行如下所示：

    sCell1 = "B" & iRow
    xlSheet.Cells(iRow, 2) = ![Email]
    sEmail = "mailto:" & ![Email] 
    xlSheet.Hyperlinks.Add Range(sCell1), Address:=sEmail

！[Email] 是相关表中的电子邮件字段。

这成功地将电子邮件地址作为超链接添加到单元格中，但是，mailto: 消失了，只有 ![Email] 字段的内容被放置在单元格中。单击 Excel 中的链接会生成“此站点的地址无效”。我尝试了对地址的各种修改，添加单引号，将其括在 HTML 中，等等。似乎没有任何东西可以为单元格提供必要的 mailto: 来启动电子邮件包。

Answer 1

我无法从 Access 进行测试，但请尝试

sCell1 = "B" & iRow
xlSheet.Hyperlinks.Add Anchor:=xlSheet.Range(sCell1), Address:="mailto:" & Email, TextToDisplay:=Email

如果您使用后期绑定，您可能需要使用

sCell1 = "B" & iRow
xlSheet.Hyperlinks.Add xlSheet.Range(sCell1), "mailto:" & Email, , , Email