Здравствуйте,
Нашел код в интернете, помогите пожалуйста его немного изменить, чтоб он производил поиск по всему столбцу А и вставлял результат в соотвествующую ячейку B
Спасибо большое
Нашел код в интернете, помогите пожалуйста его немного изменить, чтоб он производил поиск по всему столбцу А и вставлял результат в соотвествующую ячейку B
Код |
---|
Sub URL_Get_VOEN_status() strSearch = Range("$A$1") With ActiveSheet.QueryTables.Add(Connection:="URL;http://e-taxes.gov.az/isvatpayer/" & strSearch, _ Destination:=Range("$B$1")) .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False .SaveData = True End With End Sub |
Спасибо большое