Thema Datum  Von Nutzer Rating
Antwort
18.02.2024 16:36:44 Anfänger
NotSolved
Blau Als pdf Speicern
 18.02.2024 23:37:21 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
18.02.2024 23:37:21		 Views:
128		 Rating:
     
Antwort:
  Ja
Thema:
Als pdf Speicern

dann hast du wohl nicht ordentlich gesucht.  Ich habe eine Lösung von  Copilot bekommen, und der sucht auch nur im Web.

die Pfade mußt du natürlich noch anpassen. Für nächste Mal. Vermeide Datein zu verlinken, die so groß sind. 

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    

Sub PDFHerunterladen()
    Dim URL As String
    Dim Speicherpfad As String
    Dim Erfolg As Boolean
    
    ' Setzen Sie den Link zur PDF-Datei
    URL = "https://learn.microsoft.com/pdf?url=https%3A%2F%2Flearn.microsoft.com%2Fde-de%2Fsql%2Freporting-services%2Ftoc.json%3Fview%3Dsql-server-ver16"
    
    ' Legen Sie den Speicherpfad für die heruntergeladene Datei fest
    Speicherpfad = "C:\Pfad\Zum\Speichern\meine-pdf-datei.pdf"
    
    If URLDownloadToFile(0, URL, Speicherpfad, 0, 0) = 0 Then
        MsgBox "PDF wurde erfolgreich heruntergeladen und unter " & Speicherpfad & " gespeichert."
    Else
        MsgBox "Fehler beim Herunterladen der PDF-Datei."
    End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.02.2024 16:36:44 Anfänger
NotSolved
Blau Als pdf Speicern
 18.02.2024 23:37:21 ralf_b
NotSolved