excelvba获取文件名|vba获取路径下所有文件名和对应的文件路径并且显示到下面表格中怎么做

excelvba获取文件名|vba获取路径下所有文件名和对应的文件路径并且显示到下面表格中怎么做的第1张示图

A. excel vba 中如何得到一串文件名

获得当前文件的文件名:ActiveWorkbook.Name要出现一个对话框来获得选择的文件名称:Application.GetOpenFilename

B. 在线等,excel vba如何获取打开的表格的文件名称的问题

其实用 Dir() 即可直接取得不包含路径的文件名:Sub GetFilNam() Dim FilNam FilNam = Dir(Application.GetOpenFilename("Excel文件(*.xls),*.xls")) If FilNam = False Then Exit Sub '如果单击“取消”则直接退出程序,以免返回“False”弹窗 MsgBox FilNamEnd Sub 如果不考虑单击“取消”会返回“False”的问题,那么直接这样更加简洁:Sub GetFilNam() MsgBox Dir(Application.GetOpenFilename("Excel文件(*.xls),*.xls"))End Sub

C. 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文件,执行不保存操作,并关闭

D. excel vba打开文件 并且获得文件名 保存

f = Dir(folder & "*.txt") myfile = Dirf 和 myfile 两个变量混淆了

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

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

F. 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))。

G. excel vba 获得工作簿文件名

再用个公式=RIGHT(A1,LEN(A1)-FIND("#",SUBSTITUTE(A1,"\","#",LEN(A1)-LEN(SUBSTITUTE(A1,"\",)))))

H. vba获取路径下所有文件名和对应的文件路径,并且显示到下面表格中。怎么做

一、所需DOS命令

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

二、应用实例

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

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

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

三、知识扩展

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

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

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

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

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

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

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

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

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

1、新建一个vba宏脚本

J. Excel 如何取得文件的文件名

1.如果是要获得工作簿的文件名可以用以下函数公式=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)2.如果是想获得工作簿中工作表名可以用以下函数公式=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)或者=REPLACE(CELL("filename"),1,FIND("]",CELL("filename")),"")用vba的方式也可以达到这个目的1.获取当前工作簿名写在单元格A1中Sub wbname()Cells(1, 1) = ThisWorkbook.NameEnd Sub2.获取当前工作簿所有工作表名,写入A列Sub wsname()Dim sht As Worksheet, i%For Each sht In Worksheetsi = i + 1Cells(i, 1) = sht.NameNextEnd Sub

未经允许不得转载:山九号 » excelvba获取文件名|vba获取路径下所有文件名和对应的文件路径并且显示到下面表格中怎么做

赞 (0)