㈠ 怎樣用 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文件，以防操作失誤造成不必要的損失。