Der Remoteservercomputer ist nicht vorhanden oder nicht verfügbar (Fehler 462)

[Nyn007]

Ha((o

Habe in der letzten Zeit öfter das Problem, daß ich eine Worddatei nicht in PDF umwandeln kann. Manchmal geht es, manchmal nicht. Die Fehlermeldung lautet:
"Der Remoteservercomputer ist nicht vorhanden oder nicht verfügbar (Fehler 462)"

Mein Code sieht wie folgt aus:

Code:

Sub RechnungSpeichern()

Dim hilfszahl As Integer
Dim dateipfad As String
Dim dateiname As String
Dim datum As String
Dim jahr As String
Dim kundennamen As String
Dim rechnungsnummer As String
Dim dateinamensende As String
Dim rechnungsdatum As Date
   
   Call SpeicherDaten(rechnungsdatum, kundennamen, rechnungsnummer) 'holt sich Werte aus globalen Variablen
   jahr = Format(rechnungsdatum, "yyyy")
   datum = Format(rechnungsdatum, "yyyy-mm-dd")
   dateipfad = ThisWorkbook.Path & "\..\02 Rechnungen\" & jahr & "\"
   dateiname = rechnungsnummer & " " & datum & " " & kundennamen

   'prüfen ob Datei bereits vorhanden
   Do While Not Dir(dateipfad & dateiname & ".pdf") = ""
       dateinamensende = Right(dateiname, 2)
       If IsNumeric(dateinamensende) = False Then
           dateiname = dateiname & " 01"
       Else
           hilfszahl = Val(dateinamensende) + 1
           dateinamensende = Format(CStr(hilfszahl), "##00")
           dateiname = Left(dateiname, Len(dateiname) - 2)
           dateiname = dateiname & dateinamensende
       End If
   Loop
   
   'Exportieren der Rechnung in eine PDF Datei
   ActiveDocument.ExportAsFixedFormat OutputFileName:=dateipfad & dateiname & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForOnScreen, Range:=wdExportAllDocument
   Call DateiVerlinken(dateipfad & dateiname & ".pdf", hauptzeile)
   
   'Wenn das anklicken zum Speichern der Originalrechnung in Word-Format ausgewählt ist, dann speichern im Ordner Original.
   If DateiSpeichernForm.WordFormat.Value = True Then
       ActiveDocument.SaveAs2 filename:=dateipfad & "Originale\" & dateiname & ".docx", FileFormat:=wdFormatDocumentDefault, addtorecentfiles:=True, ReadOnlyRecommended:=True
   End If

   'Aktives Word-Dokument schliessen
   ActiveDocument.Close savechanges:=False
   
   Word.Application.Quit
End Sub

Code:

ActiveDocument.ExportAsFixedFormat OutputFileName:=dateipfad & dateiname & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForOnScreen, Range:=wdExportAllDocument

In dieser Zeile tritt der Fehler auf.

Hat jemand eine Idee?
Wäre nett.
Danke
Grüße

[steve1da]

Hola,

https://support.microsoft.com/de-de/help...-message-o

http://www.office-loesung.de/ftopic475463_0_0_asc.php

https://www.excel-nervt.de/wo-ist-der-re...-computer/

Gruß,
steve1da

[chris-ka]

Hi,
es liegt zu 100% daran
https://www.excel-nervt.de/wo-ist-der-re...-computer/

Wobei es natürlich auch mit "Late binding" funktioniert ohne jetzt einen Verweis zu setzen.
siehe 
https://books.google.at/books?id=5Zh4DwAAQBAJ&pg=PT831&lpg=PT831&dq=late+und+early+binding+word&source=bl&ots=Ynz8ZVbD7S&sig=ACfU3U0gFjH4ZbfiWwD3JLXQNBYpF8Hd4A&hl=de&sa=X&ved=2ahUKEwiJmZfNwv7gAhVBM-wKHUuECt44ChDoATAAegQICRAB#v=onepage&q=late%20und%20early%20binding%20word&f=false

ups, da war ich zu langsam, dafür war der Kaffee gut ^^