URL-ссылка на файл sharepoint

Question

Я изо всех сил пытаюсь заставить это работать

Strbody = "<font size=""3"" face=""Calibri"">" & _
              Sheets.("Email body".Range("B2") & _
              ActiveWorkbook.Name & "</B> is created.<br>" & _
              "<A HREF=""file://" & "Sharepoint location" &   Activeworkbook & _
              """>Click here to review</A>" & _
              "<br><br>Regards"

Помощь была бы оценена

Answer 1

Всякий раз, когда вы работаете с такой большой строкой, хорошей идеей будет немного разделить ее и посмотреть, откуда исходит ошибка:

Public Sub TestMe()
    Dim strBody As String

    strBody = "<font size=""3"" face=""Calibri"">"
    strBody = strBody & Sheets("Email body" & Range("B2"))
    strBody = strBody & ActiveWorkbook.Name & "</B> is created.<br>"
    strBody = strBody & "<A HREF=""file://" & "Sharepoint location" & ActiveWorkbook
    strBody = strBody & """>Click here to review</A>"
    strBody = strBody & "<br><br>Regards"

    Debug.Print strBody

End Sub

Таким образом, вы увидите, где ошибкаименно так.Я предполагаю, что здесь будет какая-то ошибка: strBody = strBody & "<A HREF=""file://" & "Sharepoint location" & ActiveWorkbook, потому что ActiveWorkbook - это объект, и он вам, вероятно, нужен, если у него есть свойства.Например ActiveWorkbook.Name

Answer 2

Начните с самого начала и построчно.Когда код разбирается с VBEditor, появляется что-то вроде этого:

Это означает, что где-то в скобках есть проблема.В этом случае . не совсем необходим.Тогда продолжай.Я достиг чего-то вроде этого:

Public Sub TestMe()
    Dim strBody As String

    strBody = "<font size=""3"" face=""Calibri"">" & _
              Sheets("Email body" & Range("B2")) & _
              ActiveWorkbook.Name & "</B> is created.<br>" & _
              "<A HREF=""file://" & "Sharepoint location" & ActiveWorkbook & _
              """>Click here to review</A>" & _
              "<br><br>Regards"

    Debug.Print strBody

End Sub