Hallo Gemeinde,

mit unten aufgeführten Code erzeuge ich aus einem Serienbrief, der mit ACCESS verknüpft ist, einzelne .txt Dateien, die in gleichnamigen Unterordnen gespeichert werden. Der Prozess startet zunächst sehr schnell (ca. 1 s/ Durchlauf), verlangsamt sich nach ca. 50 Durchläufen enorm (10 - 20 s/Durchlauf).

Was kann ich tun, um den Prozess zu  beschleunigen?

Vielen Dank!

__

Sub Speichern()

Dim i As Integer
Dim Pfad As String
Pfad = "xxx"
For i = 1 To 10000

MkDir Pfad & i
ChangeFileOpenDirectory Pfad & i
ActiveDocument.SaveAs2 FileName:=i & ".txt"
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
 

Next i
End Sub