作者：绿色风
分类：
时间：2022-08-17
浏览：110
楼主
omnw |
Q：如何用VBA获取当前文件的路径信息？
A：可以用如下代码获得当前文件的盘符，一级目录，，末级目录和文件名。
- Sub wn()
- Dim str As String
- Dim i As Integer
- Dim j As Integer
- j = UBound(Split(ThisWorkbook.FullName, "\"))
- For i = 0 To j
- str = Split(ThisWorkbook.FullName, "\")(i)
- If i = 0 Then
- Worksheets("sheet1").[A1].Offset(0, i).Value = "盘符"
- ElseIf i < j Then
- Worksheets("sheet1").[A1].Offset(0, i).Value = i & "级目录"
- Else
- Worksheets("sheet1").[A1].Offset(0, i).Value = "文件名"
- End If
- Worksheets("sheet1").[A2].Offset(0, i).Value = str
- Next
- End Sub
 多级目录.rar
|
2楼
0Mouse |
用数组练练手！- Sub xq()
- Dim arr, brr, i As Byte
- arr = Split(ThisWorkbook.FullName, "\")
- ReDim brr(UBound(arr))
- For i = 0 To UBound(arr)
- If i = 0 Then
- brr(i) = "盘符"
- ElseIf i = UBound(arr) Then
- brr(i) = "文件名"
- Else
- brr(i) = i & "级目录"
- End If
- Next
- [A5].Resize(1, i) = brr
- [A6].Resize(1, i) = arr
- Erase arr: Erase brr
- End Sub
附件：
多级目录xq.rar
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一