У меня есть код для поиска на указанном 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.