如何用vba代码取得去除路径和扩展名的文件名？

作者：绿色风分类：时间：2022-08-17 浏览：145

楼主 kevinchengcw	Q: 如何用vba代码取得去除路径和扩展名的文件名？ A: 测试代码如下： Sub test() Dim Fil$ Fil = Application.GetOpenFilename("Text Files (.txt), .txt") MsgBox Left(Split(Fil, "\")(UBound(Split(Fil, "\"))), InStrRev(Split(Fil, "\")(UBound(Split(Fil, "\"))), ".") - 1) End Sub 分解如下： Split(Fil, "\")将文件全路径名以路径分隔符分隔放入数组，对应数组上限就是文件名 Split(Fil, "\")(UBound(Split(Fil, "\")))得到的就是文件名 InStrRev(Split(Fil, "\")(UBound(Split(Fil, "\"))), ".") 得到文件名中最后一个"."的位置，减1就是去除文件扩展名的全文件名长度，再用left进行截取。
2楼 wqfzqgk	GetBaseName
3楼 kevinchengcw	谢谢，知道这个，还真没用过

免责声明

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

评论列表