Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datenbank Inhalt nach Word, Excel und TXT exportieren??
Autor: Gender
Datum: 19.11.02 17:18
Hier eine Lösung für Word: Dim w As Object Dim i Const wdwindowstatemaximice = 1 Const wdFormLetters = 0 Const wdOpenFormatAuto = 1 Const wdSendToNewDocument = 0 Const wdDefaultFirstRecord = 1 Const wdDefaultLastRecord = 1 Const wdSendToPrinter = 1 Const wdToggle = 1 Const wdLastRecord = 1 Const wdFirstRecord = 1 Set w = CreateObject("word.application") w.Visible = True w.Documents.Add w.application.WindowState = wdwindowstatemaximice i = rs.RecordCount + 1 w.ActiveDocument.tables.Add Range:=w.selection.Range, NumRows:=i, NumColumns:=4 w.selection.TypeText "Firmenname" w.selection.moveright w.selection.TypeText "Nachname" w.selection.moveright w.selection.TypeText "Vorname" w.selection.moveright w.selection.TypeText "Telefon" w.selection.movedown w.selection.moveleft w.selection.moveleft w.selection.moveleft For i = 0 To rs.RecordCount - 1 If rs.Fields("Firma").Value = "" Then rs.Fields("firma") = "nicht belegt" Else w.selection.TypeText rs.Fields("Firma").Value w.selection.moveright If rs.Fields("Nachname").Value = "" Then rs.Fields("Nachname") = "nicht belegt" Else w.selection.TypeText rs.Fields("Nachname").Value w.selection.moveright If rs.Fields("Vorname").Value = "" Then w.selection.TypeText " " Else w.selection.TypeText rs.Fields("Vorname").Value w.selection.moveright If rs.Fields("Telefon").Value = "" Then w.selection.TypeText " " Else w.selection.TypeText rs.Fields("Telefon").Value w.selection.movedown w.selection.moveleft w.selection.moveleft w.selection.moveleft rs.MoveNext Next i w.selection.movedown set rs = nothing db.Close

Datenbank Inhalt nach Word, Excel und TXT exportieren??	80	Stomper	17.11.02 17:45
Re: Datenbank Inhalt nach Word, Excel und TXT exportieren??	303	unbekannt	17.11.02 17:54
Re: Datenbank Inhalt nach Word, Excel und TXT exportieren??	63	Stomper	17.11.02 21:58
Re: Datenbank Inhalt nach Word, Excel und TXT exportieren??	85	Gender	19.11.02 17:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen