VBA, чтобы открыть гиперссылку и скопировать содержимое ячейки в веб-форму

Question

У меня есть лист с адресами, и я хотел бы использовать VBA, чтобы скопировать адрес в буфер обмена, а затем открыть веб-сайт, чтобы затем вставить адрес в форму.

Я записал макрос в качестве исходноготочка:

Sub Copy_and_Hyperlink()
'
' Copy_and_Hyperlink Macro
'

'
    Range("A1").Select
    Selection.Copy
    Range("B1").Select
End Sub

В столбце «A» содержится адрес, а в столбце «B» гиперссылка с использованием функции Hyperlink ().Формула генерирует текст, указывающий, должен ли этот процесс все еще быть выполнен или был сделан.

Я хочу нажать на «B1», который содержит гиперссылку и VBA скопировать содержимое «A1» и открытьгиперссылка.«A1» будет генерироваться объединенной формулой.

Мне бы хотелось вставить данные в поле формы, активировать кнопку на странице, например «Отправить», а затем скопировать конкретные результаты обратно в Excel, ноэто может потребовать слишком много на данный момент.

Достаточно просто скопировать данные и открыть гиперссылку.

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

Sub Worksheet_SelectionChange(ByVal Target As Range) 'single click version

    If Intersect(Target, Range("e7:e2000")) Is Nothing Then
        Application.CutCopyMode = False   'clears clipboard and stops cell flashing - like pushing escape key
        Exit Sub
    Else
        ActiveCell.Copy
    End If

End Sub