Daten von Excel in Word kopieren von Access aus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
so jetzt...
ich habs nicht getestet, müsste aber gehn.
Dim wdApp As Object, DocPfad As String, Index As Long

On Error Resume Next

DocPfad = Workbooks("Zeugnisse 2004.xls").Path & "\Zeugnis.doc"

Application.ScreenUpdating = False

Set wdApp = GetObject("Word.Application")
If Err.Number 0 Then
Err.Clear
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True: wdApp.WindowState = wdWindowStateMinimize
Else
wdApp.Activate
wdApp.Visible = True: wdApp.WindowState = wdWindowStateMinimize
End If
wdApp.Application.Documents.Open DocPfad

With wdApp.ActiveDocument.Tables(1)
For Index = 1 To 3
.Columns(Index).Cells(2).Range.Text = _
Workbooks("Zeugnisse 2004.xls").Worksheets("Daten").Cells(2, Index)
.Columns(Index).Cells(2).Range.Text = _
Workbooks("Zeugnisse 2004.xls").Worksheets("Daten").Cells(2, Index)
.Columns(Index).Cells(2).Range.Text = _
Workbooks("Zeugnisse 2004.xls").Worksheets("Daten").Cells(2, Index)
Next
End With
With wdApp.Selection
If WordVorlage.ActiveDocument.Bookmarks.Exists("Schüler") = True Then
.Goto What:=wdGoToBookmark, Name:="Schüler"
.TypeText Worksheets("Daten").Cells(1, 1)
End If
End With
wdApp.ActiveDocument.Save
wdApp.WindowState = wdWindowStateMaximize

Application.ScreenUpdating = True

Set wdApp = Nothing
du musst jetzt noch eine Excel-Instanz für Workbooks("Zeugnisse 2004.xls") erzeugen,
also z.B. so:
xlPath = ThisDocument.Path & "\Zeugnisse 2004.xls"
Set xlApp = GetObject("Excel.Application")
If Err.Number 0 Then
Err.Clear
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True: xlApp.WindowState = wdWindowStateMinimize
Else
xlApp.Activate
xlApp.Visible = True: xlApp.WindowState = wdWindowStateMinimize
End If
Set xlWkb = xlApp.Application.Workbooks.Open(xlPath)
dann könntest du Theoretisch das auslesen aus Excel und das schreiben in Word so machen:
With wdApp.ActiveDocument.Tables(1)
.Columns(Index).Cells(2).Range.Text = _
xlApp.Worksheets("Daten").Cells(2, Index)
end with
musst du mal ausprobieren, wie das in Access geht. Währe schon wenn du dein Ergebnis mitteilst.
mfg tobias

Beliebteste Forumthreads (12 Monate)

Daten von Excel in Word kopieren von Access aus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten von Excel in Word kopieren von Access aus

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread