Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler 1004 bei QueryTables

Fehler 1004 bei QueryTables
26.04.2006 10:28:00
Arthur
Hallo Forum.
Jetzt könnt ihr mich glänzen lassen ;o)
Ein Kollege kam zu mir und hat das Problem, dass beim Zugriff auf eine QueryTable der Fehler 1004 mal abgefangen werden kann und mal eben nicht.
Ich selbst habe Null Ahnung über QueryTables und muss daher nachfragen. Unten seht ihr die Routine. Bei den angegebenen Adressen wird die 1004 das erste mal abgefangen, das zweite Mal leider nicht mehr. Woran könnte das liegen?
Gruß
Arthur
&ltpre&gt
Private Sub sub_test()
Dim qt As QueryTable
Dim str_url As String
Dim s_QS As Worksheet
Dim s_URL As Worksheet
Dim r_ac As Range
Dim r_UrlPrefix As Range
Set s_QS = Sheets("QT")
Set s_URL = Sheets("URL")
Set r_ac = s_URL.Range("cell_AccessCount")
For Each r_UrlPrefix In s_URL.Range("range_UrlStrings")
str_url = CStr(r_UrlPrefix.Value)
On Error GoTo WebFailed
Set qt = s_QS.QueryTables.Add(Connection:="url;" & str_url, _
Destination:=s_QS.Cells(1, 1))
With qt
.WebFormatting = xlAll
.WebSingleBlockTextImport = True
.MaintainConnection = False
.RobustConnect = xlNever
.Refresh (False) 'Hier tritt der Fehler 1004 auf
End With
r_ac = r_ac + 1
WebFailed:
On Error GoTo 0
MsgBox ("Fehler")
Next
s_QS.Select
End Sub&lt/pre&gt

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Es lag am: On error goto ...
26.04.2006 14:43:52
Arthur
Hallo.
Nachdem ich die Routine ordentlich restrukturiert habe, ist mir die wund(er)same Schleife zwischen For each und next aufgefallen. Nach deren sauberen Strukturierung (For-Next außerhalb der Fehlerbehandlung; Resume next in der Fehlerbehandlung) läuft alles wie geplant.
Greetings
Arthur
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige