CSV/XLSカタログから画像をダウンロード

Question

EDIT： xlsファイルから画像をダウンロードするには、このコードがあります。 出典：GET pictures from a url and then rename the picture

コード：

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 

それはXLSファイルで正常に動作し、 "PIC NAME" と "URL" は、2つの別々の列です。私はcsvファイルを持っていて、xlsとは違って、csvは "|"で区切られた1つの列に値を持っています。 （PIC NAME | URL）。だから、コーディング時のノブである - 回避策として、私はExcelで "Text to columns"を使用して、行を2つの別々の列に区切って区切り記号 "|"の下に分けて、元のコードを使用できるようにした。

質問：csvファイルでコードを動作させる方法はありますか？これは、数千の行を持つ大きなcsvファイルから画像を抽出する方がはるかに迅速かつ容易になります。

Answer 1

VBAはExcel用の自動化を提供するので、手動で行うこともできるすべてのことをVBAによって自動化することができます。 Excelには、自動的にすべてのユーザーアクションをVBAコードに変換するマクロレコーダーが組み込まれています。この答えは、それがどのように機能するかについて説明します。Excel's Macro-Recorder usage

これはテキスト列に機能が生成するVBAコードの種類を確認するために使用することができます。あなたは少しのコードをクリーンアップする場合は、このVBAコマンドで終わる：

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

あなたがExcelにインポートされた全範囲でSelectionを交換したり、コードを実行する前に、あなたは全体の範囲を選択していることを確認します。また、Range("A1")を、結果を書き込む範囲で置き換えます。

ただし、後でこれらのセルを解析するために、Excelのセルに書き込むのは効率的ではありません。問題をより明確に解決するには、ダウンロードしたファイルを1行ずつ読み込み、必要に応じて各行を解析します。

は幸いにも、すでにそのためのソリューションがあります：Read lines from a text file but skip the first two lines