Datenimport über Internet - Datei schließen

Guten Tag allerseits,
ich hänge wieder einmal wegen meiner mangelnden VBA-Kenntnisse in der Luft. Per Makrorecorder habe ich versucht aus dem Internet Daten in eine vorhandene Datei (Datei1) importieren. Der Ablauf war wie folgt: in Datei1 wird ein Hyperlink zu der Adresse im Internet aufgerufen, die Spalten A:C dort markiert, kopiert und in Spalte A der Datei1 eingefügt. Die im Internet geöffnete Datei mit den Import-Daten möchte ich auch wieder schließen. Bei Aufruf des gespeicherten Makros tritt aber gerade hier ein Fehler auf. Kann mir jemand helfen, wie ich die Datei über das Makro doch schließen kann? Wäre toll.
Hier der bisherige Code:
~

Sub Makro1 ()
Range("E1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Columns("A:C").Select
Selection.Copy
Windows("Datei1.xlsm").Activate
Columns("A:A").Select
ActiveSheet.Paste
Windows("statistik_zeitreihen_download.php").Activate
ActiveWindow.Close
Range("A1").Select
End Sub

~
Viele Grüße
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Makro1() Dim oWBEx As Workbook Set oWBEx = Workbooks.Open(Range("E1").Hyperlinks(1).Address, ReadOnly:=True) oWBEx.ActiveSheet.Columns("A:C").Copy _ Windows("Datei1.xlsm").ActiveSheet.Range("A1:C1") oWBEx.Close False End Sub

Ja, die Datei1 ist die Datei, in welche die Daten kopiert/importiert werden sollen.
Danke, Dein Code funktioniert soweit gut. Es tritt aber leider ein Nebeneffekt auf, der mir das Ergebnis wieder vermiest: Hinter dem beschriebenen Hyperlink (http://www.bundesbank.de/statistik/statistik_zeitreihen_download.php?func=directcsv&from=&until=&filename=bbk_WT5636&csvformat=de&euro=mixed&tr=WT5636) findet man auf der Website der Bundesbank eine csv-Datei mit den Wechselkursen Euro/US-Dollar. Wenn ich den Hyperlink aus einer Zelle in Datei1 (hier Zelle E1) heraus aufrufe, öffnet sich die csv-Datei mit den Daten separiert in den Spalten A:C. Wenn ich aber den neuen Code ausführe, wird ein Mix der Import-Daten erzeugt, der sich in der Zieldatei (Datei1) nur in den Spalten A:B wiederfindet.
Was kann ich hier automatisiert tun, damit es wirklich eine 1:1-Kopie wird?
Gruß
Daniel

Sub Makro1() Dim oWBEx As Workbook Set oWBEx = Workbooks.Open(Range("E1").Hyperlinks(1).Address, ReadOnly:=True, Local:=True) oWBEx.ActiveSheet.Columns("A:C").Copy _ ThisWorkbook.ActiveSheet.Range("A1:C1") oWBEx.Close False End Sub

Beliebteste Forumthreads (12 Monate)

Datenimport über Internet - Datei schließen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread