title image


Smiley Export in Word
Hallo zusammen, habe mich vor kurzem schon mal mit diesem Problem gemeldet:

Ich möchte die Daten einer Abfrage als Liste/Tabelle ins Word exportieren.

Ich habe mittlerweile 2 Lösungsansätze gefunden, aber beide haben "Makel":



--> MITTELS OUTPUT TO:

Private Sub öWord_Click()

Dim oApp As Object

Set oApp = CreateObject("Word.Application")

oApp.Visible = True

DoCmd.OutputTo acOutputQuery, "A-Liste", acFormatRTF, , True

End Sub



--> Mit diesem Befehl wird aber automatisch ein Dokument gespeichert, was ich nicht möchte!



-->Nach dem Vorbild wie in der Beispieldatenbank Telefonliste

Private Sub öWord_Click()

Dim WordObj As Word.Application, Tmp, RS As DAO.Recordset,

DB As DAO.Database, CurDir As String

Dim WordDoc As Word.Document, WordTbl As Word.Table, Fld As DAO.Field

Set DB = CurrentDb()

Set WordObj = CreateObject("Word.Application")

Set RS = DB.OpenRecordset("SELECT [A-Liste].* FROM [A-Liste]", dbOpenDynaset)

WordObj.Application.Visible = True

CurDir = Mid(DB.Name, 1, InStr(DB.Name, Dir(DB.Name)) - 1)

Set WordDoc = WordObj.Documents.Add(CurDir & "Vorlage.dot")

With WordObj.Selection

Set WordTbl = WordDoc.Tables.Add(Range:=WordDoc.Range, NumRows:=1, _

NumColumns:=RS.Fields.Count, DefaultTableBehavior:=wdWord9TableBehavior, _

AutoFitBehavior:=wdAutoFitFixed)

For Each Fld In RS.Fields

.Font.Bold = True

.Font.Size = 8

.TypeText Text:=Fld.Name

.MoveRight Unit:=wdCell

Next Fld

Do While Not RS.EOF

For Each Fld In RS.Fields

.Font.Bold = False

.Font.Size = 8

.TypeText Text:=CStr(Nz(Fld.Value, ""))

.MoveRight Unit:=wdCell

Next Fld

RS.MoveNext

Loop

.Rows.Delete

End With

RS.Close

Set DB = Nothing

Set WordObj = Nothing

Set WordDoc = Nothing

Set WordTbl = Nothing

End Sub



... DAMIT BEKOMME ICH DAS PERFEKTE RESULTAT, ABER:

weil meine Tabelle so viele Datensätze hat, braucht es MEHRERE MINUTEN zum aufbauen!!



--> Gibt es noch eine andere Möglichkeit?



Vielen Dank

nya

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: