如何提取某一路径下的所有文件夹名称到工作表中，并创建超链接？

作者：绿色风分类：时间：2022-08-18 浏览：129

楼主水星钓鱼	Q：如何提取某一路径下的所有文件夹名称到工作表中，并创建超链接？ A：用以下代码可以提取D盘所在的路径下的所有文件夹名称到工作表中，并创建超链接？ Private Sub Workbook_Open() Dim sDir As String Dim i As Long Dim sPath As String ' sPath = ThisWorkbook.Path sDir = Dir("D:", vbDirectory ) Do While sDir <> "" Debug.Print sDir If GetAttr("D:\" & sDir) = vbDirectory Then i = i + 1 ActiveSheet.Hyperlinks.Add Cells(1, i), "D:\" & sDir End If sDir = Dir Loop End Sub 附件如下：提取文件夹并创建超链接.rar 补充内容 (2014-1-22 07:10): 若觉得帖子好，请使用右下角的评分功能给这个帖子评分
2楼松儿	学习，收藏！谢谢分享！
3楼纵鹤擒龙水中月	学习
4楼芐雨	学习了
5楼 keven	最近刚在看dir函数方面的东西赞一个！
6楼 wise	study

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表