excel提取指定目录和文件名|如何用excel提取一个文件夹下的所有文件名

Ⅰ 如何用excel宏提取文件名生成目录如何用excel宏提取文件名生成目录比如要从C盘提取其所有的文件名（

方法一：1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入dir> 1.txt保存退出将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！方法二：在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码：Sub aaa()f = Dir("c:\*.*")han = 1Do While f > ""Cells(han, 1).Value = fhan = han + 1f = DirLoopEnd Sub回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行看看效果吧！另外可以到http://www.excelhome.net/，看看有没有更适合你的。

Ⅱ 如何在EXCEL中提取某目录下文件夹名称

应该是这个Excel所在的文件夹名称吧。可以在这个excel的任意单元格输入 =CELL("filename")这样是可以看到路径的，具体你要提取哪一层的文件夹名称，可以再进行一部操作。如果需要，请举例

Ⅲ 如何用excel提取一个文件夹下的所有文件名

用excel提取一个文件夹下的所有文件名的方法主要有以下两个：1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入dir> 1.txt保存退出将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！2、VBA（2003版）在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码Sub Test()Dim i As IntegerDim strPath As StringstrPath = ThisWorkbook.PathWith Application.FileSearch .LookIn = strPath .SearchSubFolders = True .Filename = "*.*" If .Execute > 0 Then For i = 1 To .FoundFiles.Count Range("A" & i) = .FoundFiles(i) Next i End IfEnd WithEnd Sub回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

Ⅳ Excel 怎么用函数提取指定文件夹内 文件夹名称

1.建立txt文档，2.内容填写dir *.* /b>list.txt3.将txt文档改为bat格式4.运行bat文件，生成名称为list的txt文档，超链接实现不了，不好意思。

Ⅳ excel如何提取指定路径下的文件夹名称

方法在文件夹123.xls中,点按钮就可以了,文件夹的路径你要自己修改 这里考虑了文件夹下还有子文件夹,但没考虑子文件夹下,还有子文件夹的情况. 附件：遍历文件夹的方法.rar

Ⅵ Excel 提取指定目录的文件夹名和文件名怎么实现

可以用VBA来完成

SubWriteFolderInfo()DimshAppAsObject,Path1AsObject,Path2AsStringSetshApp=CreateObject("Shell.application")SetPath1=shApp.BrowseForFolder(0,"请选择文件夹",0,17)IfPath1IsNothingThenExitSubPath2=IIf(IsError(Path1.Items.Item.Path),Path1.Title,Path1.Items.Item.Path)ActiveWorkbook.Worksheets.AddActiveSheet.Outline.SummaryRow=xlAboveApplication.ScreenUpdating=FalseWriteInfoPath2,1,1Application.ScreenUpdating=TrueEndSubFunctionWriteInfo(PathAsString,XAsInteger,YAsByte)AsIntegerDimRow,FSO,F,FD,FC,F1SetFSO=CreateObject("Scripting.FileSystemObject")SetF=FSO.GetFolder(Path)Cells(X,Y)="<"&F.Name&">"Row=XSetFC=F.SubFoldersForEachFDInFCRow=WriteInfo(FD.Path,Row+1,Y+1)NextSetFC=F.FilesIfFC.Count<>0ThenForEachF1InFCRow=Row+1Cells(Row,Y+1)=F1.NameNextEndIfIfRow>XThenRows(X+1&":"&Row).Rows.GroupWriteInfo=RowEndFunction

Ⅶ 如何利用Excel提取文件夹里所有文件名称

1、鼠标点击左上角的OFFICE图标——打开，找到你要提取文件名称的文件夹，轻轻点一下其中的一个文件，然后按CTRL+A，此时，该文件夹里的所有文件被选中了。2、紧接着用鼠标点一下下面“文件名”栏目，按CTRL+A，再按CTRL+C3、打开记事本，按CTRL+V，即可粘贴完成你提取的所有文件名称，只是每个文件名称都有双引号，并都用空格分隔开的。提取已经完成。4、提取的文件名你可以用复制粘贴或者导入的方式，在EXCEL进行分列、替换等处理，达到符合自己要求的文件名格式为止。

Ⅷ 如何使用excel提取文件夹中的所有文件名称

1、首先我们打开excel，点击公式tab,找到“定义名称”并点击2、在“编辑名称”弹窗中，输入名称“文件名称列表，引用位置输入“=FILES("D:\R语言学习20161118\*.*")，点击“确定””3、然后，我们在A1单元格输入“=INDEX(文件名称列表,ROW(A1))”，回车。就完成了。INDEX是在指定区域中，返回行列交叉值，ROW返回的是行号，A1 返回 1 4、如果首行不在A1，在A3的话，公式 “=INDEX(文件名称列表,ROW(A3)-2)“。INDEX是在指定区域中，返回行列交叉值，ROW返回的是行号，A1 返回 1 ，如果首行不在A1，在A3的话，公式 “=INDEX(文件名称列表,ROW(A3)-2)“，回车，下拉，完成。5、进入D盘位置，去"R语言学习20161118"文件夹验证一下，发现数据只提取了单个文件，未提取里面的文件夹的名称，大家借鉴的时候要注意。6、关于分享经验中用到的函数，大家可以下载 excel帮助文档，查看各个函数的使用方法，含义。 或者大家在输入函数的时候，也会出现简单的提醒。

Ⅸ Excel中VBA提取文件夹名称的方法

文章介绍excel中使用vba提取文件名的操作步骤。根据需要自行修改vba提取文件名的路径和存放单元格即可。在excel中使用VBA编写代码，可以轻松的提取某个文件夹下面的所有文件名。比如笔者在F盘下面建立了一个文件夹，文件夹的名称是：office教程网，现在想将“office教程网”这个文件夹下面的所有文件名提取出来放在当前工作表的C列。具体的vba提取文件名的操作如下：1.按下ALT+F11，打开VBE编辑器。2.执行“插入——模块”，插入模块1。 3.在右边的代码编辑窗口，复制下面的代码，然后单击“绿色箭头”或者快捷键F5键，运行代码。Private Sub vba提取文件名() Dim FileName As String Dim i As Long FileName = Dir("F:\office教程网\*.*") i = 0 Range("C:C").ClearContents Do While FileName > "" i = i + 1 Cells(i, 3) = FileName FileName = Dir LoopEnd Sub 4.关闭VBE窗口，回到工作表中，可以在C列看到F盘“office教程网”文件夹下面所有的文件名全部罗列在C列了。 关于上面的vba提取文件名的代码，请在实际使用时，根据需要修改提取文件名的路径（F:\office教程网\*.*），以及存放在C列的位置（Cells(i, 3)）。

Ⅹ 用EXCEL VBA获取指定目录下的文件名(包括文件夹名)

1、首先利用快捷键“Windows键+R”打开“运行”窗口

未经允许不得转载：山九号 » excel提取指定目录和文件名|如何用excel提取一个文件夹下的所有文件名