Excel 2010 VBA на Hyperlink Active Cell для себя, так что это приведет к его точному местоположению, когда эта ячейка вставляется и отправляется в электронной почте Outlook

Question

Цель: Excel 2010 - VBA подключить к активной ячейке Hyperlink Active Cell, поэтому это приведет к ее точному расположению в электронной таблице с момента вставки и отправки этой ячейки в электронную почту Outlook. Мне нужно сохранить содержимое ячейки Excel в неизменном виде - продолжать отображать все, что у меня есть, не связанное с гиперссылкой и т.д. Эта ячейка будет отправлена по электронной почте. Необходимо иметь возможность щелкнуть ячейку в сообщении электронной почты Outlook, чтобы гиперссылка открыла электронную таблицу и выбрала точное местоположение ячейки в этой электронной таблице. Единственный элемент, который отсутствует - это гиперссылка. Код VBA, который я имею ниже, выдает ошибку (выделение желтым цветом) детали гиперссылками. Извините, если я не вставляю код в соответствии с правилами - я, вероятно, не понимаю их. Спасибо за помощь!

Sub H_Link_Cell_to_Self
Dim path As String
Dim sheet As String
Dim cell As String
path = Application.ActiveWorkbook.FullName
sheet = Application.ActiveSheet.Name
cell = Application.ActiveCell.Address
ActiveSheet.Hyperlinks.Add Range(Active.Cell), "path” & “\“ & “sheet” & “\“ & “cell"
End Sub

Answer 1

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

Попробуйте это вместо этого:

ActiveSheet.Hyperlinks.Add Range(Active.Cell), path & “\“ & sheet & “\“ & cell