如何通过邮件超链接打开Excel并调用LoadCSV子过程？

我想实现点击邮件中的超链接时，打开指定Excel文件并执行名为LoadCSV的子过程。我编写了VBA代码生成带超链接的邮件，点击链接会弹出确认框，但之后没有任何反应。

我使用的VBA代码 #

Sub EmailWithAttachement()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim EmailAddress As String
    Dim AttachmentPath As String
    Dim MailSubject As String
    Dim MailBody As String
    
    ' 定义邮箱地址、附件路径和邮件主题
    EmailAddress = ThisWorkbook.Sheets("Write").Range("H2").Value
    AttachmentPath = ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Write").Range("I2").Value & ".pdf"
    MailSubject = Worksheets("Write").Range("J2").Value
    ' 创建带onclick事件的超链接，触发OpenExcel函数
    MailBody = "Please click <a href='javascript:void(0);' onclick='OpenExcel()'>here</a> to open Excel and load the CSV file."
   
    ' 检查附件是否存在
    If Dir(AttachmentPath) = "" Then
        MsgBox "Attachment file not found.", vbExclamation
        Exit Sub
    End If
    
    ' 创建Outlook应用和邮件
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    ' 创建并发送邮件
    With OutMail
        .To = EmailAddress
        .Subject = MailSubject
        .HTMLBody = MailBody
        .Attachments.Add AttachmentPath
        .Send ' 发送邮件（原代码注释写的Display，实际用了Send）
    End With
    
    ' 释放对象
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

' 用于打开Excel并加载CSV文件的子过程
Sub OpenExcel()
    ' 打开Excel文件并调用LoadCSV子过程
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open "O:\SYDDEPT-Finance\Sales\Work Tools - DOS\AU PC.xlsm"
    xlApp.Visible = True
    xlApp.Run "LoadCSV"
End Sub

问题原因 #

Outlook和绝大多数邮件客户端都会禁用HTML邮件中的JavaScript代码，这是安全防护机制，所以你写的onclick事件里的OpenExcel()完全不会被执行。

两种可行解决办法 #

办法1：直接链接Excel文件+打开自动执行宏

把邮件里的超链接直接指向目标Excel文件，然后让Excel文件打开时自动运行LoadCSV：

1. 修改邮件正文的超链接代码：

MailBody = "Please click <a href='file://O:\SYDDEPT-Finance\Sales\Work Tools - DOS\AU PC.xlsm'>here</a> to open Excel and load the CSV file."

路径必须用file://协议开头，Windows下反斜杠可以直接保留。

2. 打开AU PC.xlsm文件，按Alt+F11进入VBA编辑器，找到ThisWorkbook，添加以下代码：

Private Sub Workbook_Open()
    LoadCSV ' 文件打开时自动执行LoadCSV子过程
End Sub

注意：用户需要启用宏才能生效，可能需要在Excel信任中心把文件所在路径设为信任位置，或者将文件添加为信任文档。

办法2：用批处理文件中转

如果需要更灵活的控制，可以生成一个批处理文件，邮件链接指向这个批处理，由它启动Excel并执行宏：

1. 在EmailWithAttachement过程中添加生成批处理的代码：

' 生成批处理文件到系统临时目录
Dim batPath As String
batPath = Environ("TEMP") & "\OpenExcelAndRunMacro.bat"
Open batPath For Output As #1
Print #1, "@echo off"
Print #1, "start excel.exe ""O:\SYDDEPT-Finance\Sales\Work Tools - DOS\AU PC.xlsm"" /e""LoadCSV"""
Close #1

' 修改邮件正文的超链接
MailBody = "Please click <a href='file://" & Replace(batPath, "\", "/") & "'>here</a> to open Excel and load the CSV file."

' 可选：把批处理作为附件加入邮件，防止路径失效
.Attachments.Add batPath

注意：用户点击批处理时可能会被系统安全软件拦截，需要提醒用户允许运行。

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