㈠ 怎样用 EXCEL 读取文件夹下文件名并且生成序列号1组 文件名1组的 单独EXCEL文件 找了很多VBA代码 都不对.
Sub abc()
Set MyFile = CreateObject("scripting.FileSystemObject") _
.Getfolder(ThisWorkbook.Path)
Cells(1, 1) = "序号": Cells(1, 2) = "文件名"
For Each MyFiles In MyFile.Files
If InStr(MyFiles.Name, ".xlsx") <> "" Then
i = i + 1
MN = MyFiles.Name
MN = Left(Left(MN, Len(MN) - 4), 29) '取主文件名
Cells(i + 1, 1) = i
Cells(i + 1, 2) = MN
End If
Next
End Sub
'本列是查找 EXCEL 文件，查找其他文件可以参照
㈡ 现有一批已命名的人名excel文件，如何按照既定的word名单顺序，不更改文件名前提下，添加这些文件序号
您可以使用Excel的函数和快捷键来快速为这些已命名的人名excel文件添加序号，具体步骤如下：
1. 首先，在既定的word名单顺序中，将人名按照顺序录入到一个Excel表格中，例如第一列为姓名，第二列为序号。咐洞
2. 然后，打开每个已命名的人名excel文件，并在文件中添加拦纤一个序号列，用于存放该文件对应的序号。
3. 在每个excel文件序号列的第一行输入以下公式：`=VLOOKUP(A1,'Word名单顺序表'!A:B,2,FALSE)`，其中，A1为当前文件中的姓名单元格，'Word名单顺序表'!A:B为包含姓名和对应序号的Excel表格，2表示在此表格中查找到匹配项后返回的列数，FALSE表示精确查找。
4. 按下回车键，即可自动在该excel文件的序号列中填入相应的序号。
5. 最后，在Windows资源管理器中选中所有的excel文件，按住Shift键并右键点击其中任意一个文件，选择“重命名(R)”或“批量重命名”，在弹出的窗口中选择“在名称中插入(3)”或类似的选项，输简简仿入“序号（无需括号）-”或类似格式的命名规则，点击确认即可批量添加序号。
注意事项：
1. 在使用VLOOKUP函数时，请确保'Word名单顺序表'表格中的姓名列与当前excel文件中的姓名列数据类型、大小写等完全一致。若不一致，则公式可能无法正常工作。
2. 在添加序号之前，建议先备份好所有的Excel文件，以防操作失误造成不必要的损失。