31.08.2016, 15:22
Hallo,
ich habe eine Liste mit Internetlinks zu Dateien (1465 Stück) in Spalte A und die dazugehörigen Namen in Spalte B.
ich würde gerne alle Links downloaden und entsprechend benennen.
Die Schleife habe ich schon.
Ich habe das mal mit Filecopy versucht... Funktioniert leider nicht.
Gibt es für das Problem einen Befehl?
ich habe eine Liste mit Internetlinks zu Dateien (1465 Stück) in Spalte A und die dazugehörigen Namen in Spalte B.
ich würde gerne alle Links downloaden und entsprechend benennen.
Die Schleife habe ich schon.
Ich habe das mal mit Filecopy versucht... Funktioniert leider nicht.
Gibt es für das Problem einen Befehl?
Code:
Sub download()
Dim sourceURL As String
Dim targetFile As String
For i = 1 To 1465
sourceURL = Cells(i, 1)
targetFile = "Y:\Test\" & Cells(i, 2)
FileCopy sourceURL, targetFile
Next i
End Sub