Exportieren

16/04/2009 - 10:04 von Michael Marschall | Report spam
Hallo,
gibt es eine möglichkeit bei einem Export einer Abfrage in eine txt-
Datei die ersten zwei Zeilen der Textdatei unabhàngig von der Abfrage
zu füllen ?

Danke im voraus
 

Lesen sie die antworten

#1 Henry Habermacher
16/04/2009 - 10:43 | Warnen spam
Michael Marschall wrote:
Hallo,
gibt es eine möglichkeit bei einem Export einer Abfrage in eine txt-
Datei die ersten zwei Zeilen der Textdatei unabhàngig von der Abfrage
zu füllen ?



Die einfachere Methode ist nach dem Exportieren die Textdatei per VBA zu
öffnen und dort die zwei Zeilen reinzufüllen.

Hier eine Funktion, die vorne an ein Textfile zwei Zeilen hinzufügt. Nach
dem Exportieren diese Funktion mit dem Namen des erzeugten Files aufrufen
und die zwei Zeilen als String Parameter mitgeben.

Public Function addLinesToFile( _
FileName As String, _
Line1 As String, _
Line2 As String)
Dim fso As Object 'filesystemobject
Dim fstr As Object 'filestream
Dim strInhalt As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fstr = fso.OpenTextFile(FileName, ForReading)
strInhalt = fstr.ReadAll
Set fstr = fso.OpenTextFile(FileName, ForWriting)
fstr.WriteLine Line1
fstr.WriteLine Line2
fstr.WriteLine strInhalt
fstr.Close
Set fstr = Nothing
Set fso = Nothing
End Function

Eine Alternative wàre die Abfrage in eine Union Abfrage umzugestalten und
die ersten beiden Zeilen so als erste beide Union Abfragen mitzugeben.
Tricky dabei allerdings, dass die richtige Sortierung dabei rauskommt. Dazu
musst Du die Abfrage wohl speichern und anschliessend eine Abfrage über die
gespeicherte Abfrage machen, welche dann die richtige Sortierung verwendet.

SELECT DISTINCT 1 AS SortFeld, "DeineZeile1" AS F1, null As F2, null AS F3,
null As F4
FROM Deine Tabelle
UNION
SELECT DISTINCT 2, "DeineZeile1", null, null, null
FROM DeineTabelle
SELECT
3, Feld1, Feld2, Feld3, Feld4
FROM DeineTabelle

Abfrage als "KomplettAbfrage" speichern, danach die zweite Abfrage

SELECT F1, F2, F3, F4
FROM KomplettAbfrage
ORDER BY SortFeld

Und dann diese zweite Abfrage exportieren.

Gruss
Henry





Los geht's: SEK3 Anmeldung bei www.donkarl.com/?sek
Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen