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