Aus WEB kopieren

Forumthread: Aus WEB kopieren
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Aus WEB kopieren

Aus WEB kopieren

Walter

Hallo Freunde,
ich benötige wieder einmal Hilfe in VBA
Ich habe ein Liste der Länder der Erde in die die Hauptstädte eingetragen werden sollen.
https://www.herber.de/bbs/user/77649.xls
Danke für die Hilfe
Gruß
Walter

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Aus WEB kopieren

Anton
AW: Aus WEB kopieren

Walter
Option Explicit

Anton
AW: Option Explicit

Walter
AW: Option Explicit

Anton
AW: Option Explicit

Walter

Aus WEB kopieren

24.11.2011 19:14:14

Anton

Hallo Walter,
probier sowas:

Code:

Sub Laender()
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
With Tabelle2
For i = 2 To .UsedRange.Rows.Count
IEApp.Navigate .Cells(i, 1).Hyperlinks(1).Address
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
For Each all In IEDocument.all
If LCase(all.nodename) = "table" Then
If all.Rows.Length > 15 Then
.Cells(i, 2) = all.Rows(0).Cells(1, 1).innertext
.Cells(i, 3) = all.Rows(1).Cells(1, 1).innertext
.Cells(i, 4) = all.Rows(4).Cells(1, 1).innertext
.Cells(i, 5) = all.Rows(7).Cells(1, 1).innertext
End If
End If
Next
Set IEDocument = Nothing
Next
End With
End Sub

mfg Anton

AW: Aus WEB kopieren

24.11.2011 19:25:47

Walter

Hallo Anton,
Ich erhalte: Fehler, Variable nicht definiert!
Liegt der Fehler bei mir?
Gruß
Walter

Option Explicit

24.11.2011 19:37:32

Anton

Hallo Walter,
entweder du löschst die Zeile Option Explicit, oder du definierst alle Variablen im Code.
Etwa so:Dim IEApp As Object usw.
mfg Anton

AW: Option Explicit

24.11.2011 19:56:36

Walter

Hallo Anton,
Danke für den Hinweis, leider habe ich von VBA null Ahnung.
Würde mich freuen wenn Du es einbauen könntest.
Danke
Walter