Question

Excel 怎样用VBA提取图片文件名

Answer 1

Public Sub PicName()
Dim Pth As String
Dim Pic As String
ActiveSheet.Range("A1").Select  '选中激活窗口的A1
Pth = "C:\Users\Public\Pictures\Sample Pictures"
'路径，系统自带图片的地方
Pic = Dir(Pth & "\*.jpg")   '查看JPG格式的图片名称
Do While Pic <> ""
        Selection = Pic         '赋值
        Pic = Dir               
        Selection.Offset(1, 0).Select
Loop
End Sub