Ошибка импорта данных с .mht

@Agapov_stas · Регистрация: 05.08.2010

Author24 — интернет-сервис помощи студентам

Всем доброго дня!
Есть вот такой код:

Кликните здесь для просмотра всего текста

Visual Basic

Private Sub btnImportField_Click()
 
Dim a As String
Dim i As Integer, k As Integer
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
 
a = Me.plPage.Value 'Путь к файлу .mht
 
IE.Navigate a
 
Do While IE.Busy
  DoEvents
Loop
Set ieDoc = IE.Document ' <-----Вот на эту строку ругается  MS Access 2007
IE.Visible = False
For i = 0 To ieDoc.all.tags("table").Length - 1
   For k = 0 To ieDoc.all.tags("table").Item(i).all.tags("tr").Length - 1
   Dim NameField
   NameField = ieDoc.all.tags("table").Item(i).all.tags("tr").Item(k).all.tags("td").Item(0).innerText
   NameField = Left(NameField, Len(NameField) - 2)
   'Тут я делаю свое черное дело, но не суть важно
   Next k
Next i
 
IE.Quit
Set IE = Nothing
End Sub

В MS Access 2003 работает нормально. А при открытии его же в MS Access 2007 появляется вот такая ошибка(см.скрин)
В чем может быть дело? Казалось бы, ничего мудреного нет.

mobile · 22.08.2013, 14:31

Agapov_stas, во-первых не вижу Dim ieDoc as Object. Ну, допустим, что где-то есть.

На обоих ПК одна и та же версия ИЕ? Если на втором ИЕ 8, а на первом ниже, то наверное надо обновить ActiveX для ИЕ.

@Agapov_stas · 22.08.2013, 14:54 **[ТС]**

Сообщение от mobile

во-первых не вижу Dim ieDoc as Object

Виноват копипаст.
По поводу версии IE, сейчас посмотрю.

Добавлено через 16 минут
На котором работает, IE-10(...).
На котором не работает, IE-9(...).
Сейчас обновлю до 10-го и проверю, будет ли работать....Только вопрос, почему так?Должно и на том и на том..

mobile · 22.08.2013, 15:02

Сообщение от Agapov_stas

На котором работает, IE-10(...).
На котором не работает, IE-9(...).
Сейчас обновлю до 10-го и проверю, будет ли работать....Только вопрос, почему так?Должно и на том и на том..

Совместимость версий снизу вверх, а не сверху вниз. Хотя для MS и это не обязательно :-)

@Agapov_stas · 22.08.2013, 15:04 **[ТС]**

Сообщение от mobile

Совместимость версий снизу вверх, а не сверху вниз.

Так а каким боком касается мой код этих версий?
Выходит, работает только на 10м?

mobile · 22.08.2013, 15:12

Сообщение от Agapov_stas

Так а каким боком касается мой код этих версий?
Выходит, работает только на 10м?

Ну я то имел в виду библиотеки. ИЕ это несколько библиотек. Вот, чтобы не получилось, что какая-то часть одной версии, вторая другой. Если делать изначально на старой версии, а потом запускать на новой, то по идее совместимости снизу вверх, отработать должно. Но у вас наоборот. Поэтому надо как-то исключать конфликт версий.

@Agapov_stas · 22.08.2013, 15:15 **[ТС]**

Сообщение от mobile

Ну я то имел в виду библиотеки.

Так она не нужна....Ведь позднее связывание...

mobile · 22.08.2013, 15:32

Agapov_stas, так что такое "позднее связывание" как не работа напрямую с библиотеками, минуя встроенные средства Access. Какие есть библиотеки, с теми и свяжемся.

Под библиотеками понимаю фактические дллки, а не записи в референсах

@Agapov_stas · 22.08.2013, 15:51 **[ТС]**

Так и я о том же!
Обновил IE до такой же версии, что и на моем ПК.
Перезагрузил ПК.
Запустил mdb. - та же песня...Только ошибки нет, но не срабатывает код.

Добавлено через 8 минут
Беда прям с этим IE

mobile · 22.08.2013, 15:53

Agapov_stas, не хотите выложить сюда образчик? Может коллективный разум и увидит что-то...

@Agapov_stas · 22.08.2013, 16:08 **[ТС]**

Вот файл mdb с примером файла ".mht".

Не по теме:

Сообщение от mobile

не хотите выложить сюда образчик?

Давно хочу, только вот собрался с духом:D

@VinniPuh · 22.08.2013, 16:11

Сообщение от mobile

...не хотите выложить сюда образчик? Может коллективный разум и увидит что-то...

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

@Agapov_stas · 22.08.2013, 16:14 **[ТС]**

Сообщение от kmv-puh

Без наличия самого больного, диагноз может быть только приблизительным

Суть в том, что в файле ничего нового, что я не описал бы.

mobile · 22.08.2013, 16:18

Agapov_stas, не знаю даже, что сказать... Все прошло гладенько и мгновенно. Win7, IE 8, Access 2010.

Вам бы попробовать на других компах с ие9. Похоже, что все-таки проблема с его прибамбасами

@VinniPuh · 22.08.2013, 16:19

Agapov_stas - Что я и имел в виду.

@Agapov_stas · 22.08.2013, 16:26 **[ТС]**

