Question

怎样将一个文件夹下面的多个WORD文件名导入EXCEL

我的一个文件夹下面有很多的WORD文件。为了方便管理我想把下面的所有文件名称导入EXCEL然后做个索引，直接就可以找到里面的文件。请问高手如何才能办到。

Answer 1

假设文件夹名称是C:\WJJ
先在文件夹中建个文本文件，打开并将命令“dir *.doc/b>doclist.txt”复制到文件里面，保存并将文件改名为“x.bat”（x是任意名称，主要是.bat），双击运行这个文件，就会看到文件夹里多出一个叫“doclist.txt”的文本文件，用EXCEL打开这个文件就可以了。
其实，用EXCEL管理文件不如文件夹管理，重要的是文件分类。

Answer 2

使用dos命令开始——所有程序——附件——命令提示符 输入dir 目录\*.doc >c:\1.txt
然后按回车键。这样就在C盘下生成1.txt文件，打开后。复制-粘贴到word中,再按Alt键选择不需要的部分。按delete删除，再复制到excel内。

Answer 3

使用dos命令
开始——所有程序——附件——命令提示符
输入dir 目录\*.doc >c:\1.txt
然后按回车键。这样就在C盘下生成1.txt文件，打开后。复制-粘贴到word中,再按Alt键选择不需要的部分。按delete删除，再复制到excel内。

Answer 4

代码如下，放在Excel文档的宏命令中运行：
Sub AAA()
Dim fd As FileDialog
Dim wordObj
Dim rowindex As Integer
A = 1
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Add "Word 文档", "*.doc", 1 '过滤
If .Show = -1 Then
rowindex = 1
End If
For Each vrtSelectedItem In .SelectedItems
Cells(A, 1).Select
Cells(A, 1) = vrtSelectedItem
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=vrtSelectedItem
A = A + 1
Next
End With
End Sub