[已解决]谢谢过儿老师和那么的帅老师。如何打开一个指定路径的文件夹

lhj323323

如何通过VBA打开一个指定路径的文件夹
不是指另存为时显示的那种打开文件夹，

最佳答案

月排行榜 / 总排行榜

过儿

2011-6-26 14:28

dim ret
ret=shell("Explorer.exe " & 文件夹路径,vbnormalfocus)

跳转到最佳答案楼层

那么的帅

回复 lhj323323 的帖子

打开文件夹，不知道什么意思

过儿

dim ret
ret=shell("Explorer.exe " & 文件夹路径,vbnormalfocus)

lhj323323

回复 那么的帅 的帖子

是这样的，由于很多文档存放在电脑的不同盘中，或是路径复杂的不同文件夹中，用户需要很好的记性才知道某个常用文档存放的地方，

我看到论坛上有一段程序能实现通过按纽来打开网页：
Private Sub Label24_Click()
    CreateObject("InternetExplorer.Application").Navigate "http://www.excelpx.com/" '雨中漫步写的链接到网页ok
    Unload Me
End Sub

我就想问一问能否实现通过按纽找开一个文件夹。

lhj323323

回复 过儿 的帖子

怎么表示呀？
比如路径是d:/我的工作/A/常用工具/每月更新/取数

leolee82

3楼回答已经很清楚了

那么的帅

回复 lhj323323 的帖子

1. 
   
2. Sub 选择文件夹()
   
3.     Dim Shell, myPath
   
4.    
   
5.     Set Shell = CreateObject("Shell.Application")
   
6.     'Mypath变量得到选择的文件夹
   
7.    
   
8.     Set myPath = Shell.BrowseForFolder(&O0, "请选择文件夹", &H1 + &H10, "D:")  '
   
9.    
   
10.     '
    
11.     If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path
    
12.         
    
13. 
    
14. End Sub
    
15. 
    

复制代码