Сообщение от mobile

Все прошло гладенько и мгновенно.

И у меня на ПК.

Может стоит пиратская какая-нибудь версия у них?(хотя, что я у Вас то спрашиваю...Надо будет у них спросить..)

Добавлено через 6 минут
Все таки в аксе "прикол".
Нашел ПК с 9-м IE и 2003 MS Access. Запустился тоже сразу.
Значит вывод, - проблема с MS Access 2007 у них на ПК.

@VinniPuh · 22.08.2013, 16:29

Agapov_stas - точно

Сообщение от Agapov_stas

Значит вывод, - проблема с MS Access 2007 у них на ПК.

Акс 2003, по определению не может быть плохим.

@VinniPuh 8866 / 5913 / 585 Регистрация: 27.03.2013 Сообщений: 19,586
	22.08.2013, 16:29	17
	Agapov_stas - точно Сообщение от Agapov_stas Значит вывод, - проблема с MS Access 2007 у них на ПК. Акс 2003, по определению не может быть плохим. 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2013, 14:31	2
	Agapov_stas, во-первых не вижу Dim ieDoc as Object. Ну, допустим, что где-то есть. На обоих ПК одна и та же версия ИЕ? Если на втором ИЕ 8, а на первом ниже, то наверное надо обновить ActiveX для ИЕ. 1

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	22.08.2013, 14:54 [ТС]	3
	Сообщение от mobile во-первых не вижу Dim ieDoc as Object Виноват копипаст. По поводу версии IE, сейчас посмотрю. Добавлено через 16 минут На котором работает, IE-10(...). На котором не работает, IE-9(...). Сейчас обновлю до 10-го и проверю, будет ли работать....Только вопрос, почему так?Должно и на том и на том.. 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2013, 15:02	4
	Сообщение от Agapov_stas На котором работает, IE-10(...). На котором не работает, IE-9(...). Сейчас обновлю до 10-го и проверю, будет ли работать....Только вопрос, почему так?Должно и на том и на том.. Совместимость версий снизу вверх, а не сверху вниз. Хотя для MS и это не обязательно :-) 1

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	22.08.2013, 15:04 [ТС]	5
	Сообщение от mobile Совместимость версий снизу вверх, а не сверху вниз. Так а каким боком касается мой код этих версий? Выходит, работает только на 10м? 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2013, 15:12	6
	Сообщение от Agapov_stas Так а каким боком касается мой код этих версий? Выходит, работает только на 10м? Ну я то имел в виду библиотеки. ИЕ это несколько библиотек. Вот, чтобы не получилось, что какая-то часть одной версии, вторая другой. Если делать изначально на старой версии, а потом запускать на новой, то по идее совместимости снизу вверх, отработать должно. Но у вас наоборот. Поэтому надо как-то исключать конфликт версий. 1

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	22.08.2013, 15:15 [ТС]	7
	Сообщение от mobile Ну я то имел в виду библиотеки. Так она не нужна....Ведь позднее связывание... 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2013, 15:32	8
	Agapov_stas, так что такое "позднее связывание" как не работа напрямую с библиотеками, минуя встроенные средства Access. Какие есть библиотеки, с теми и свяжемся. Под библиотеками понимаю фактические дллки, а не записи в референсах 1

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	22.08.2013, 15:51 [ТС]	9
	Так и я о том же! Обновил IE до такой же версии, что и на моем ПК. Перезагрузил ПК. Запустил mdb. - та же песня...Только ошибки нет, но не срабатывает код. Добавлено через 8 минут Беда прям с этим IE 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2013, 15:53	10
	Agapov_stas, не хотите выложить сюда образчик? Может коллективный разум и увидит что-то... 2

@VinniPuh 8866 / 5913 / 585 Регистрация: 27.03.2013 Сообщений: 19,586
	22.08.2013, 16:11	12
	Сообщение от mobile ...не хотите выложить сюда образчик? Может коллективный разум и увидит что-то... Полностью поддерживаю насущьный вопрос!!! Без наличия самого больного, диагноз может быть только приблизительным 0

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	22.08.2013, 16:14 [ТС]	13
	Сообщение от kmv-puh Без наличия самого больного, диагноз может быть только приблизительным Суть в том, что в файле ничего нового, что я не описал бы. 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.08.2013, 16:18	14
	Agapov_stas, не знаю даже, что сказать... Все прошло гладенько и мгновенно. Win7, IE 8, Access 2010. Вам бы попробовать на других компах с ие9. Похоже, что все-таки проблема с его прибамбасами 1

@VinniPuh 8866 / 5913 / 585 Регистрация: 27.03.2013 Сообщений: 19,586
	22.08.2013, 16:19	15
	Agapov_stas - Что я и имел в виду. 0

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	22.08.2013, 16:26 [ТС]	16
	Сообщение от mobile Все прошло гладенько и мгновенно. И у меня на ПК. Может стоит пиратская какая-нибудь версия у них?(хотя, что я у Вас то спрашиваю...Надо будет у них спросить..) Добавлено через 6 минут Все таки в аксе "прикол". Нашел ПК с 9-м IE и 2003 MS Access. Запустился тоже сразу. Значит вывод, - проблема с MS Access 2007 у них на ПК. 2