12.03.2019, 21:23
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:
In dieser Zeile tritt der Fehler auf.
Hat jemand eine Idee?
Wäre nett.
Danke
Grüße
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 SubCode:
ActiveDocument.ExportAsFixedFormat OutputFileName:=dateipfad & dateiname & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForOnScreen, Range:=wdExportAllDocumentHat jemand eine Idee?
Wäre nett.
Danke
Grüße