(以解決)提取工作簿照片名称

joyark · 发表于 2011-8-22 23:48:00

本帖最后由 joyark 于 2011-8-23 01:07 编辑

提取工作簿照片名称
請幫忙修改
1.照片名称在A3顯示

Sub 提取工作簿照片名稱()
Dim pic As String, i As Long
pic = Dir(ThisWorkbook.Path & "\照片\*.*")
n = 2
While pic > ""
n = n + 1
Sheets("演示1").Cells(n, 1) = Split(pic, ".")(0)
pic = Dir()
Wend
End Sub

ui · 发表于 2011-8-23 12:17:42

学习

冰心8549 · 发表于 2011-8-23 23:05:18

学习学习

学习

冰心8549 · 发表于 2011-8-23 23:06:36

很有用，谢谢分享

joyark · 发表于 2011-8-23 23:10:59

冰心8549 发表于 2011-8-23 23:06
很有用，谢谢分享

加為好

joyark · 发表于 2011-8-28 23:58:22

冰心8549 发表于 2011-8-23 23:06
很有用，谢谢分享

日後有問題回復

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

(以解決)提取工作簿照片名称

群介绍
主题无相 (随机显示版	同地区群块其他地区)