Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA - InternetExplorer |
20.03.2015 15:44:42 |
Gast17452 |
|
|
|
20.03.2015 15:57:15 |
Gast4574 |
|
|
|
21.03.2015 04:50:41 |
Gast75739 |
|
|
|
21.03.2015 06:05:00 |
Gast57139 |
|
|
|
21.03.2015 13:40:15 |
Gast67627 |
|
|
|
21.03.2015 19:09:10 |
Gast24849 |
|
|
|
23.03.2015 23:25:28 |
Gast85723 |
|
|
Von:
Gast17452 |
Datum:
20.03.2015 15:44:42 |
Views:
1477 |
Rating:
|
Antwort:
|
Thema:
VBA - InternetExplorer |
bei folgendem Marko versuche ich den Inhalt einer Seite auszulesen. Ich bekomme aber komischerweise nur einige Zeilen und nicht den gesamten Text? Weiß jemand schlauen Rat?
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Sub X()
Dim t As Single
t = Timer
Sleep 1500
Debug.Print Timer - t
End Sub
Sub LoadEspaceNet()
Dim Description(1, 5000, 1)
Dim Browser As SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Set Browser = New SHDocVw.InternetExplorer
Browser.Visible = True
Application.StatusBar = ".... opening page"
'Espacenet Homepage
Browser.navigate "http://worldwide.espacenet.com/?locale=de_EP" ' navigate to page
'On Error Resume Next
Do While Browser.Busy
DoEvents
Loop
NumberDoc = 1
Set HTMLDoc = Browser.Document ' load the DOM object
Do While Browser.Busy
DoEvents
Loop
Dim Elem As Variant
MsgBox "Load Document!"
With HTMLDoc
currentdoc = "EP2840773A2"
.getElementById("cqlEditBox").Value = currentdoc
.getElementById("submit").Click
Do While Browser.Busy
DoEvents
Loop
Call X
Do While Browser.Busy
DoEvents
Loop
MsgBox "Loading Document ... "
.getElementById("Publicationid1").Click
End With
Do While Browser.Busy
DoEvents
Loop
'Description Upload
Do While Browser.Busy
DoEvents
Loop
Call X
For Each Coll In HTMLDoc.getElementsByTagName("a")
jx = jx + 1
If InStr(Coll.innerText, "Beschreibung") > 0 Then Coll.Target = "_self": Coll.Click: Exit For
': If jx = 64 Then Coll.Click: Exit For
Next
Do While Browser.Busy
DoEvents
Loop
MsgBox "Loading Description/Translation"
With HTMLDoc.getElementById("translatethislink")
.Target = "_self"
.Click
End With
Call X
Do While Browser.Busy
DoEvents
Loop
For Each ad In HTMLDoc.getElementsByTagName("a")
If InStr(ad.innerText, "Deutsch") > 0 Then ad.Target = "_self": kj = True: ad.Click: Exit For
If InStr(ad.innerText, "Englisch") > 0 Then ad.Target = "_self": kj = True: ad.Click: Exit For
Next
MsgBox "Document "
jxcounter = 0
innerdescription = ""
innerdescription = HTMLDoc.getElementById("text").innerText
Selection.WholeStory
Selection.Delete
Selection.TypeText innerdescription
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA - InternetExplorer |
20.03.2015 15:44:42 |
Gast17452 |
|
|
|
20.03.2015 15:57:15 |
Gast4574 |
|
|
|
21.03.2015 04:50:41 |
Gast75739 |
|
|
|
21.03.2015 06:05:00 |
Gast57139 |
|
|
|
21.03.2015 13:40:15 |
Gast67627 |
|
|
|
21.03.2015 19:09:10 |
Gast24849 |
|
|
|
23.03.2015 23:25:28 |
Gast85723 |
|
|