VBA優於jpg類型的圖像格式的存在

Question

可以說我在excel中有一個名為test.xls的電子表格，里面有一個名為column1的列，其值為image1，image2等。我有一個名為images的文件夾，包含jpg類型的圖像，名稱類似於image1中的值.jpg，image2.jpg等我需要一個Vba代碼來檢查圖像是否存在於基於電子表格列的文件夾中。 謝謝！

Answer 1

此示例將在另一列中顯示搜索結果。 編輯變量，不要忘記文件夾路徑中的最后一個\\。

Sub checkFiles()
  Dim count&, lastRow&
  Dim folderPath, columnRead, columnWrite As String

  folderPath = "C:\EXAMPLE\"
  columnRead = "A"
  columnResults = "B"

  lastRow = ThisWorkbook.Sheets(1).Range(columnRead & Rows.count).End(xlUp).Row
  For count = 1 To lastRow
    Range(columnRead & count).Activate

    If Dir(folderPath & Range(columnRead & ActiveCell.Row).Value) <> "" Then
        Range(columnResults & ActiveCell.Row).Value = "File exists."
    Else
        Range(columnResults & ActiveCell.Row).Value = "File doesn't exist."
    End If

  Next count
End Sub