Как правильно выбрать строку для онлайн-поиска? - PullRequest
0 голосов
/ 08 апреля 2020

У меня есть код для поиска на указанном c веб-сайте, и он работает. Однако он использует информацию в столбцах «i» для поиска, и мне нужно, чтобы он взял информацию из столбца H.

Sub test_online()

Dim WF As WorksheetFunction
Dim RowCount As Integer
Set WF = WorksheetFunction

Alert1.Activate
RowCount = 3
NameForSearch = WF.Match("Name for search", Rows("1:1"), 0)

 chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

searchengine = " -url "

For i = 2 To RowCount

    If Cells(i, NameForSearch).Value = "" Then
        last_search2 = "name"
        Exit Sub
    Else

        searchname = Cells(i, NameForSearch).Value
        temp13 = Split(searchname, " "):    searchname = Join(temp13, "+")
        temp14 = Split(searchname, "&"):    searchname = Join(temp14, "%26")
        Shell (chromePath & " -url " & searchname)

     End If
Next i

End Sub

Это была очень глупая «ошибка». Однако благодаря помощи HTH я смог заметить, что мне нужно изменить в строке NameForSearch = WF.Match("Name for search", Rows("1:1"), 0). Единственное требуемое изменение в строке: Имя для поиска , поскольку Имя для поиска соответствует столбцу i.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...