puddlemudd
Goto Top

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

Content-Key: 171739

Url: https://administrator.de/contentid/171739

Ausgedruckt am: 28.03.2024 um 23:03 Uhr

Mitglied: bastla
bastla 18.08.2011 um 21:40:59 Uhr
Goto Top
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"- verwendet hättest)
Set wordDoc = WordObj.Documents.Open("C:\Users\Name\Desktop\test.doc")
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
Mitglied: puddlemudd
puddlemudd 18.08.2011 um 21:52:36 Uhr
Goto Top
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
Mitglied: bastla
bastla 18.08.2011 um 21:56:02 Uhr
Goto Top
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
Mitglied: puddlemudd
puddlemudd 18.08.2011 um 21:59:04 Uhr
Goto Top
Set WordObj = CreateObject("Word.Application")

Über diese Stelle kommt es nicht hinaus.

LG
K.
Mitglied: bastla
bastla 18.08.2011 um 22:05:28 Uhr
Goto Top
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
Mitglied: puddlemudd
puddlemudd 18.08.2011 um 22:09:21 Uhr
Goto Top
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
Mitglied: bastla
bastla 18.08.2011 um 22:21:24 Uhr
Goto Top
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 face-sad ...

Grüße
bastla