Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2090|回复: 1

[已解决]请问怎么修改代码即使保存为加载宏,也能通过加载该宏,遍历目录工作簿所在的路径?

[复制链接]
发表于 2013-12-4 12:22 | 显示全部楼层 |阅读模式
本帖最后由 幽月儿 于 2013-12-4 13:29 编辑

sub 遍历本工作簿路径下所有EXCEL文件()
    dim filename as string
    filename=dir(thisworkbook.path & "\*.xls")
        do while filename<> thisworkbook.name then
             msgbox filename
             filename=dir
        loop
end sub

如果将以上这段代码保存为加载宏,那么加载宏遍历的路径就是保存加载宏的默认路径了,请问怎么修改代码即使保存为加载宏,也能通过加载该宏,遍历目录工作簿所在的路径(比如我把不带宏的工作簿放在C盘,通过加载该宏,遍历的默认路径就是C盘,放至D盘,遍历的默认路径就是D盘)
请大家帮忙,谢谢!!
最佳答案
2013-12-4 12:54
Sub 遍历当前工作簿路径下所有EXCEL文件()
    Dim filename As String
    filename = Dir(ActiveWorkbook.Path & "\*.xls")
        Do While filename <> ActiveWorkbook.Name
             MsgBox filename
             filename = Dir
        Loop
End Sub
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-12-4 12:54 | 显示全部楼层    本楼为最佳答案   
Sub 遍历当前工作簿路径下所有EXCEL文件()
    Dim filename As String
    filename = Dir(ActiveWorkbook.Path & "\*.xls")
        Do While filename <> ActiveWorkbook.Name
             MsgBox filename
             filename = Dir
        Loop
End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:04 , Processed in 0.492567 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表