Office: Word Dokument speichern und zurück nach Excel wechseln

Hallo,

wie kann ich, nachdem ich Daten von Excel nach Word übertragen habe, das Word Dokument speichern und wieder zurück nach Excel zurück gelangen'?

Mit denunten stehenden Code bekomme ich eine Fehlermeldung, wenn ich das Word Dokumente nicht speichere und nach Excel wechseln will.

Ich habe versucht ein "On Error GoTo 0" zu machen, aber ohne Erfolg.
Wer kann sachdienlcihe Hinweise geben?

Vielen Dank!!

Code:

Private Sub CommandButton2_Click()
  Dim WordApp As Object
  On Error GoTo 0

  Set WordApp = CreateObject("Word.Application")
      WordApp.Application.Visible = True
  
  
  Application.ActivateMicrosoftApp xlMicrosoftWord
  
  WordApp.Application.Documents.Add ("L:\dve\VHK-Vorlage.dot")
  WordApp.Application.activedocument.Bookmarks("LSDatum").Range.Text = TextBox1
  WordApp.Application.activedocument.Bookmarks("Stück").Range.Text = TextBox2
  
  If OptionButton1.Value = True Then
    WordApp.Application.activedocument.Bookmarks("ArtikelBez").Range.Text = "Charg. Injektorteile"
  Else
    WordApp.Application.activedocument.Bookmarks("ArtikelBez").Range.Text = "Dechargieren Injektorteile"
  End If
  
  WordApp.Application.activedocument.Bookmarks("TBK").Range.Text = TextBox4
  WordApp.Application.activedocument.Bookmarks("BestellNr").Range.Text = TextBox3
  WordApp.Application.activedocument.Bookmarks("AuftragNr").Range.Text = TextBox5
  WordApp.Application.activedocument.Bookmarks("LsNr").Range.Text = TextBox6
  WordApp.Application.activedocument.PrintOut
 'WordApp.Application.ActiveDocument.SaveAs "L:\dve\VHK_" & Date + "_" & TextBox6 + ".doc"
 'WordApp.Application.activedocument.Close
  WordApp.Quit
  Set WordApp = Nothing
End Sub

 

Hallo,

durch kleine spielereien habe ich nun herausgefunden, das man

On Error Resume Next

verwenden kann, um einen Laufzeifehler zu ignorieren und an der Stelle weiter machen kann, wo der LF aufgetretten ist.

schon komisch diese Programmiererrei .... :-)

mfg
paule

 

Hallo,

Dieses Statement bewirkt nicht, dass von da weg kein Programmabbruch wegen Fehler eintritt, sondern bewirkt nur, dass ab dieser Programmzeile eine vorher aktivierte benutzerdefinierte Fehlerbehandlung abgeschaltet wird. Dadurch erfolgt ein Programmabbruch (aufgrund eines Fehlers) sofort an Ort und Stelle, sofern nicht auf einer höheren CALL-Ebene eine benutzerdefinerte Fehlerbehandlung noch aktiv ist.

Es wäre schön gewesen, wenn Du den Ort und die Art (Nr+Kurzbeschreibung) des aufgetretenen Fehlers mitgeteilt hättest - denn diese Informationen werden nicht bloß aus lauter Jux und Tollerei von VBA geliefert.

Aufgrund dieses Codes hast Du auf alle Fälle zwingend einen Fehler 13 (Typen unverträglich) erhalten, denn die beiden "+"-Operatoren sind an diesen Stellen deplatziert - es gehört dort überall ein "&"-Operator verwendet, um eine Textverkettung auszuführen (und nicht eine numerische Addition).

Die beiden runden Klammern sind an dieser Stelle überflüssig - VBA hat den drohenden Fehler selbsttätig erkannt und hat zwischen "Add" und "(" ein Leerzeichen eingefügt, um mit Trick einen Syntaxfehler zu verhindern.
Wird nämlich eine Methode oder Funktion oder Sub (in diesem Fall "Add") verwendet, die Argumente benötigt (in diesem Fall: Pfad+Dateiname), und wird sie als SUB aufgerufen (d.h. sie liefert kein Resultat zurück wie eine FUNCTION), so dürfen für die Argument(list)e keine runden Klammern verwendet werden.