当一个文件夹中的文件较多时，查找起来不方便，可以用一个Excel 文件把所有的文件名列出来，并可根据需要设置单击后链接打开，方法如下：

新建一个 Excel 文件并保存，文件名为 AllFiles。

单击菜单插入—名称—定义（或按快捷键Ctrl+F3），“在当前工作簿中的名称”框中输入 myPath，在“引用位置”框中输入=REPLACE(CELL("filename",INDIRECT("A1")),FIND("[",CELL("filename",INDIRECT("A1"))],1000,””)，单击“添加”按钮，用同样的方法添加一个名称 myFiles=FILES(myPath&"*.*")，单击“确定”按钮。

在工作表单元格输入=INDEX(myFiles,ROW(1:1))，回车后，文件AllFiles所在目录文件夹下第一个文件名就出来在单元格中，把公式向下复制后，所有文件名都列出来了，当下拖的单元格超过文件夹中所有文件数的时候，单元格会出现错误值 #REF! ，我们可以加一个判断条件来取消错误值，使单元格为空，公式改为=IF(ROW(1:1)>COLUMNS(myFiles),"", INDEX(myFiles,ROW(1:1)))，错误单元格就成为空单元格了。

还可以修改一下公式，使选定单元格里，能打开单元格里所显示的文件。=IF(ROW(1:1)>COLUMNS(myFiles),"",HYPERLINK(myPath&INDEX(myFiles,ROW(1:1)),"GoTo "&INDEX(myFiles,ROW(1:1))))。

今后，你只要把文件AllFiles 文件复制到其他目录下，该目录下的所有文件名都会列出在 AllFiles 文件中。

如果不想把目录下的所有文件名都列出来，只想把某一类型的文件名列出来，如 文件扩展名为*.xls（Excel 文件），只需修改名称myFiles=FILES(myPath&"*.xls")就可以了。

下载附件： UploadFiles/2006-9/912363380.rar