用VBA打开指定的文件夹

X星痕X

我想在EXCEL中通过创建一个按钮，当点击此按钮时则自动打开相应的文件夹，比如我想要打开的是文件夹路径是： E:\音乐\KUGOO   ，请问这VBA代码该怎么写？请高手指教。PS：其中KUGOO是一个文件夹名，不是文件，我要打开的是这个文件夹

excelflower

1. Workbooks.Open ("E:\音乐\KUGOO\aa.xls")
   

复制代码

X星痕X

你这个是打开E:\音乐\KUGOO文件夹中aa.xls文件，我要的是打开KUGOO这个文件夹，不要打开里面的文件

excelflower

在桌面打开文件夹：Shell "explorer E:\音乐\KUGOO"

X星痕X

太谢谢你了

excelflower

如果返回打开文件夹的对话框，就这样：

1. Sub MyOpen()
   
2.     Dim MyPath$, SPOpen$
   
3.     MyPath = "E:\音乐\KUGOO"
   
4.     ChDrive Split(MyPath, ":")(0)
   
5.     ChDir MyPath
   
6.      SPOpen = Application.Dialogs(xlDialogOpen).Show
   
7.     If SPOpen = False Then Exit Sub
   
8. End Sub

复制代码

zlm2002

不错！！！！！！！！！！

jssz19732326

路过 学过 谢谢!

18zhangxia

excelflower 发表于 2010-11-23 19:08

excelflower老大，如果是打开沥遍所有盘文件夹｛如A  B  C  D  E  F  I  J  K  G等盘｝指定的文件B.xls，代码如何写？

excel_321

excelflower 发表于 2010-11-23 19:13
在桌面打开文件夹：Shell "explorer E:\音乐\KUGOO"

学习了。。。。。