插入文件path作为超链接Excel VBA

我有一个VBA的代码生成一个电子邮件，并自动发送它。

我无法正常工作的一件事情是将超链接放在电子邮件中指定的文件夹位置。

Dim fpath As String fpath = Worksheets("MS_JRNL_OPEN_TU_FR-4333635").Range("AD5").Value "file://" & fpath & _ 

实际上，用户在运行Cell AD5中的macros时必须input一个文件夹位置，但是我希望在生成电子邮件之后，这个位置将显示为完整的文件夹位置。

任何帮助将不胜感激

Answer 1

如果您目前在您的电子邮件代码中使用HTMLBody，则很容易做到。 我假设你正在使用类似于下面的代码。 记下strbody和.HTMLBody 。 假设你的fpath被格式化为C:\Users\tjb1\Desktop\file.docx那么你不需要添加任何东西。 创build超链接的部分是"<A href=" & fpath & ">test link</A>" 。 您可以更改testing链接以表示您想要的任何内容，或者将该行更改为"<A href=" & fpath & ">" & fpath & "</A>"以将path用作链接文本。

 Sub MailURL() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "<A href=" & fpath & ">test link</A>" On Error Resume Next With OutMail .To = "[e-mail]" .Subject = "Testing URL" .HTMLBody = strbody .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub 

我在MrExcel上面find了上面的代码，只是格式化了一下就可以处理你的variables。