Office: Laufzeitfehler 462....Der Remote-Server-exisitiert nicht oder ist nicht verfügbar.

criehl · 5. April 2015

Hallo,

ich habe mit VBA eine Excel-Datei programmiert.
In einer UserForm werden ein paar Daten eingegeben, die dann an WORD übergeben werden sollen.
Hierzu soll WORD im Hintergrund geöffnet werden, die Datei mit den eingetragenen Werten ausgedruckt und anschließend ohne speichern geschlossen werden.

Das klappt auch alles - beim 1.Mal.

Wenn ich in der geöffneten UserForm nochmal auf den Button drücke, dann kommt der Laufzeitfehler
Laufzeitfehler 462....Der Remote-Server-exisitiert nicht oder ist nicht verfügbar.

Ich vermute, dass ich bei meinem Code einen Fehler habe und immer wieder eine neue Word-Instanz erstellt wird, die zuvor nicht geschlossen wird.
Im Task-Manager habe ich nämlich bei Prozesse 2 Word Einträge.

Ich kenn mich aber leider nicht so gut aus, um zu erkennen, wo hier der Fehler liegt.

Vielleicht kann mir jemand von Euch bitte helfen?
Beim Debuggen des Fehlers wird die rote Zeile markiert.

Code:

Option Explicit
Public appWord As New Word.Application
Public docVorlage As Object

Public Function WordDokument()
'Dateinamen auslesen
Dim endName As String
Dim filePath As String
Dim Name As String
Dim i As Integer
Dim j As Integer
Dim strTmark(11) As String
Dim loCounter As Long
Dim rngBM As Object
Dim wsSource As Worksheet

Set wsSource = ActiveWorkbook.Worksheets(4)

strTmark(1) = "Hersteller"
strTmark(2) = "Artikelname"
strTmark(3) = "Zusatztext"
strTmark(4) = "Flaschenzahl"
strTmark(5) = "Füllmenge"
strTmark(6) = "Kistenpreis"
strTmark(7) = "PfandKiste"
strTmark(8) = "LiterPreisKiste"
strTmark(9) = "Flaschenpreis"
strTmark(10) = "PfandFlasche"
strTmark(11) = "LiterPreisFlasche"

'Name und Pfad der Datei einlesen
filePath = ActiveWorkbook.FullName
'Länge Dateipfad und Dateiname ermitteln
i = Len(filePath)
'Name der Datei einlesen
Name = ActiveWorkbook.Name
'Länge Dateiname ermitteln
j = Len(Name)

'Ermittel Pfad zur Vorlage (Ordner dieser Datei \ Dateiname)
endName = Left(filePath, i - j) & "PlakatA3.dotx" 'aus docx dotx gemacht

'Öffne neues Word-Dokument mit Vorlage
Set docVorlage = appWord.Documents.Open(endName)

'Textmarken einsetzen
For loCounter = 1 To UBound(strTmark)
With ActiveDocument
If .Bookmarks.Exists(strTmark(loCounter)) Then
Set rngBM = .Bookmarks(strTmark(loCounter)).Range
rngBM.Text = wsSource.Range("c" & loCounter + 2).Text
.Bookmarks.Add Name:=strTmark(loCounter), Range:=rngBM
Set rngBM = Nothing
.Fields.Update
End If
End With
Next loCounter

'Word drucken und schliessen
ActiveDocument.PrintOut
ActiveDocument.Close savechanges:=False

appWord.Quit
Set appWord = Nothing
Set docVorlage = Nothing
Set wsSource = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke im Voraus!

LG
Stefan

:)

haklesoft · 7. April 2015

Doublette. Siehe hier

Office: Laufzeitfehler 462....Der Remote-Server-exisitiert nicht oder ist nicht verfügbar.

Laufzeitfehler 462....Der Remote-Server-exisitiert nicht oder ist nicht verfügbar.

Laufzeitfehler 462....Der Remote-Server-exisitiert nicht oder ist nicht verfügbar.

Laufzeitfehler 462....Der Remote-Server-exisitiert nicht oder ist nicht verfügbar. - Similar Threads - Laufzeitfehler 462 Remote

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

Laufzeitfehler 462....Der Remote-Server-exisitiert nicht oder ist nicht verfügbar.

access --> word /// Laufzeitfehler 462 ???