批量导入硬盘中的图片文件名称到Excel

Sub aa()

Dim s As String

[a1].CurrentRegion.Clear

s = Dir(ThisWorkbook.Path & "\*.jpg")

Do While s <> ""

[a1] = "图片名称"

[a65536].End(xlUp).Offset(1, 0) = s

s = Dir()

Loop

End Sub