Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64292 Skopiuj do schowka Otwieranie Internet Explorer
Autor Wiadomość
Marti 
ExcelGaduła 500+



Pomógł: 98 razy
Posty: 931
Wysłany: 28-02-2019, 16:57   Otwieranie Internet Explorer

Po raz kolejny po migracji z Win7 na Win10 jestem sfrustrowany zachowaniem Excel 2010.
Office pozostał ten sam, ale zmiana systemu ciągle powoduje jakieś problemy w moich plikach.

Dotychczas makro działało. Teraz wyrzuca błąd na linii Set myIE = CreateObject("InternetExplorer.Application")
Microsoft Internet Controls oczywiście podpięty w referencjach

Kod:
Sub open_zlecenie()
Dim URL As String
Dim myIE As New InternetExplorer

If id_zlec_x = "" Then
MsgBox "Brak ID zlecenia.", vbOKOnly + vbCritical, "UWAGA"
Exit Sub
Else
End If

On Error GoTo blad_zlec
URL = "https://bank.corp/e-baza/browseOrder.jsp?_actionName=detailsFromNewOrder&_actionParameter=" & id_zlec_x & "&_loaded=false&_hidIsPostBack=true&itemsCount=10"
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True
apiShowWindow myIE.hWnd, SW_MAXIMIZE
myIE.Navigate URL
Set myIE = Nothing

Exit Sub
blad_zlec:
MsgBox "Nie można otworzyć zlecenia ID" & id_zlec_x, vbCritical
Exit Sub
End Sub


Error.JPG
Plik ściągnięto 119 raz(y) 16.23 KB

_________________
Najlepszym dowodem na to, że w kosmosie istnieje inteligencja, jest to, że się z nami nie kontaktują.
ID posta: 363446 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2079 razy
Posty: 6858
Wysłany: 01-03-2019, 14:35   

Przeczytaj, może to Ci pomoże -> https://stackoverflow.com/questions/22061833/vba-automation-error-in-createobjectinternetexplorer-application
Czyli dodanie do kodu
Kod:
myIE.quit
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 363512 Skopiuj do schowka
 
 
ąćęłńóś
ExcelSpec


Pomógł: 185 razy
Posty: 838
Wysłany: 01-03-2019, 14:56   

Marti napisał/a:
... Dim myIE As New InternetExplorer ...
Set myIE = CreateObject("InternetExplorer.Application") ...

A dlaczego właściwie łączysz wczesne wiązanie z późnym ?
Jeśli "As New InternetExplorer" to potem już bez 'Set'.
Jeśli 'Set ... = CreateObject ...' to na początku "As Object"
,albo "Dim myIE As InternetExplorer", a potem 'Set ... = New InternetExplorer'
ID posta: 363513 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe