Office: (Office 2000) Docmd.TransferText liefert Fehler 2046 Der Befehl oder die Aktion steht momentan...

Hallo zusammen,

ich verwende den Befehl Docmd.TransferText.
Dieser liefert zeitweise den Laufzeitfehler 2046 "Der Befehl oder die Aktion TransferText' steht momentan nicht zur Verfügung."

Wann / Warum steht dieser Befehl nicht zur Verfügung?
Wenn ich debuggen wähle, kann ich den Code ohne Änderung laufen lassen, und er macht alles wunschgemäß.

Hier der Code:

Code:

Public Sub t()
    Const TmpLink = "tmptabImport"
    Const ImportSpez = "TxtTemperaturImportSpezifikation"
    Const ZuImportierendeDatei = "D:\Access\txttemperatur.txt"
    Const extAufruf = "cmd /c D:\externesProgramm.exe"
    
    ' Das externe Programm erzeugt eine Textdatei: ZuImportierendeDatei = "D:\Access\txttemperatur.txt"
    WaitShell extAufruf, vbMinimizedNoFocus, 120, True 'Nach 2 Minuten würde es zwangsweise weitergehen, auch wenn der Prozess noch läuft, dann wäre mir ein Folgeproblem plausibel, der Prozess läuft aber nicht so lange.
 
    ' die temporäre Access-Tabelle wird falls vorhanden gelöscht (wird durch Importroutine neu erstellt)
    On Error Resume Next
    DoCmd.DeleteObject acTable, TmpLink
    On Error GoTo 0
    
    ' testweise 5 Sek warten, damit keine Zugriffsprobleme auftauchen sollen, hat auch nichts gebracht
    Wait 5000
    
    ' Tabelle importieren
    DoCmd.TransferText acLinkDelim, ImportSpez, TmpLink, ZuImportierendeDatei
    
    ' ... weiterer Code
End Sub

WaitShell ist zu finden unter http://dbwiki.net/wiki/VBA_Tipp:_Prozess_starten_und_auf_Beendigung_warten

Wie bekomme ich heraus, warum die Importfunktion manchmal nicht funktioniert?
Die einzulesende Datei wird nur von dem erzeugenden externen Programm und dieser Prozedur verwendet. Sogar den Virenscanner kann ich ausschließen.

Vielen Dank für mögliche Ideen.

Freundliche Grüße

Frank