Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

eine PDF aus dem Internet herunterladen

eine PDF aus dem Internet herunterladen
22.07.2005 17:15:11
Reinhard
Hallo Wissende,
ich habe eine Liste mit Namen von PDFs so wie der:
ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a001.pdf
Wie sieht der VBA.Code aus damit die alle auf meiner Festplatte landen.
Ich könnte eine Schleife mit shell(IE,Name) Sendkeys(DateiSpeichernunter)
oder so basteln, aber geht das nicht eleganter?
Danke & Gruß
Reinhard

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eine PDF aus dem Internet herunterladen
22.07.2005 17:41:48
Nepumuk
Hi,
na, wenn's nicht mehr ist:
Option Explicit

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

Public Sub test()
    URLDownloadToFile 0, _
        "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a001.pdf", _
        "D:\VBA.pdf", 0, 0
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
Klasse *freu* o.w.T.
22.07.2005 17:45:47
Reinhard
Gruß
Reinhard
Du erinnerst mich an Obelix...
22.07.2005 18:04:39
Boris
Hi Nepumuk,
...der ist doch seinerzeit in den Pott mit dem Zaubertrank gefallen.
Hast du vielleicht versehentlich mal ein API-Buch verschluckt?
Grüße Boris
AW: Du erinnerst mich an Obelix...
22.07.2005 18:18:07
Nepumuk
Hi Boris,
nein, dann eher wie Asterix, der muss auch immer wieder mal nachfüllen. Ich habe nur drei Bücher über API. Zwei von Dan Appleman und eins von Microsoft. Demnächst soll noch das Buch von Michael Schwimmer dazu kommen (Ist zwar nicht reines API, aber dafür etwas Problemorientierter).
Gruß
Nepumuk
Code läuft ohne Fehler aber
22.07.2005 19:35:46
Reinhard
Hallo Nepumuk,
aber er lädt nix herunter. Ich habe a001.pdf schon auf der Platte deshalb testete ich mit a008.pdf , startete den Code. Auf der Festplatte gibt es keine 008.pdf und auch keine vba.pdf.
Gruß
Reinhard
Anzeige
AW: Code läuft ohne Fehler aber
22.07.2005 19:50:16
Peter
Servus Reinhard,
tschuldige bitte die Frage, aber warum so kompliziert? Geht doch auch einfacher siehe Bild.
Userbild
MfG Peter
AW: Code läuft ohne Fehler aber
22.07.2005 19:52:21
Nepumuk
Hi Reinhard,
die Adressen sind falsch.
Richtig:
"ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a001.pdf"
Falsch:
"ftp://ftp.fernuni-hagen.de/pub/pdfurz-broschueren/broschueren/a001.pdf"
Der ganze Code wie er funktioniert:
Option Explicit

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

Private objAdressen As clsAdressen

Public Sub prcStart()
    Dim intIndex As Integer
    Set objAdressen = New clsAdressen
    Call prcInitAdressen
    With objAdressen.prpAdressen
        For intIndex = 1 To .Count
            URLDownloadToFile 0, _
                .Item(intIndex), "D:\VBA" & CStr(intIndex) & ".pdf", 0, 0
        Next
    End With
    Set objAdressen = Nothing
End Sub

