VBA获取路径及文件名

stlgj1980

我在论坛上下了个通过API获取路径的的EXCEL附件
此附件以上传
目前功能:可以获取到打开的文件夹的路径 如:D:\公司文件\合同
现在我想获取到文件名的路径(就是包括文件名): 如:D:\公司文件\合同\销售合同.DOC
望各位仁兄帮忙啊!!!!

youhm

这段代码或许可以满足你的要求

1. Dim CDG
   
2. Set CDG = CreateObject("MSCOMDLG.CommonDialog.1")
   
3. CDG.MaxFileSize = 260
   
4. CDG.ShowOpen
   
5. MsgBox CDG.Filename '显示完整路径和文件名
   
6. MsgBox CDG.FileTitle '显示文件名
   
7. Set CDG = Nothing

复制代码

XZ19860527

thisworkbook.fullname

stlgj1980

我想通过API实现 因为好象VBA中不能直接用CommonDialog控件

E_菜鸟

XZ19860527 发表于 2010-10-7 23:34
thisworkbook.fullname

直接不能用矣，还要加点别的吗？

xinwen1

Sub test()

word = ThisWorkbook.FullName
MsgBox word
End Sub
在你打开Excel后，用thisworkbook.fullname 可以的啊，我试了