Получение заголовка веб-страницы в 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),"")
20
задан Raystafarian
16.03.2023 14:27 Количество просмотров материала 2782
Распечатать страницу

1 ответ

=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)
2
отвечен Raystafarian 2023-03-17 22:15

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх