макрос на отправку данных в веб-браузер

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

xjoexx

Дата: Вторник, 15.01.2013, 18:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Дорогие форумчане, всем еще раз привет! В продолжение решения задачи автомтизации работы. Теперь задачка на мой взгляд попроще: необходимо передать данные из ячейки таблицы exctl в нужное поле веб-страницы, после чего нажать ввод.
будет неплохо если просто есть готовое решение.

Заранее спасибо.

Ответить

RAN

Дата: Вторник, 15.01.2013, 18:27 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата (xjoexx)

Поковыряюсь напишу

Поковырялся. Написал. biggrin

Быть или не быть, вот в чем загвоздка!

Ответить

xjoexx

Дата: Вторник, 15.01.2013, 20:17 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Ну да, та задача успешно решена. Двигаемся дальше!

Ответить

xjoexx

Дата: Среда, 16.01.2013, 00:29 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Начало есть. Нужно продолжение на примере гугла, яндекса, а лучше на примере простейшего сайта с текстовыми формами и кнопками.
Жду помощи. Заранее спасибо!!!

Private Sub IE_Autiomation()

Dim IE As Object

' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")

' You can uncoment Next line To see form results
IE.Visible = True

' Send the form data To URL As POST binary request
IE.Navigate "http://www.google.com/"

' Statusbar
Application.StatusBar = "www.google.com is loading. Please wait..."

' Wait while IE loading...
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop

Clean up
Set IE = Nothing

Application.StatusBar = ""
End Sub

[admin]xjoexx, оформляйте коды тегами!

Ответить

макрос на отправку данных в веб-браузер

Страница 1 из 1
1