Private Sub prcInitAdressen()
    With objAdressen.prpAdressen
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a001.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0019809.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a002.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0029502.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a003.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0030407.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a005.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0059802.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a006.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0069809.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a017.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0179911.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a026.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0260003.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a027.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0279510.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a028.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0289401.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a037.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/a0379202.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b001.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0010308.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b002.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0020409.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b003.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0039701.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b004.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0049807.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b005.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0050208.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b006.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0069412.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b008.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0089906.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b009.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0099911.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b010.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0109708.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b011.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0119710.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0129911.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b014.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0140101.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b015.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0150409.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b016.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0160210.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b026.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0260410.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b027.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0279705.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b062.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0620007.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b072.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b0729604.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/c003.pdf"
        .Add "ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/c0030407.pdf"
    End With
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
jetzt läuft er bedeutend länger aber :-(
22.07.2005 20:14:21
Reinhard
Hallo Nepumuk,
da er so lange lief dachte ich schon es wäre geschafft, aber zufrüh gefreut.
Suche nach *.pdf zeigte mir dass nichts runtergeladen worden ist.
Übrigens dieses D:\vba..., ich habe nur eine C-Platte derzeit.
Gruß
Reinhard
AW: jetzt läuft er bedeutend länger aber :-(
22.07.2005 20:22:59
Nepumuk
Hi,
das kommt davon, wenn du drei Thread aufmachst zu ein und dem selben Thema. Also, hier nochmal die funktionierende Datei:
https://www.herber.de/bbs/user/24936.xls
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
sorry, dnke dir, jetzt klappts o.w.T
22.07.2005 22:07:56
Reinhard
Gruß
Reinhard

21 Forumthreads zu ähnlichen Themen

Datenimport aus dem Internet
Karsten

Guten Morgen,
ich habe gerade ein Makro fertig gestellt, mit dem ich Daten zu verschiedenen Zertifikaten aus unterschiedlichen Internetseiten auslesen und auswerten kann. Dazu benötige ich nur die jeweilige ISIN des Zertifikates. Solange sich der Seitenaufbau bei den Anbietern nicht ändert,...
04.07.2012 18:09:21
Thread-ID: 1269853
3 Beiträge
Anzeige
VBA 32-64bit Fehler
PQuest:-)

Hallo,
ich habe ein Userform, in das ich ein Modul zum Drucken des Forms eingebunden habe, was auch unter Excel 2010 32 bit problemlos läuft. Jetzt hat es jemand unter Excel 2010 64 bit genutzt und erhält die Fehlermeldung:
Compile Error
The code in this project must be updatedfpor...
10.11.2015 17:12:45
Thread-ID: 1457506
3 Beiträge
MP3 via VBA abspielen unter 64bit geht nicht mehr
Olli

Hallo Leute!
Verzweifel gerade und hoffe auf eure Hilfe.
Ich lasse per VBA eine MP3 Datei abspielen. Das hat mit meinem alten Rechner Win10/32bit auch problemlos funktioniert.
Jetzt habe ich einen neuen Rechner mit Win10 /64bit /Office 2016 /32bit und da funktioniert es nicht. Die...
22.02.2017 20:27:51
Thread-ID: 1543351
7 Beiträge
Anzeige
CSV Dateien aus dem Internet herunterladen.
Mario

Hallo,
ich möchte mehrere CSV-Dateien aus dem Internet herunterladen und auf dem aktuellen Tabellenblatt untereinander ab der Zeile "A4" auflisten. Das geht soweit, jedoch werden zur Zeit die Dateien nebeneinander aufgelistet. Also erste Datei A4:B4, zweite Datei C4:D4. Außerdem wird ein Te...
31.07.2018 15:32:49
Thread-ID: 1636829
13 Beiträge
umgebungsvariable setzen per VBA in 64bit
Leo

Hallo Allerseits,
zunächst einmal ein großes Danke für dieses Forum mit den vielen hilfreichen Infos und nützlichen Hilfestellungen!

Hier in kurz meine Problemstellung für die ich Hilfe benötige:

Wie kann ich aus VBA Umgebungsvariablen setzen?
Ich habe im Internet b...
14.03.2019 09:16:29
Thread-ID: 1681193
15 Beiträge
VBA 64bit
Pepi

Hallo Zusammen
Ich habe von Office 2010 auf Office 2019 Student (neuer Notebook - HP-Pavilion i7-8650) gewechselt. Jetzt bekomme ich beim öffnen meiner Tabellen Fehlermeldungen. Offenbar kann man das wie nachfolgend mit einer Versionsabfrage machen. Leider erscheint die else-Zeile rot, was...
06.06.2019 14:32:23
Thread-ID: 1696488
6 Beiträge
Daten aus dem Internet
Benjmain Gevelhoff

Hallo!
Ich habe hier ein Projekt bekommen, bei dem ich an einer Stelle nicht weiter komme. Ich möchte einem CB eine Anwendung hinterlegen, die folgendes leistet:
1.) Den Inhalt aus einer Zelle nehmen (z.B.: A1)
2.) Im Hintergrund die Internetseite: http://www.creditreform.de/service/st...
09.04.2003 13:07:13
Thread-ID: 242572
3 Beiträge
Daten aus dem Internet kopieren
Ingo

Hallo Leute,
als Hobby Excelanwender habe ich mal eine Frage.
Ich kopiere Daten aus dem Intranet, (an meinem Arbeitsplatz)dabei handelt es sich um Daten wie Brutto, Tara, Netto Gewichte und Datum.Die Daten auf der Seite sind von 2 Jahren, ich brauche aber immer nur das heutige Datum, also...
26.04.2003 09:49:35
Thread-ID: 249407
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
6
9
12
14
5
2
2
2
2
4
1
2
7
1
4
1
9
7