Excel如何取得文件的文件名

[Excel如何修改文件类型 Excel修改文件类型的方法]由于Excel一直在更新版本，因此也出现了多种不同的格式。有时候要将一个Excel文件发给其他人，但是他们的电脑上仅支持某种格式，这时候最好就可以提前修改一下文件格式，方便他人查

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.Name

End Sub

2.获取当前工作簿所有工作表名，写入A列

Sub wsname()

Dim sht As Worksheet, i%

For Each sht In Worksheets

i = i + 1

Cells(i, 1) = sht.Name

End Sub

如何提取文件夹中所有文件的名字

使用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 Integer

Dim strPath As String

strPath = ThisWorkbook.Path

With 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 If

End With

End Sub

回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行

方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

Excel批量处理文件提取文件名

比如，这里如果想要把“7.21”这个文件夹里面的文件，要做个整理，把文件名称都汇总在一个excel表格了，常见的就是一个一个复制文件名称，然后新建excel表格，但这样效率很慢。

快速提取文件名称方法一：使用，打开Chrome 浏览器——把“7.21”整个文件夹拖到浏览器里面——自动生成目录——全选复制，然后粘贴到新的excel表格中——调整修改一下，做个美观度调整即可。

是不是很简单快速，但是好像只有部分的浏览器支持，除了Chrome 浏览器，也试了一下360浏览器也是可以的，但是浏览器就不支持，当然喜欢的话也可以多找几个去试试看，看看可否有目录产生。

快速提取文件名称方法二：在桌面新建一个文本文档——写入“DIR *.* /B >；文件名列表.CSV”这个代码——另存为另存为 .bat 格式——把保存的bat文件放到“7.21”这个文件夹里面——双击，就行了。

双击保存的bat文件，就会生成一个刚刚命名的“文件名列表.CSV”里面就包含了“7.21”这个文件夹所有的文件名称，又快又不会出遗留，就是会多出两个没有作用的文件名称，删去了就可以了。

当然，还有第三种方法，只是暂时先不提及一下，前面两种就可以选择了，为什么要批量提取文件夹中的文件名称，这个自然是有很大的用处的，后续会继续说到一个制作一份文档目录就需要用到了。

本文地址：http://www.docexcel.net/show/3_96998.html

以下为关联文档：

如何将excel文件转化成PDF格式的文件方法一：利用Adobe公司的Adobe Acrobat Professional进行转化。注意，一定是Professional版本的，Reader版本没有这个功能。首先安装Adobe Acrobat Professional（目前最高版本为7...

如何将excel文件转换成pdf文件的方法方法/步骤 1 在我的电脑中找到编辑好的Excel工作薄，然后右键打开，或者双击都可以运用已经安装好的Office2007程序运行 2 在打开的Excel工作薄里，点最左上角的Office按钮，在打开...

高手请指点：如何能在excel2003表格中引用excel文件自身的文件名如果文件已保存： =CELL(＂filename＂) 可以返回文件路径[文件名.xls]工作表名如果要返——文件名.xls，则用 =MID(CELL(＂filename＂),FIND(＂[＂,CELL(＂filename＂))+1,FIND(＂]＂,CELL(＂filenam...

excel vba中如何取得目录下文件的数量Function FileCount(cPath As String) as Integer cFile=Dir(cPath & ＂*.*＂) Do While cFile<>＂＂ FileCount=FileCount+1 cFile=Dir Loop End Function这是一段自定义函数，在Exce...

如何实现多个TXT文件文件N个导入到一个EXCEL文件的对应不用这么麻烦呀？EXCEL本身就有类似数据库的数据导入功能的。按你所述，你可以这样：①建一模板XLS文件，文件名比如为201100。xls②在模板文件中建31个SHEET，名称比如为1,2……31③...

50分求excel宏：使用excel如何取得一个文件夹下所有的xls文件并把把所有excel文件名提取出来的宏，我以前做过，可以给你，至于后面的操作，我没看明白，既然文件名已经有了，我想后面的操作也就不难了吧！以下的宏代码，复制后运行宏aa即可。 Sub aa() Dim...

如何将多个Excel文件汇总到一个Excel文件中如何将多个Excel文件汇总到一个Excel文件中，如何将多张EXCEL简历表汇总成1张EXCEL表：private void btn_SelectMultiExcel_Click(object sender, EventArgs e) { txt_MultiExce...

请教VBA不打开excel文件取得指定单元格数据请教VBA不打开excel文件取得指定单元格数据，vba下如何在不打开文件的情况下读取excel的工作表的名称帮我：不可能不打开文件而取得数据，只要访问文件，就得打开文件，即使是不显示出...