Office: (Office 2010) 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

Hallo Stefan,

Deiner Beschreibung traue ich nicht so ganz. *wink.gif*

Wenn der Job einmal durchgelaufen ist, dann hat die Variable appWord den Inhalt Nothing.

Ich bezweifle aber, dass der Job so überhaupt durchgelaufen ist, denn Excel kann mit den ActiveDocument nun wirklich nichts anfangen. Da muss entweder eine Word-Referenz davor gesetzt werden oder Du beziehst Dich gleich auf das richtige Word-Dokument-Objekt.

Und dann haben Fehler in solchen Jobs die unangenehme Eigenschaft, dass eine Restinstanz von Word im Speicher bleibt und appWord.Quit die auch nicht aufräumt. Lösche nach jedem Hänger die Word-Tasks oder starte die WordInstanz in einer Klasse, die beim Terminieren keine Reste hinterlässt.

chris-kaiser · 7. April 2015

Hi,

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
endName = "c:\Test\test.docx"
'Öffne neues Word-Dokument mit Vorlage
Set docVorlage = appWord.Documents.Open(endName)

'Textmarken einsetzen
For loCounter = 1 To UBound(strTmark)
With docVorlage
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
docVorlage.PrintOut
docVorlage.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.

ändere mal activedoc... in docVorlage
und ich würde docx verwenden statt der dotx
da ja ohnehin nicht gespeichert wird.

criehl · 7. April 2015

Hallo zusammen,

vielen Dank für Eure Hilfe!

@haklesoft
Es war so wie ich beschrieben habe.
Trotz des ActiveDocuments konnte ich das was ich wollte 1x ausdrucken, aber kein 2.Mal - dazu hätte ich erst alles schließen und wieder öffnen müssen.

@chris-kaiser
Super - vielen, vielen Dank!
Das einzige was nicht funktionierte war dieser Eintrag
endName = "c:\Test\test.docx"
Da hatte er gemeckert, aber ich habe ihn dann ' gesetzt und seitdem geht alles wunderbar.

Danke für Eure Hilfe!!!
Zu meinen anderen Fragen mache ich ein neuen Eintrag auf *Smilie

LG
Stefan

chris-kaiser · 7. April 2015

Hi,
^^^^^
sry, das hatte ich zum Testen drinnen. *biggrin.gif*
und vergessen zu löschen!

Office: (Office 2010) 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.

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 ???