title image


Smiley Du kannst ja die exportierte Textdatei noch mal einlesen...
und mit den 8 Zeilen davor wegschreiben:



TxtFile = "C:\woauchimmer\ttt.txt"

MacFile = Left(TxtFile,InstrRev(Txtfile,".") & "mac"

docmd.TransferText acExportDelim,,"DeineAbfrage",TxtFile

Open txtfile for Input as #1

open MacFile For Output as #2

Print #2, "Zeile 1"

...

Print #2, "Zeile 8"

Do until eof(1)

Line Input #1, Lin

Print #2, Lin

Loop

Close #1: Close #2



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: