После долгой разлуки, снова с вами....
Всем ПРИВЕТ!!!
Вопрос: как процедурой (макросом) найти в активном окне Интернета нужное значение и скопировать его в ячейку таблицы Экселя???
Интернет по адресу открывается у меня через форму гиперссылкой, активизируется окно, а вот дальше как найти например "бла-бла-бла" ???
Private Sub сайт_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
d = сайт 'енто значение названия поля формы
On Error GoTo l
Run "ActivWWW" 'енто макрос открытия Интернета :
'Sub ActivWWW()
'a = ActiveCell.Address
'aa = Len(a)
'aa1 = Right(a, aa - 3)
'f = "http:" & Cells(aa1, 10)
'If IsEmpty(Cells(aa1, 10)) Then
'MsgBox "Адрес НЕ введен"
'Else
'ActiveWorkbook.FollowHyperlink Address:=f,'NewWindow:=False, AddHistory:=True
'Сюды пытался вставлять поиск по активному окну Интернета...
End If
Range(a).Select
End Sub
GoTo l2
l: MsgBox "Адрес НЕ активирован"
l2: End Sub
Спасибо.
Stepler ^{(щёлк-щёлк!!)}

Благодарю за идею - теперь извращаюсь таким способом, т.к. по другому никак не смог...:)
Stepler ^{(щёлк-щёлк!!)}