EXCEl生成硬盘内的文件目录

Question

EXCEl生成硬盘内的文件目录用ExcEXCEl生成硬盘内所有的文件夹名称，并生成文件夹内所有文件名称，能自动更新，带超链接功能

Answer 1

设你要将e:\file 的所有文件名列在A列，请按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行

Sub 宏1()
f = Dir("e:\file\*.*")
k = 1
Do While f <> ""
    Cells(k, 1) = f
    f = Dir
    k = k + 1
Loop
End Sub

测试通过。

追问

什么啊？不行

追答

百度里的内容不能直接复制粘贴，你看看你图中的程序比我的多了些问号，请将它们和之间的内容删除，k=1后要换行。
Sub 宏1()
f = Dir("e:\file\*.*")
k = 1
Do While f ""
Cells(k, 1) = f
f = Dir
k = k + 1
Loop
End Sub

另e:\file是我电脑的文件夹路径，请你按你电脑的文件夹路径改改。

追问

这个只是生成指定文件夹里面的文件名，我想要生成这个E盘里面所有文件夹里面的文件名…还要有超链接功能，可以打开那种，可以做到吗

追答

上图为正确的程序，复制下面文字的请参照图中的内容修改，否则不能正常运行。

Sub 宏1()

f = Dir("e:\file\*.*")

k = 1

Do While f <> ""

Cells(k, 1) = f

Cells(k, 1).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="e:\file\" & Cells(k, 1), TextToDisplay:=f

f = Dir

k = k + 1

Loop

End Sub

图中为正确的程序，复制上面文字的请参照图中的内容修改至正确，否则不能正常运行。

Answer 2

:将以下代码复制到txt文档中，将txt后缀改成bat
:然后双击运行,就可以选择是否去除文件名中的空格，是否生成文件夹目录或者文件目录
@echo off
color f2
echo 我可以将【文件夹】目录及子目录【去除文件名空格】整理到-目录表格.xls
echo 下一步，选择要执行的功能。
pause 
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
setlocal enabledelayedexpansion
:--------------------------------------
:更改这两个参数可以将文件名的指定字符替换成想要的字符
:被替换的字符,例如空格" "；或者其他字符，写到=后边；
set y= 
:替换后的字符--例如将文件名中的空格" "，替换成空字符""，或者下划线"_"
set z=""
:--------------------------------------
:--------------------------------------
:----------------------------------------------------------------------------
set f2=0
set f3=0
set f4=1
set f5=0

set /p f2=生成文件夹目录.xls--------------【1(是)/0(否)】【默认：0(否)】
set /p f3=生成所有文件夹及文件目录.xls----【1(是)/0(否)】【默认：0(否)】
set /p f4=生成文件夹目录树.xls------------【1(是)/0(否)】【默认：1(是)】
set /p f5=生成所有文件夹及文件目录树.xls--【1(是)/0(否)】【默认：0(否)】
:----------------------------------------------------------------------------
:----------------------------------------------------------------------------
:j1
set f1=1
set /p f1=是否去除所有文件名中的空格【1(否)/2(是)】/默认【1/否】
if %f1%==1 (
goto rem1
) else (
if %f1%==2 (
goto rem2
) else (
goto j1
)
)

:rem2

for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo 替换前：!fn!
set fn=!fn:%y%=%z%!
echo 替换后：!fn!
:将fn字符串中的每一个空格（" "）替换成空字符（""）。
ren "%%j" !fn!
)
:--------------------------------------
set pp=%~dp0
echo %pp%
:--------------------------------------
for /d /r . %%i in (*) do (

:更新路径，将有空格的路径改为除去空格后的路径，才能进入
for /f "tokens=*" %%l in (!i!) do (
set pt=%%l
set pt=!pt:%y%=%z%!
set i=!pt!
)
echo 路径 %%i
cd %%i
:-------------------
for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo 替换前：!fn!
set fn=!fn:%y%=%z%!
echo 替换后：!fn!
:将fn字符串中的每一个“ ”替换成“”空字符。
ren "%%j" !fn!
)
)
:------------------------------------------------------------------------------
:rem1
:--------------------------------------
set dd=%date:~0,4%%date:~5,2%%date:~8,2%
echo %dd%
cd %pp%
echo %pp%
if %f2%==1 (
for /d /r . %%k in (*) do echo %%k>>仅文件夹目录-%dd%.xls
echo 已经生成【仅文件夹目录-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------

if %f3%==1 (
dir /b /s >所有文件目录-%dd%.xls
echo 已经生成【所有文件目录-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f4%==1 (
tree >工作报告总目录树-%dd%.xls
echo 已经生成【工作报告总目录树-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f5%==1 (
tree /f >文件夹及文件目录树-%dd%.xls
echo 已经生成【文件夹及文件目录树-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------

echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
pause