VBA擅长为JPG格式图像格式的存在

比方说，我有一个名为test.xls的Excel中的电子表格，里面有一个名为column1的列，其值为image1，image2等。我有一个名为images的文件夹，包含types为jpg的图像，名称类似于列image1中的值.jpg，image2.jpg等。我需要一个VBA代码来检查图像是否存在于基于电子表格列的文件夹中。 谢谢！

Answer 1

此示例将在另一列中显示search结果。 编辑variables，不要忘记文件夹path中的最后一个\。

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