Я очень новичок в VBA и макросах, так что извините за невежество. Я не писал это - я проверяю это для собственного обучения. Код предназначен для извлечения первого URL-адреса, который появляется в Google при вводе определенного поискового запроса (например, веб-сайт Nike).
Это первый раз, когда я запускаю этот макрос. Строка, которая генерирует ошибку, помечена [проблема] (опять же, супер новый для кода, поэтому я прошу прощения, если это не так, как вы указываете).
Sub URLPull()
Dim searchRange As Range
Dim nameCell As Range
Dim linkCell As Range
Dim url As String
Dim returnStr As String
Dim tempStr As String
Dim i As Long, xLastRow As Long
Dim request As Object
Dim returnPage As New HTMLDocument [issue]
Dim returnSiteName As Variant
Dim returnLink As Variant
При правильном запуске макрос должен автоматически получать данные в каждой ячейке столбца A, переходить в Google, вводить данные в Google и копировать / вставлять первый результат URL в соответствующую ячейку в столбце B. Всякий раз, когда я запустив макрос, я получаю «Ошибка компиляции: пользовательский тип не определен», и он выделяет строку кода Dim returnPage As New HTMLDocument, и в макросе есть разрыв. Любое понимание приветствуется! Я рад предоставить больше кода, поскольку я работаю через это.