Question

我在Outlook中创建一个宏来读取存储在Excel文件中的文件路径并创建超链接。我很接近它的工作，但最后一点代码让我疯了。我有一个文件路径的字符串存储在一个名为FilePath的变量中。当我将html写入超链接时，显示的文本是单词FilePath而不是变量应该保存的字符串。我知道我只是弄乱了引文，但是我扯掉了我的头发试图找出合适的位置放在哪里。这是我的代码：

k = 0
For i = 1 To UBound(arr)
    FilePath = arr(k)
    oMsg.HTMLBody = "<a href = ""file:\\" & FilePath & """>FilePath</a>" & "<br>" & oMsg.HTMLBody
    k = k + 1
Next i

超链接是正确的，我可以在单击它时打开文件，但所有链接都说FilePath而不是实际的文件路径。任何指向正确方向的人都会非常感激。

Answer 1

在属性值上使用单引号可以简化您的引用：

k = 0
For i = 1 To UBound(arr)
    FilePath = arr(k)
    oMsg.HTMLBody = "<a href='file://" & FilePath & "'>" & _
                      FilePath & "</a><br>" & oMsg.HTMLBody
    k = k + 1
Next i

注意 - 使用file://

时通常会使用正斜杠

使用变量在Outlook VBA中创建超链接时显示文件路径（html和字符串连接）

1 个答案: