如何在Excel VBA中以电子邮件中的链接的形式发送ActiveWorkbook.Path？

Question

I'm trying to use ActiveWorkbook.Path and ActiveWorkbook.Name to send the excel workbook's file path to someone through email. I got it to work when I input the file path as a string, but for some reason it doesn't recognize the full path when I do it this way. I don't want to use a hard-coded file address in case someone moves it to a different folder. This is what I'm using in the .HTMLBody part of the code:

.HTMLBody = emailtext & "<p>&nbsp;</p>" & "<p><strong>Click this link to go to task verification worksheet: <A href=" & _
        "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "" & ">Verification Workbook</A></strong></p>"

The full path should be D:\\Control Verification\\WorkbookName.xlsm but when I try to click the link it's trying to access D:\\Control. Thanks in advance for any help!

Answer 1

You can simplify your code by using ThisWorkbook.FullName which returns the entire path instead of ActiveWorkbook.Path & "\\" & ActiveWorkbook.Name .

Also, if the workbook you want to send is the one executing the code, it's best to use ThisWorkbook instead of ActiveWorkbook , since ActiveWorkbook can be changed by many events and ThisWorkbook always returns the workbook executing the code.

Answer 2

"<p>&nbsp;</p>" & "<p><strong>Click this link to go to task verification worksheet: <A href=" & _
    """" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & """" & ">Verification Workbook</A></strong></p>"

Adds quotations around the href, as the path: D:\\Control Verification\\WorkbookName.xlsm contains a space in it.

Answer 3

I guess the problem is the ActiveWorkbook is not saved...

Save it somewhere and try this:

Public Sub TestMe()

    ActiveWorkbook.Save

    MsgBox "<p>&nbsp;</p>" & "<p><strong>Click this link: <A href=" & _
           "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "" & _
           ">Verification Workbook</A></strong></p>"

End Sub

In general, try to be a bit careful around "Active" things in VBA ActiveWorkbook , ActiveCell , ActiveSheet - sometimes they can be something else and not the awaited ones - How to avoid using Select in Excel VBA .