Функция ConnectServer предназначена для автоматизации авторизации на сайте, выполняемой путем заполнения полей с логином и паролем, и нажатием кнопки "Отправить" (т.н. "форма входа на сайт")
Если вам требуется готовое решение для авторизации на сайте из Excel, — посмотрите надстройку
Парсер сайтовТам можно настроить авторизацию в пару действий, без единой строки кода
Пример использования функции:
Public Const URL_Login = "http://www.mysite.ru/private/login.php" ' страница входа
Public Const URL_LoginOK = "http://www.mysite.ru/private/" ' сюда попадем, если вход удался
Public Const URL_main = "http://www.mysite.ru/documents/add.php" ' а эта страница сайта нам нужна для работы
Sub ПримерИспользования_ConnectServer()
' Dim IE As SHDocVw.InternetExplorer, IEdoc As HTMLDocument
On Error Resume Next
Set IE = ConnectServer ' авторизуемся на сервере
Set IEdoc = IE.Document ' получаем ссылку на документ
' заполняем поля на сайте
SetSelectElementValue IEdoc, "region", Город
SetSelectElementValue IEdoc, "district", Район
SetInputElementValue IEdoc, "body", Comment
' отправляем данные на сервер
IEdoc.getElementsByName("add_form").Item(0).submit
IE.Quit ' закрываем браузер
End Sub