gelöst 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
Guten Abend bastla,
danke sehr für die Begrüßung.
Die Pfadangabe ist so schon richtig und Vollzugriff auf das Verzeichnis ist gegeben.
Da ich selber "nur" eine technische Assistentin mit verhältnismässig wenig Erfahrung im Bereich VBA tue ich mich da etwas schwer.
LG
danke sehr für die Begrüßung.
Die Pfadangabe ist so schon richtig und Vollzugriff auf das Verzeichnis ist gegeben.
Da ich selber "nur" eine technische Assistentin mit verhältnismässig wenig Erfahrung im Bereich VBA tue ich mich da etwas schwer.
LG
LÖSUNG 18.08.2011 um 21:56 Uhr
Hallo puddlemudd!
An welcher Stelle tritt der Fehler auf? Du kannst im VBA-Editor mit der Taste F8 das Script zeilenweise durchlaufen und so feststellen, wo es klemmt ...
Grüße
bastla
An welcher Stelle tritt der Fehler auf? Du kannst im VBA-Editor mit der Taste F8 das Script zeilenweise durchlaufen und so feststellen, wo es klemmt ...
Grüße
bastla
LÖSUNG 18.08.2011 um 21:59 Uhr
Set WordObj = CreateObject("Word.Application")
Über diese Stelle kommt es nicht hinaus.
LG
K.
Über diese Stelle kommt es nicht hinaus.
LG
K.
LÖSUNG 18.08.2011 um 22:05 Uhr
Hallo puddlemuddle!
Diese Zeile sollte aber noch ausgeführt worden sein (ansonsten hätte ich ohnehin nicht wirklich eine Idee, was den Fehler verursacht) - womit wir wieder bei der zu öffnenden Datei wären: Versuch es doch bitte einmal mit einem anderen Speicherort ...
Grüße
bastla
Diese Zeile sollte aber noch ausgeführt worden sein (ansonsten hätte ich ohnehin nicht wirklich eine Idee, was den Fehler verursacht) - womit wir wieder bei der zu öffnenden Datei wären: Versuch es doch bitte einmal mit einem anderen Speicherort ...
Grüße
bastla
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
Hallo puddlemudd!
Der Code enthält mE nix, was nicht mit Office2003 funktionieren würde - sorry, aber ich habe leider keine weitere Idee, woran das Öffnen der Word-Datei scheitert ...
Grüße
bastla
Der Code enthält mE nix, was nicht mit Office2003 funktionieren würde - sorry, aber ich habe leider keine weitere Idee, woran das Öffnen der Word-Datei scheitert ...
Grüße
bastla
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
