|
楼主 |
发表于 2010-8-10 07:14
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
lgcmeli 大师的
【学习并记录010】建立某文件夹下的动态工作簿目录
http://club.excelhome.net/thread-542197-1-1.html
方法很好很全面,值得收藏,在此引用收藏,是否侵权?(整个楼层都是引用的,包括附件,在此致歉)
方法一:路径已知,工作簿名已知(见附件中汇总表.XLS里的sheet1工作表)
1,B列从B3开始存放工作簿名,E1存放工作簿所在的路径
2,C3=HYPERLINK("["&$E$1&B3&".xls]",B3)
那么,可否假设路径未知呢,用函数取得当前工作簿即《汇总表.XLS》的路径?(见附件中汇总表.XLS里的sheet2工作表)
方法二:路径未知,用函数取得当前工作簿即《汇总表.XLS》的路径
1,B列从B3开始存放工作簿名
2,E1=LEFT(CELL("filename"),FIND("[",CELL("filename"))-1),取得路径
3,C3公式没变,仍是=HYPERLINK("["&$E$1&B3&".xls]",B3)
那么,可否假设路径未知、工作簿名也未知呢?
方法三:路径未知、工作簿名也未知,用函数取得当前工作簿即《汇总表.XLS》的路径,用函数取得当前工作簿路径下的文件夹里的工作簿名称?(见附件中汇总表.XLS里的sheet3工作表)
1,定义名称
name =FILES(path&"*.*")&T(NOW())
path =LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)
2,B3=IF(ROW()-2>COUNTA(name),"",HYPERLINK(path&INDEX(name,ROW()-2),INDEX(name,ROW()-2)))
方法四:路径未知、工作簿名也未知,并排除当前工作簿名称(即目录里没有当前工作簿)?(见附件中汇总表.XLS里的sheet4工作表)
1,定义名称
book =LOOKUP(SMALL(IF(row<>MATCH(Sheet4!name,files,),row),ROW(INDIRECT("1:"&ROWS(row)-1))),row,files)
files =FILES(path&"*.*")&T(NOW())
names =GET.WORKBOOK(16)&T(NOW())
path =LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)
row =ROW(INDIRECT("1:"&COLUMNS(files)))
2,B3=IF(ROW()-2>COUNTA(book),"",INDEX(book,ROW()-2))
建立某文件夹下的动态工作簿目录.rar
(7.33 KB, 下载次数: 304)
[ 本帖最后由 lhx120824 于 2010-8-10 07:19 编辑 ] |
|