Excel 怎样用VBA提取图片文件名
答案:1 悬赏:60
解决时间 2021-03-24 01:36
- 提问者网友：长安小才冯
- 2021-03-23 16:00
Excel 怎样用VBA提取图片文件名
最佳答案
- 二级知识专家网友：一起来看看吧
- 2021-03-23 16:06
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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| • 手机登qq时，显示手机磁盘不足，清理后重新登 |
| • 刺客的套装怎么选啊？ |