Office中国论坛/Access中国论坛

标题: (以解決)提取工作簿照片名称 [打印本页]

---

作者: joyark    时间: 2011-8-22 23:48
标题: (以解決)提取工作簿照片名称


提取工作簿照片名称
請幫忙修改
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
学习

---

作者: 冰心8549    时间: 2011-8-23 23:05
学习学习

学习

---

作者: 冰心8549    时间: 2011-8-23 23:06
很有用，谢谢分享

---

作者: joyark    时间: 2011-8-23 23:10

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

加為好

---

作者: joyark    时间: 2011-8-28 23:58

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

日後有問題回復

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3