❶ 在线等，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
❷ 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 excel如何自动获取当前工作表的名字
1.
一步搞定之代码
Sub 提取所有工作表名称()
for x=1 to sheets.count
cells(x,1)=sheets(x).name
next x
End Sub
如图，按照顺序来就可以啦。
❺ excel vba打开文件 并且获得文件名 保存
f = Dir(folder & "*.txt") myfile = Dirf 和 myfile 两个变量混淆了
❻ excel怎样用vba自动提取文件夹内的文件名
excel中用vba实现自动提取文件夹内的文件名的方法如下：
1、新建一个vba宏脚本
❼ 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怎样取得正在使用的excel的名字
有内置的变量——ThisWorkbook.Fullname宏所在工作簿的全路径文件名。ThisWorkbook.Name宏所在工作簿的文件名ActiveWorkbook.Name当前激活工作簿的文件名
❾ excel vba如何获取当前工作薄名
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
OptionExplicitSubddt()ActiveWorkbook.Name'返回活动工作薄的名称ThisWorkbook.Name'返回当前工作簿名称ThisWorkbook.FullName'返回当前工作簿路径和名称EndSub
3、这里返回活动的工作薄名称我们是使用的活动工作薄的.name属性，设置一个变量赋予它这样一个值，我们运行一下宏代码。
4、ActiveWorkbook.Name 是一个值，但是不能单独存在，它可以作为参数，也可以作为变量值，但是不能单独存在。
5、活动工作薄和当前工作薄如果返回值是一样的，是因为当前工作薄和活动工作薄的取值对象一致，活动工作薄是指的激活窗口工作薄，而当前工作薄是指的代码所在工作薄。
6、如果是在.name前加上full，则是显示激活工作薄的完整路径，包括名称和在硬盘上的文件位置，如果存在多个不同文件夹中同名文件，使用这个命令可以更准确的确定文件。
❿ VBA如何获取打开的excel工作薄路径及文件名
发给你参考一下,网上搜的Sub getpath() Range("A2:D1000").ClearContents On Error Resume Next Dim shell As Variant Set shell = CreateObject("Shell.Application") Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址 Set shell = Nothing If filePath Is Nothing Then Exit Sub Else gg = filePath.Items.Item.Path End If Set obj = CreateObject("Scripting.FileSystemObject") Set fld = obj.getfolder(gg) For Each ff In fld.Files m = m + 1 Cells(m + 1, 1) = ff.name Cells(m + 1, 2) = ff.Path Cells(m + 1, 3) = ff.Size Cells(m + 1, 4) = ff.DateCreated Next End Sub
未经允许不得转载：山九号 » vba获取excel文件名|VBA excel如何自动获取当前工作表的名字
