Button im Browser lässt sich nicht ausführen

Sub loadit() Dim IEApp As Object Dim IEDocument As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate "http://lagrange.ime.usp.br/~lobato/packing/run/index.php" With IEApp.Document Do: Loop Until .ReadyState = "complete" .getelementbyid("L").Value = 1000 .getelementbyid("W").Value = 666 .getelementbyid("l_").Value = 300 .getelementbyid("w_").Value = 202 Do: Loop Until .ReadyState = "complete" '

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fred,
probier's hiermit:

Code:

Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Sub loadit()
Dim IEApp As Object, all As Object, img As Object, teil
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://lagrange.ime.usp.br/~lobato/packing/run/index.php"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
.getelementbyid("L").Value = 1000
.getelementbyid("W").Value = 666
.getelementbyid("l_").Value = 300
.getelementbyid("w_").Value = 202
.getelementbyid("solve").onClick
Sleep 2000
Do: Loop Until .ReadyState = "complete"
For Each all In .all
If all.classname = "thumbcaption" Then
For Each teil In Split(all.innertext, " ")
If IsNumeric(teil) Then Range("A1") = teil
Next
End If
Next
For Each img In .images
If InStr(1, img.src, "run/solutions/") > 0 Then
DownloadFile img.src, ThisWorkbook.Path & "\" & _
Mid(img.src, InStrRev(img.src, "/") + 1)
End If
Next
End With
IEApp.Quit
Set IEApp = Nothing
End Sub

mfg Anton

Hallo Fred,
die Seite wurde geändert, deswegen so:

Code:

Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Sub loadit()
Dim IEApp As Object, all As Object, img As Object, objInput As Object, teil
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://lagrange.ime.usp.br/~lobato/packing/run/index.php"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
.getelementbyid("L").Value = 1000
.getelementbyid("W").Value = 666
.getelementbyid("l_").Value = 300
.getelementbyid("w_").Value = 202
For Each objInput In .getelementsbytagname("input")
If objInput.Type = "button" Then
If objInput.Value = "Solve" Then objInput.onClick
End If
Next
Sleep 2000
Do: Loop Until .ReadyState = "complete"
For Each all In .all
If all.classname = "thumbcaption" Then
For Each teil In Split(all.innertext, " ")
If IsNumeric(teil) Then Range("A1") = teil
Next
End If
Next
For Each img In .images
If InStr(1, img.src, "run/solutions/") > 0 Then
DownloadFile img.src, ThisWorkbook.Path & "\" & _
Mid(img.src, InStrRev(img.src, "/") + 1)
End If
Next
End With
IEApp.Quit
Set IEApp = Nothing
End Sub

mfg Anton

Beliebteste Forumthreads (12 Monate)

Button im Browser lässt sich nicht ausführen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Button im Browser lässt sich nicht ausführen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread