求工程所在工作簿的名称

爱疯

假如，当前打开了两个工作簿1.xls和2.xls。
test()将返回包含文件路径的工作簿名。

1. Sub test()
   
2.     Dim p
   
3.     For Each p In ThisWorkbook.VBProject.Collection    '遍历工程
   
4.         Debug.Print p.Filename
   
5.     Next p
   
6. End Sub

复制代码

虽然知道完整文件名后，可求出工作簿名，但那样要绕圈子。
现在希望只用VBE相关的属性或方法，返回不包含路径的工作簿名，即返回
1.xls
2.xls


请问怎么修改？谢谢！

chin15

    For Each p In ThisWorkbook.VBProject.Collection    '遍?工程
        s = Split(p.Filename, "\")
        Debug.Print s(UBound(s))
    Next p

爱疯

chin15 发表于 2012-10-18 22:07
For Each p In ThisWorkbook.VBProject.Collection    '遍?工程
        s = Split(p.Filename, "\")
...

谢谢chin15！

因为自己VBE相关的属性和方法不熟，这也是我提问的目的，所以希望借此例学习。

2#是另种方式，可求解，但和VBE关系不大。

不知道只用VBE相关的属性和方法，能否求出来？等待学习。