Отримання назви веб-сторінки в Excel

Я намагаюся створити осередок, яка витягуватиме гіперпосилання на основі того, що заповнюється в іншій клітинці Excel. У мене є частина гіперпосилання працює, але я хотів би мати кращу етикетку для гіперпосилання, ніж або ідентифікатор, який він використовує, щоб отримати веб-сторінку або всю веб-адресу. Я думав, що найпростіше спробувати витягти назву веб-сторінок. Це можливо?

Можливо, щоб допомогти трохи, я в даний час використовую цю функцію, щоб залучити веб-адресу

=IF(LEN(Excel Cell Value)>0,HYPERLINK(CONCATENATE("First part of the web address",(Excel Cell Value),"Second part of the web address"),Excel Cell Value),"")

=IF(LEN(Excel Cell Value)>0,HYPERLINK(CONCATENATE("First part of the web address",(Excel Cell Value),"Second part of the web address"),Excel Cell Value),"")

Я цього не розумію. Дозвольте мені спробувати розбити

If(Len(cell value)>0) - if the cell isn't empty, do TRUE
TRUE - Hyperlink(Concatenate(first, (cell value), second), (cell value)
FALSE - ""

Тепер подивимося, як працює гіперпосилання

Hyperlink(link location, friendly name)

Для вас це

link location = concatenate(first, value, second)
friendly name = value

Присвоєння дружнього імені значенням осередку. Отже, якщо у вас є щось подібне -

A1 = Google
A2 = Hyperlink(Concatenate("https://www.",A1,".com",A1))

A2 = Google

Це не спрацює. Єдине, що ви зможете зробити, це використовувати VBA, щоб вийти на сторінку та зібрати інформацію, або скористатися чимось подібним -

A1 = Google
A2 = Searching Website
A3 = Hyperlink(Concatenate("https://www.",A1,".com",A2))

A3 = Пошук веб-сайту

Щоб отримати назву через VBA -

Sub gettitle()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://superuser.com/"
While ie.busy
 DoEvents
Wend

Dim title As String
title = ie.document.title

MsgBox (title)
End Sub

Гаразд, щоб функція повернула гіперпосилання з назвою, вам знадобиться користувальницька функція (UDF) -

Function GetTitle(site As Range) As String
Dim title As String
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate site

While ie.busy
 DoEvents
Wend
title = ie.document.title
ie.Quit
GetTitle = title
End Function

Це перейде до цілі веб-сторінки та поверне назву. Так що тепер скажіть, що у вас є веб-сторінка в комірці A1 - тепер потрібно викликати функцію для назви -

A2 = GetTitle(A1)
A3 = Hyperlink(A1,A2)