如何实现函数创建文件目录

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

楼主罗刚君	Function File(ByVal 路径 As String, ByVal 文件名 As String, _ Optional ByVal 索引 As Long = 1) As String Application.Volatile On Error Resume Next Dim Paths As String, i As Long Paths = Dir(路径 & "\" & 文件名) Do While Paths <> "" i = i + 1 If i = 索引 Then File = Paths ActiveSheet.Hyperlinks.Add Application.ThisCell, 路径 & "\" & Paths, , _ "单击打开：" & 路径 & "\" & Paths Exit Do Else Application.ThisCell.Hyperlinks(1).Delete End If Paths = Dir Loop End Function
2楼 Rongson_Chart	学习~！
3楼 eliane_lei	罗版V5,学习了
4楼水吉果果	学习

免责声明

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

评论列表