Jun 27, 2013, updated at 08:54:30 (UTC)

13898

Objektvariable oder With-Blockvariable nicht festgelegt

Hallo,

habe ein vba-Script was eine bearbeitete csv aus Excel an Word übergibt und daraus dann einen Serienbrief macht

Der Excel-Part (das automatisierte Bearbeiten der csv) läuft sauber durch, doch als es dann an die Übergabe an Word geht kommt folgender Fehler:

Objektvariable oder With-Blockvariable nicht festgelegt

Die Vorlagen-Worddatei wird noch sauber geöffnet, nur die Daten können nicht mehr eingelesen werden.

Hier der Code:

    sFile = "K:\XXX\Vorlagen_2003\TelefonverzeichnisXXX.doc"  
    Set WinWord = CreateObject("Word.Application")  
   
    With WinWord
        .Visible = True
        Application.Wait DateAdd("s", 1, Now())  
        .Documents.Open Filename:=sFile
        Application.Wait DateAdd("s", 1, Now())  
        '//WinWord.Documents.Open ("K:XXX\Vorlagen_2003\Telefonverzeichnis\XXX.doc")  
        With WinDoc
            With .MailMerge
                .OpenDataSource Name:=strDatenQuelle, LinkToSource:=True, Format:=0, SQLStatement:="SELECT * FROM `tp.csv$`"  
                .Destination = 0
                .SuppressBlankLines = True
                With .DataSource
                  .FirstRecord = wdDefaultFirstRecord
                  .LastRecord = wdDefaultLastRecord
                End With
                .Execute Pause:=False
                Set docSerienbrief = WinWord.ActiveDocument
                .DataSource.Close
                
                
            End With
        End With

        Set docSerienbrief = .Documents(1)
        WinDoc.Close False
        
    End With

In Zeile 11 steckt laut vba besagter Fehler.

Ich hatte das Makro vorher mit Office '03 im Einsatz, und da lief alles wunderbar.
Jetzt mit der 10er tritt der Fehler jedoch auf.

Ich hatte vorher einen anderen Fehler:
In Zeile 7 bekam ich den Fehler "Befehl misslungen".
Eine Pause mit Application.Wait DateAdd("s", 1, Now()) löste das Problem (zur Sicherheit dahinter direkt nochmal Eine...)

Nun ja, aber beim 2ten Fehler stecke ich fest.

Könnt ihr mir helfen?

Please also mark the comments that contributed to the solution of the article

Content-Key: 208746

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

Printed on: April 19, 2024 at 11:04 o'clock

11 Comments

Latest comment

In Zeile 11 steckt laut vba besagter Fehler.

Da hat VBA auch völlig recht.
Wo soll die Variable auch herkommen?

Hallo Sibbel,

das Objekt WinDoc existiert nicht. Zeile 7 sollte so lauten set WinDoc = .Documents.Open (Filename:=sFile)
die 4-Fach verschachtelten With-Blöcke bergen Fehlerquellen.

Grüße Uwe

Ach nein...
keine Ahnung wieso da WinDoc stand und warum das funktioniert hat...

Naja ich habs mit WinWord ersetzt und bekomme immer noch einen Fehler in Zeile 11:
Objekt unterstützt diese Eingenschaft oder Methode nicht

das muss ja auch ein Objekt des Typs Document sein und nicht Application. mach das so wie ichs geschrieben habe

Zeile 7 sieht bei mir jetzt so aus:
set WinDoc = .Documents.Open Filename:=sFile

beim Ausführen bekomm ich jedoch die Meldung:
Fehler beim kompilieren: Erwartet: Anweisungsende

da fehlen noch die Klammern

set WinDoc = .Documents.Open (Filename:=sFile)

Ach so...

Gut das klappt schonmal,
leider habe ich wieder in zeile 11 ein "Objekt unterstützt diese Eingenschaft oder Methode nicht"...

Das Problem sind wie schon gesagt die verschachtelten WITH-Blöcke. Bei verschachtelten With-Blöcken gilt der Punkt immer für das Objekt des äußersten WITH-Blocks.
Versuch es erst mal damit:

sFile = "K:\XXX\Vorlagen_2003\TelefonverzeichnisXXX.doc"  
Set WinWord = CreateObject("Word.Application")  
   
With WinWord
    .Visible = True
    Set WinDoc = .Documents.Open(FileName:=sFile)
    WinDoc.MailMerge.OpenDataSource Name:=strDatenQuelle, LinkToSource:=True, Format:=0, SQLStatement:="SELECT * FROM `tp.csv$`"  
    WinDoc.MailMerge.Destination = 0
    WinDoc.MailMerge.SuppressBlankLines = True
    WinDoc.MailMerge.DataSource.FirstRecord = wdDefaultFirstRecord
    WinDoc.MailMerge.DataSource.LastRecord = wdDefaultLastRecord
    WinDoc.MailMerge.Execute Pause:=False
    Set docSerienbrief = WinWord.ActiveDocument
    WinDoc.MailMerge.DataSource.Close
    WinDoc.Close False
    Set docSerienbrief = .Documents(1)
End With

Es wird immer dubioser,
Er sagt mir jetzt wieder in Zeile 6, dass der "befehl misslungen" sei...

Nur, einmal hat es funktioniert...
Jetzt jedoch nichtmehr

Alle Dokumente sind geschloßen etc.
Nichts ist durch einen Anderen gesperrt.

schau mal mit dem Taskmanager ob vielleicht noch offene WORD-Instanzen im Hintergrund vorhanden sind, und schieß diese ab.
Und tausche die Reihenfolge dieser Zeilen :

Set docSerienbrief = .Documents(1)
WinDoc.Close False

WinDoc.Close False
Set docSerienbrief = .Documents(1)

hat auch nur einmal, direkt beim Ändern --> Ausführen geklappt.
Danach der selbe Fehler...

Ich weiß nicht woran das liegt.
Habe aber aufgegeben :D

Die Verarbeitung mach ich jetzt über ein Makro in Excel, aber übergeben wird es als csv in iReport ...
Viel einfacher dort...

Tortzdem recht herzlichen Dank für eure und vor allem deine, colinardo, Hilfe.

Gruß, Sibbel

German Question VB for Applications Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 3 Comments

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

WIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment