获取excel文件名|如何获得excel当前文件名和工作表名

㈠ EXCEL表格里 自动获取excel文件名

1、在单元格中插入当前文件名、它的完整路径以及活动工作表的名称：=CELL("filename") 2、返回当前工作表的名称：=MID(CELL("filename"),SEARCH("]",CELL("filename"))+1,LEN(CELL("filename"))-SEARCH("]",CELL("filename"))) 3、仅插入当前文件名：=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1) 仅插入当前文件名：=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename"))) 4、插入当前文件名和活动工作表的名称(将公式作为数组公式键入或粘贴)：=RIGHT(CELL("filename"),LEN(CELL("filename"))- MAX(IF(NOT(ISERR(SEARCH("\",CELL("filename"), ROW(1:255)))),SEARCH("\",CELL("filename"),ROW(1:255))))) 说明：如果当前工作簿只有一个工作表，“返回当前工作表的名称”、“仅插入当前文件名”会出现错误。

㈡ excel中提取所在文件的文件名的函数/公式

是指的一个工作簿中的三个不同工作表吧，不管当前活动工作表是哪个，始终保持提取出各自的工作表名，而不是提取出的活动工作表名么？公式改为：=CELL("filename",A1)

㈢ 如何获取当前活动的excel的文件名

这个建议使用vba实现

按组合键alt+f11打开vbe编辑窗口

然后插入模块，

输入代码：

Subaaa()MsgBoxActiveWorkbook.NameEndSub

运行vba代码即弹出窗体，返回楼主需求的文件名

㈣ 如何获得excel当前文件名和工作表名

输入以下公式，得到文件名=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)输入以下公式，得到工作表名=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)

㈤ 如何用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提取文件名

把你的excel文件放在要搜索的目录中,在excel中插入一个按钮控件,编辑代码为:Private Sub CommandButton1_Click() Dim mydir As String Dim b As Byte b = 1 Range("C:C").ClearContents mydir = Dir(ThisWorkbook.Path & "\*.xls", vbNormal) Do While mydir <> "" Cells(b, 3) = mydir mydir = Dir b = b + 1 LoopEnd Sub按此按钮就可以刷新搜索了.不过如果你要把新增的文件的链接也自动生成,要另外的代码,也不复杂.Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 3 ThenWorkbooks.Open ThisWorkbook.Path & "\" & TargetEnd IfEnd Sub

㈦ 如何获得excel当前文件名和工作表名

输入以下公式，得到文件名=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)输入以下公式，内得到工作表名容=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)

㈧ excel读取文件名

Sub 获取打开窗下选中文件的完全路径和名称并为路径添加超链接()

Dim i As Integer, j&

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogOpen)

'msoFileDialogOpen表示允许打开一个文件

.AllowMultiSelect = True '允许多选

.Show '打开文件对话框

For i = 1 To .SelectedItems.count

'SelectedItems.Count属性获取一个filedialogSelectedItems集合

'包含对象的 show方法,文件路径名称

Range("a" & i) = .SelectedItems(i)

'文件完全路径

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Cells(i, 1)

'添加超链接

Range("b" & i) = FileDateTime(Range("a" & i))

'文件的修改日期时间,单独获取时:datevalue(Filedatetime()) timevalue(Filedatetime())

j = FileLen(Range("a" & i)) / 1024 '单位 KB

Range("c" & i) = j & " KB"

'文件的大小,默认计算单位为字节

Range("d" & i) = GetAttr(Range("a" & i))

'文件的属性 0普通 1只读 2隐藏 4系统文件 16目录 32存档

'多个属性值相加 3只读+隐藏 33只读+存档 35只读+隐藏+存档

Next i

End With

End Sub

㈨ excel怎么提取所有文件名字

建议使用vba遍历实现

使用fso文件系统对选中的文件夹及子文件夹里的文件进行遍历并返回文件名

1、在表格内插入按钮

㈩ EXCEL 获取文件名

Function 列表名(a As String)f = Dir("D:陈杭荣VBA*.xlsm")Do While f <> "" k = k + 1 If k = a Then 列表名 = f f = DirLoopEnd Function

未经允许不得转载：山九号 » 获取excel文件名|如何获得excel当前文件名和工作表名