Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro stoppen, Datei speichern, Makro fortsetzen

Makro stoppen, Datei speichern, Makro fortsetzen
24.11.2004 13:08:19
Uwe
Hallo Profi´s
ich habe ein Makro geschrieben, das mir mehrere Webseiten über eine Webabfrage nacheinander importiert und diese Daten in einer weiteren Tabelle verarbeitet.
Nun ist mir aufgefallen, dass dieses Makro mit der Zeit sehr langsam wird.
Wenn ich es nach ca 100 Datensätzen stoppe, die Datei speichere, und wieder starte, läuft es wieder schnell.
Wie kann ich den import nach 50 Abfragen stoppen, die Datei speichern lassen und dann das Makro wieder starten.
So wie eine Art Schleife... Mir schwebt da was von i=1 to 50 vor... komme aufgrund meiner fehlenden VBA Kenntnisse nicht weiter.
Über Antworten würde ich mich sehr freuen.
Uwe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro stoppen, Datei speichern, Makro fortsetzen
Uduuh
Hallo,
ohne Kenntnuis deines Codes nur unzureichend zu beantworten.
Zähler (i) einbauen, nach jedem Import um 1 hochsetzen (i=i+1)
If i=50 Then
activeworkbook.save
i=0
end if
Gruß aus'm Pott
Udo
AW: Makro stoppen, Datei speichern, Makro fortsetzen
24.11.2004 14:53:26
Uwe
Hallo Udo,
vielen Dank für Deine Antwort:
Ich weiss jetzt nicht wo ich diesen Teil i=1 to 100 hinschreiben soll, und wie?
Deshalb hier der Code:
Application.CutCopyMode = False
Application.ScreenUpdating = False

On Error Resume Next

Dim sHTML As String
Sheets("URLS").Select
sHTML = ActiveCell.Value
Sheets("Import").Select
With Selection.QueryTable
.Connection = sHTML
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = False
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery = True
End With
Range("B1:B6").Select
Range("B6").Activate
Selection.Copy
Sheets("Liste").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Import").Select
Range("A1").Select

Sheets("URLS").Select
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value = "" Then
Exit Sub
End If
Application.CutCopyMode = False
Die Mappe besteht aus 3 Tabellen, URLS, Import, Liste.
Ich möchte das der Code 50x wiederholt wird, dann das Makro stoppt, die Mappe speichert und dann das Makro wieder fortgesetzt wird.
Geht das ?
Uwe
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige