Artur Sołtysiak

Artur Sołtysiak Specjalista ds.
inwestycji, Orange
Polska S.A.

Temat: Automatyzacja Internet Explorer

Witam wszystkich.
Od jakiegoś czasu grzebię w internecie poszukując informacji jak rozwiązać pewien problem. Z poziomu VBA w Accesie chciałbym sprawdzić:
1. Czy jest otwarty Internet Explorer
2. Jeżeli jest to czy jest otwarta na którejś karcie konkretna strona
Znalazłem mnóstwo informacji o GetObject("InternetExplorer"). Niestety to nie działa. Zawsze kończy się błędem 429 ActiveX component can`t createobject.
Ma ktoś jakiś inny sposób?
W kompie mam:
Windows 10
Office 2010
Z referencji Microsoft Internet Controls też jest.

Temat: Automatyzacja Internet Explorer

A czy w referencjach dodany jest Microsoft Access 10.0 Object Library?
Artur Sołtysiak

Artur Sołtysiak Specjalista ds.
inwestycji, Orange
Polska S.A.

Temat: Automatyzacja Internet Explorer

Jest dodany Microsoft Access 16.0 Object Library. 10 nawet nie mam na liście referencji.

Temat: Automatyzacja Internet Explorer

A może coś takiego?
http://vbcity.com/forums/t/69408.aspx
Artur Sołtysiak

Artur Sołtysiak Specjalista ds.
inwestycji, Orange
Polska S.A.

Temat: Automatyzacja Internet Explorer

Znalazłem coś w tym stylu. Sprawdzam nazwy wszystkich otwartych okien a później sprawdzam czy jest otwarta karta o konkretnej nazwie. Działa ale mam kolejny problem. Jak już znajdę to chciałbym aby aktywnym oknem był internet explorer i konkretna karta (w tym przypadku karta z nazwą zaczynającą się na Wysz*. Poniżej fragment kodu. Masz jakiś pomysł?

Set Shell = CreateObject("Shell.Application")
Set Wins = Shell.Windows
Set IE = Wins(0)
For Each IE In Wins
If IE.Name = "Internet explorer" Then
If IE.Document.Title Like "Wysz*" Then ..................................
End If
Next

A tak wogóle to dzięki za zainteresowanie. Myślałem, że nikt nie odpowie :-)

Temat: Automatyzacja Internet Explorer

Tutaj jest ciekawe rozwinięcie problemu:
https://stackoverflow.com/questions/38859727/vba-choosi...



Wyślij zaproszenie do