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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: