|
|
楼主 |
发表于 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 编辑 ] |
|
楼主: lhx120824
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2010-8-6 20:13
