如何用VBA编写打开指定文件夹的代码

lyjtzh

引用当前工作表中b2单元格的内容（b2单元格的内容是根据条件变化的)，打开D盘上的相同名字的文件夹，例如b2=甲时，打开D:\甲 文件夹，b2=乙时，打开d:\乙 文件夹。d盘上的文件夹都是提前设置好的，请问如何写代码。求高人指点

用按钮实现也行。

[ 本帖最后由 lyjtzh 于 2010-7-30 11:44 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

cflood

shell "explorer d:\" & [b2]

lmswy

大侠！我要达到的目的是：优盘中本工作簿所在的文件夹内创建一个以SHEET1.[A1] 为文件名的文件夹并开启此文件夹
我用Shell " explorer " &ThisWorkbook.Path & " \ " & Sheet1.[A1] 出错，通过实验发现使用shell "explorer d:\" & [b2]方式开启文件夹必须是引号内explorer后面跟一个盘符，可问题是我的优盘插在不同的电脑上盘符可能会不同，即盘符是个变量。请教这个该如何解决。
谢谢！

[ 本帖最后由 lmswy 于 2011-2-25 23:41 编辑 ]

dsxiao

setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
    set var=%%i
    set drive=!var:~-2!
    fsutil fsinfo drivetype !drive!|find "固定">nul && (
        for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\你的文件.xls 2^>nul') do if not "%%j"==""

start "" "%%j" &&
SUB END   )   
)

欢迎进EH群：116248739

CYZ凡星点点

cflood 发表于 2010-7-31 12:51
shell "explorer d:\" &

感谢分享