VPF::Метод IE.Navigate обнуляет переменную в Win7

genixxx

Дата 8.11.2012, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 23.10.2009

Репутация: нет
Всего: нет

Уважаемые программисты, у меня к вам вопрос, который не дает мне покоя уже неделю. Очень таинственная ошибка, которая возникает только на компьютерах заказчика, а у себя ее повторить не получается, хотя та же Win7 и MS Excel 2003.

Моя функция отправляет на наш веб-сервер файл методом POST из макроса. После отправки она получает текст на странице (с именем этого сохраненного на сервере файла) запоминает его и отправляет уже другой файл (само содержимое открытого документа), а дополнительным параметром указывает это вот полученное ранее имя файла.

Проблема в следующем коде:

Код


'sends multipart/form-data To the URL using IE
Function IEPostBinaryRequest(URL, FormData, Boundary, Optional CloseIE As Boolean = False)
  'Create InternetExplorer
  Dim IE: Set IE = CreateObject("InternetExplorer.Application")
   
  'Send the form data To URL As POST multipart/form-data request
  IE.Navigate URL, , , FormData, "Content-Type: multipart/form-data; boundary=" + Boundary + vbCrLf
  IE.Visible = True
  
  'Ждем полной загрузки файла
  Do Until IE.ReadyState = 4: Sleep (50): Loop
  
  'Get a result of the script which has received upload
  On Error Resume Next
  IEPostBinaryRequest = IE.document.body.InnerHTML
  If (CloseIE) Then
    IE.Quit
  Else
    IE.document.parentwindow.Focus
  End If

End Function

После вызова IE.Navigate происходит какая-то ошибка, после которой я даже не могу посмотреть что находится в IE. Как будто выкидывается исключение, но ошибка происходит уже когда идет следующее обращение к этой переменной IE. Если реализовать этот же код с конструкцией With, то переменной как бы и нет совсем, но ошибка все равно выдается. Ее текст такой:

Цитата

"Automation Error: неизвестный интерфейс"

код:
"-2147023179 (800706b5)"

Мое гугление ни к чему не привело, я даже не могу понять как понять почему она возникает... Помогите, пожалуйста, люди добрые, кто чем может! smile

Это сообщение отредактировал(а) genixxx - 8.11.2012, 08:33

Присоединённый файл ( Кол-во скачиваний: 0 )

UploadXLS_2003.zip 27,56 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »