Ausgewählte Excel Zeile nach Word kopieren
Guten Tag,
ich habe ein Modul welches unter Office 2010 markierte Zeilen an definierte Stellen in Word kopieren soll. Unter Office2010 läuft es ganz wunderbar, mit Office2003 kommt die Meldung "Zugriff verweigert". Ich würde mich freuen wenn ihr mir dort weiter helfen könntet.
Option Explicit
Sub getData()
Dim quellSheet As Workbook
Dim ws As Worksheet
Dim zeile As Integer
Dim spalte1 As Variant
Dim spalte2 As Variant
Dim spalte3 As Variant
Set quellSheet = ThisWorkbook
Set ws = ThisWorkbook.Worksheets("Daten")
Dim WordObj As Object
Dim wordDoc As Object
Set WordObj = CreateObject("Word.Application")
Set wordDoc = WordObj.Documents.Open("C:\Users\Name\Desktop\test.doc")
WordObj.Visible = true
zeile = ActiveCell.Row
spalte1 = ws.Cells(zeile, 1).Value
spalte2 = ws.Cells(zeile, 2).Value
spalte3 = ws.Cells(zeile, 3).Value
wordDoc.bookmarks("Textmarke1").Range.Text = spalte1
wordDoc.bookmarks("Textmarke2").Range.Text = spalte2
wordDoc.bookmarks("Textmarke3").Range.Text = spalte3
wordDoc.Save
End Sub
Für jede Hilfe bin ich dankbar.
LG
Sub getData()
Dim quellSheet As Workbook
Dim ws As Worksheet
Dim zeile As Integer
Dim spalte1 As Variant
Dim spalte2 As Variant
Dim spalte3 As Variant
Set quellSheet = ThisWorkbook
Set ws = ThisWorkbook.Worksheets("Daten")
Dim WordObj As Object
Dim wordDoc As Object
Set WordObj = CreateObject("Word.Application")
Set wordDoc = WordObj.Documents.Open("C:\Users\Name\Desktop\test.doc")
WordObj.Visible = true
zeile = ActiveCell.Row
spalte1 = ws.Cells(zeile, 1).Value
spalte2 = ws.Cells(zeile, 2).Value
spalte3 = ws.Cells(zeile, 3).Value
wordDoc.bookmarks("Textmarke1").Range.Text = spalte1
wordDoc.bookmarks("Textmarke2").Range.Text = spalte2
wordDoc.bookmarks("Textmarke3").Range.Text = spalte3
wordDoc.Save
End Sub
Für jede Hilfe bin ich dankbar.
LG
7 Antworten
- LÖSUNG bastla schreibt am 18.08.2011 um 21:40:59 Uhr
- LÖSUNG puddlemudd schreibt am 18.08.2011 um 21:52:36 Uhr
- LÖSUNG bastla schreibt am 18.08.2011 um 21:56:02 Uhr
- LÖSUNG puddlemudd schreibt am 18.08.2011 um 21:59:04 Uhr
- LÖSUNG bastla schreibt am 18.08.2011 um 22:05:28 Uhr
- LÖSUNG puddlemudd schreibt am 18.08.2011 um 22:09:21 Uhr
- LÖSUNG bastla schreibt am 18.08.2011 um 22:21:24 Uhr
- LÖSUNG puddlemudd schreibt am 18.08.2011 um 22:09:21 Uhr
- LÖSUNG bastla schreibt am 18.08.2011 um 22:05:28 Uhr
- LÖSUNG puddlemudd schreibt am 18.08.2011 um 21:59:04 Uhr
- LÖSUNG bastla schreibt am 18.08.2011 um 21:56:02 Uhr
- LÖSUNG puddlemudd schreibt am 18.08.2011 um 21:52:36 Uhr
LÖSUNG 18.08.2011 um 21:40 Uhr
Hallo puddlemudd und willkommen im Forum!
Mal abgesehen davon, dass das Objekt "quellSheet " nicht verwendet wird: Falls der Fehler in der Zeile (hier würde ich jetzt einfach die Zeilennummer angeben, wenn Du "Code"-Formatierung verwendet hättest)
auftritt: Gibt es auf dem Testrechner mit Office2003 den Ordner "C:\Users\Name" und hast Du Schreibrechte (falls der Fehler die Zeile "wordDoc.Save" betrifft)?
Grüße
bastla
Mal abgesehen davon, dass das Objekt "quellSheet " nicht verwendet wird: Falls der Fehler in der Zeile (hier würde ich jetzt einfach die Zeilennummer angeben, wenn Du "Code"-Formatierung verwendet hättest)
Set wordDoc = WordObj.Documents.Open("C:\Users\Name\Desktop\test.doc")
Grüße
bastla
LÖSUNG 18.08.2011 um 21:52 Uhr
LÖSUNG 18.08.2011 um 21:56 Uhr
LÖSUNG 18.08.2011 um 21:59 Uhr
LÖSUNG 18.08.2011 um 22:05 Uhr
LÖSUNG 18.08.2011 um 22:09 Uhr
Hallo bastla,
ein anderer Speicherort führte nicht zu dem gewünschten Erfolg. Ausprobiert habe ich Orte mit garantiertem Vollzugriff, wie zum Beispiel die eigenen Dateien.
Kann es damit zusammen hängen das irgendein Abschnitt darin nicht für Office2003 geeignet ist? Das könnte ich mir noch vorstellen.
LG
ein anderer Speicherort führte nicht zu dem gewünschten Erfolg. Ausprobiert habe ich Orte mit garantiertem Vollzugriff, wie zum Beispiel die eigenen Dateien.
Kann es damit zusammen hängen das irgendein Abschnitt darin nicht für Office2003 geeignet ist? Das könnte ich mir noch vorstellen.
LG
LÖSUNG 18.08.2011 um 22:21 Uhr