VB代码获取E盘所有文件到Excel表格

以下是一个获取E:\目录下所有文件的VB代码示例：\n\nvb\nSub GetFilesFromDirectory()\n Dim FilePath As String\n Dim FileName As String\n Dim i As Integer\n\n ' 设置目录路径\n FilePath = "E:\"\n\n ' 清空表格内容\n Cells.ClearContents\n\n ' 设置表头\n Cells(1, 1).Value = "文件路径"\n Cells(1, 2).Value = "文件名"\n\n ' 获取所有文件\n FileName = Dir(FilePath & "*", vbNormal)\n\n ' 循环遍历所有文件\n i = 2\n Do While FileName <> ""\n Cells(i, 1).Value = FilePath\n Cells(i, 2).Value = FileName\n\n FileName = Dir\n i = i + 1\n Loop\nEnd Sub\n\n\n在Excel中，按下Alt + F11打开VBA编辑器，将以上代码复制粘贴到一个新的模块中。然后可以通过运行GetFilesFromDirectory子过程来执行代码，将E:\目录下的所有文件路径和文件名输出到表格中。