vba读取文件名|Excel 如何用VBA取出已知路径中的最后的文件名

⑴ 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)）。

⑵ vba提取多层文件夹的*.xls文件,根据获取到的文件名及路径逐个打开*.xls文件,去判断某几列有多少个数据

一、所需DOS命令

dir [drive:][path] /b > [drive:][path]filename

二、应用实例

如下图，在D盘中，有一个名称为“TQIPC”的文件夹，这个文件夹里面，存放了很多的照片！

看到了没有，文件夹中的照片名称，自动就显示在excel表格中了！

该dos命令非常强大，用好dos命令，可省去我们很多的功夫。

三、知识扩展

下面，再给大家一个例子，即，自动根据照片(根据人物名称)，建立文件夹。

如果某个文件夹下面，您存放的是某些人物的照片，并且，每个人物的照片，都使用其名字来命名；这个时候，如何要自动根据人物的自动建立其对应的文件夹，也相当方便！

操作的方法是，先根据上述的方法，获取所有人物的照片的名称，生成EXCEL文件；

然后，在人物名称列前面，插入一列，并输入MD；

接下来，使用查找替换功能，将excel文件中的人物名称，去掉扩展名(只保留名字)；

最后，将excel的内容，复制粘贴到记事本中，现在，我们就得到了形如：“MD人物名称”这样的命令格式了。(md 文件名称，该命令格式，是使用来建立文件夹的命令，上述的操作，都是为此做准备！)

将记事本文件保存成为形如：124.bat格式的文件，最后，双击此文件，文件夹名称就自动建立好了！

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

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

⑷ vba读取文件夹中的文件名

提取当前文件夹下的文件名称并放在A列Sub 按钮1_Click()Application.ScreenUpdating = FalseSet fso = CreateObject("scripting.filesystemobject")Set ff = fso.getfolder(ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改ActiveSheet.UsedRange.ClearContentsa = 1For Each f In ff.FilesRem 如果不需要提取本代码文件名，可以增加if语句 if f.name<> thisworkbook.name then…..Rem 如果值需要提取某类文件，需要对f.name的扩展名进行判断Rem 个人感觉split取 扩展名：split（f.name,".")(ubound（split（f.name,".")）)，然后再判断，避免文件名还有其他“.”Cells(a, 1) = f.Name '相对路径名Cells(a, 2) = f '全路径名a = a + 1Next fApplication.ScreenUpdating = TrueEnd Sub

⑸ excel怎样用vba自动提取文件夹内的文件名

excel中用vba实现自动提取文件夹内的文件名的方法如下：

1、新建一个vba宏脚本

⑹ Excel 如何用VBA取出已知路径中的最后的文件名

1.点开始菜单，就能看到上面的界面，选择“运行”！点了运行程序后版，在里面输入“cmd”点击确定会权进入命令提示符串口。2.打个比方说，文件在C盘里面的111文件夹，要读取里面的文件的文件名字。3.利用cd命令到达要读取文件名的文件夹，用法是这样的：命令为“cd c:\111”。4.然后会看到下面的这个情况：5.然后输入命令“dir /b>d:1.xls”然后回车。6.到D盘就能看到一个名称为1.xls的文件。7.打开就是了。

⑺ VBA一次性提取文件名的方法

没理解你这里为什么用“一次性”这个词？

问题应该是：“获取指定文件夹的所有文件”。

DimMyPathAsStringDimMyFilesNameAsStringDimnAsLongMyPath="C:ABC"MyFilesName=""n=0IfRight$(MyPath,1)<>""ThenMyPath=MyPath&""MyResult=Dir(MyPath)DoWhileLen(MyResult)>0'DoEventsMyFilesName=MyFilesName&MyResult&vbCrLfn=n+1MyResult=DirLoopMsgBox"有文件："&n&"个"&vbCrLf&vbCrLf&MyFilesName

⑻ excel vba如何获取所有打开的excel文件名

针对ThisWorkbook对象的BeforeClose事件添加如下代码

PrivateSubWorkbook_BeforeClose(CancelAsBoolean)DimfileStrAsStringfileStr="$111.xls$333.xls$“‘头尾都用$分隔，循环判断文件名ForI=Workbooks.countTo1Step-1IfInStr(fileStr,Workbooks(I).Name)<>0ThenWorkbooks(I).CloseFalse‘False是不保存关闭true是保存并关闭EndIfNextEndSub

关闭时就会遍历所有打开的excel文件，执行不保存操作，并关闭

⑼ VBA语言如何打开指定文件名的文件

在D盘新建一个名为文件的文件夹，在里面创建几个Excel文件。

⑽ VBA 中如何用GetOpenFilename获取到文件名

代码改一下

PrivateSubCommandButton1_Click()DimstrfileAsStringstrfile=Application.GetOpenFilename("所有文件（*.*）,*.*")Ifstrfile="False"Then'strfile定义的是String类型，无法与boolean类型的False比较MsgBox("未选择任何文档")ExitSubElse'Ifstrfile<>FalseThenMsgBox(strfile)EndIfEndSub

未经允许不得转载：山九号 » vba读取文件名|Excel 如何用VBA取出已知路径中的最后的文件名