Laden Sie Bilder aus einem CSV/XLS-Katalog herunter

Question

EDIT: Ich habe diesen Code gefunden, um Bilder aus einer XLS-Datei herunterzuladen. Quelle: GET pictures from a url and then rename the picture

Code:

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 

Dim Ret As Long 

'~~> This is where the images will be saved. Change as applicable 
Const FolderName As String = "C:\Temp\" 

Sub Sample() 
    Dim ws As Worksheet 
    Dim LastRow As Long, i As Long 
    Dim strPath As String 

    '~~> Name of the sheet which has the list 
    Set ws = Sheets("Sheet1") 

    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row 

    For i = 2 To LastRow '<~~ 2 because row 1 has headers 
     strPath = FolderName & ws.Range("A" & i).Value & ".jpg" 

     Ret = URLDownloadToFile(0, ws.Range("B" & i).Value, strPath, 0, 0) 

     If Ret = 0 Then 
      ws.Range("C" & i).Value = "File successfully downloaded" 
     Else 
      ws.Range("C" & i).Value = "Unable to download the file" 
     End If 
    Next i 
End Sub 

Es funktioniert gut mit xls-Dateien, wobei "PIC NAME" und "URL" ist in zwei getrennten Spalten. Ich habe eine CSV-Datei und im Gegensatz zu xls hat csv seine Werte in einer Spalte durch "|" (PIC NAME | URL). Also - ein Noob beim Codieren - als Workaround, habe ich "Text to columns" in Excel verwendet, um die Zeilen in zwei separate Spalten zu teilen, ganz nach dem Trennzeichen "|", so kann ich den Originalcode verwenden.

FRAGE: Gibt es eine Möglichkeit, den Code mit einer CSV-Datei arbeiten zu lassen? Dies würde es viel schneller und einfacher machen, Bilder aus großen CSV-Dateien mit Tausenden von Zeilen zu extrahieren.

Answer 1

Da VBA Automatisierung für Excel bietet, kann alles, was Sie manuell tun können, auch von VBA automatisiert werden. In Excel ist sogar ein Makrorekorder integriert, der alle Benutzeraktionen automatisch in VBA-Code umwandelt. Diese Antwort erklärt, wie es funktioniert: Excel's Macro-Recorder usage

Dies kann verwendet werden, um zu sehen, welche Art von VBA-Code die Text zu Spalten Funktion generiert. Wenn Sie den Code ein bisschen aufzuräumen am Ende mit diesem VBA-Befehl auf:

Selection.TextToColumns Destination:=Range("A1") _ 
         , DataType:=xlDelimited _ 
         , Other:=True _ 
         , OtherChar:="|" 

Vergewissern Sie sich, dass Sie Selection durch den gesamten Bereich ersetzen, die Sie in Excel importiert oder dass Sie den gesamten Bereich auswählen, bevor Sie den Code ausführen . Ersetzen Sie auch Range("A1") durch den Bereich, in den das Ergebnis geschrieben werden soll.

Es sollte jedoch angemerkt werden, dass es nicht sehr effizient ist, Zeug in Excel-Zellen zu schreiben, nur um diese Zellen danach zu analysieren. Eine sauberere Lösung für Ihr Problem wäre, die heruntergeladene Datei Zeile für Zeile zu lesen und jede Zeile nach Ihren Bedürfnissen zu analysieren.

Glücklicherweise gibt es schon eine Lösung dafür: Read lines from a text file but skip the first two lines