Office: Mit VBA Daten aus dem Internet ziehen

Folgenden Prozess möchte ich automatiseren:

• Ich gehe auf eine Internetseite (1),
• klicke auf einen Link (2),
• lade eine csv. Datei runter (3),
• öffne diese (4),
• kopiere den gesamten Inhalt (5),
• füge ihn in meine Tabelle ein (6)
• und formatiere die Daten (7).

Da der Vorgang IMMER genau der selbe ist (bis auf Parameter in der URL) und sehr zeitaufwendig ist möchte ich ihn gerne automatiseren.
Ich habe es bereits durch ein Makro geschafft, Schritt (1) und(2) auszuführen.
Schritt (6) und (7) wird ebenfalls durch ein Makro abgearbeitet.

Schritt (3) bis (5) habe ich keine Idee, weil ich hier "außerhalb" von Excel Befehle ausführen müsste. Durch das Aufrufen des richtigen Links durch VBA, wird die Internetseite bei mir in Firefox geöffnet und automatisch das Download-Dialogfenster geöffnet.

Jetzt folgt der Teil, der noch automatisiert werden müsste
Durch Ankreuzen von "Wie soll Firefox nach dem Download mit der Datei verfahren: Öffnen mit: Editor" öffnet sich nach dem Download brav der Editor mit den Rohdaten. Was ich jetzt noch machen muss, ist [STR]+[A], [STR] +[V] und wieder auf mein ExcelDokument wechseln.

Jetzt folgen Schritt (6) und (7): Durch einen weiteren Klick auf einen Button, werden alle Daten an der richtigen Stelle eingefügt und formatiert.

Wie schaffe ich es, den mittelteil lückenlos in dieses Makro einzubetten?
Vielleicht geht es nicht auf dem Weg, sondern auf anderen wie zum Beispiel: Downloaden der Datei, Direktes Einlesen der Daten in Excel (Ohne öffnen, kopieren, einfügen..), oder durch eine Excel-Webafrage (http://office.microsoft.com/de-de/ex...rom_a_web_page)
Leider habe ich das bisher noch nicht geschafft.

Zusammenfassend würde ich mich freuen, wenn jemand, der weiß wie es geht, mich ein bisschen dadurch führen könnte, damit ich mein gewünschstes Ziel erreiche. *wink.gif*

:)

 

Guten Morgen,

theoretisch kein Problem. Ich würde allerdings die Daten direkt aus dem Internet einlesen und weiterverarbeiten. Denn eine Lösung mit SendKeys ist suboptimal.

Ich habe schon öfters Tabellen und Daten aus dem Netz für Kunden eingelesen und aufbereitet. Du kannst normalerweise die Datei direkt aus dem Internet heraus öffnen. Verwende dessen URL (http:...) anstatt die Pfadangabe dazu und öffne die Datei im Lesemodus. Genauso wie man Dateien aus dem Netzwerk öffnen kann.

Beste Grüße und Viel Erfolg
Marc

 

Wie genau kann ich das umsetzen? Mein bisheriger Versuch: "Daten" -> "Aus dem Web" -> direkte URL

Dann kommt das bekannte Fenster... Wollen Sie die Datei "öffnen" oder "speichern", egal was ich klicke es passiert nichts

 

Hallöchen,

wie schon gesagt, Du kannst es ganz normal via Makro öffnen. Ich habe es gerade mit einer Datei auf meinem Webserver getestet. Einfach die URL zum Öffnen verwenden:

Code:

Beste Grüße und Viel Erfolg
Marc

 

Vielen Dank ich habe es jetzt insgesamt so gelöst:
Code:

Ich musste nur die Workbook_Open Methode deaktivieren mit "Exit Sub", unter der Bedingung, wenn das Workbook den Namen meiner gedowloadeten Datei, hat damit ich nur die Rohdaten kopieren kann.

Danach wechsel ich mit VBA wieder ins andere Workbook und lasse die Daten einfügen!

Vielen DAnk