小小处女作：自定义函数(从完整路径中分离文件名/路径/尾缀名)

z183400313

學習了，這是個學習的好地方

lsdlyhz

我用API写了个，可以借鉴借鉴
API处理这类事情更可靠
http://club.excelhome.net/forum. ... =1172739&extra=

weiyingde

aman1516 发表于 2014-12-14 23:07
正是抛砖引用玉，学习一下……

赞一个，学习了

sunny2333

收藏了，感谢楼主和大侠们的分享

琥珀川1990

学习了，谢谢大家的分享，谢谢

dogingate

不好意思，代码运行有错误，所以改了下

Public Function getwjname(ByVal FullPath As String) As String
Dim wz1 As Integer: wz1 = InStrRev(FullPath, "\")   ' 获取“\”的最后位置
Dim wz2 As Integer: wz2 = InStrRev(FullPath, ".")   ' 获取“.”的最后位置
'If myNo = 1 Then    ' 第二参数为1
'    NameAndPath = Mid(FullPath, Str2, Len(FullPath) - Str2 + 1)    ' 返回: 尾缀名
'ElseIf myNo = 2 Then    ' 第二参数为2
getwjname = Mid(FullPath, wz1 + 1, wz2 - wz1 - 1)  ' 返回: 文件名
'ElseIf myNo = 3 Then    ' 第二参数为3
'    NameAndPath = Mid(FullPath, Str1 + 1, Len(FullPath) - Str1)   ' 返回: 带后缀文件名
'ElseIf myNo = 4 Then    ' 第二参数为4
'    NameAndPath = Mid(FullPath, 1, Str1)    ' 返回: 路径
'Else:
'    NameAndPath = ""   ' 其它，返回空值
'End If
End Function

yzxfelix

香川群子 发表于 2014-11-14 17:12
现实应用中，只要使用其中的1句代码即可……所以说写这个自定义函数是没有意义的。

老师您好，最近也学写些函数，关于数组方面的，SQL方面的，有没有参考奥