① excel 如何用宏取打开的excel文件名
如果先打开A，再打开B那就可以用msgbox
workbooks(2).name来取得B的
文件名
。
② 如何用excel宏提取文件名生成目录
写了一小部分，可以获取文件夹下所有文件名称，路径，大小，创建日期，不知道能否对你有帮助。
1.添加VBA代码，选择新插入的模块后，插入以下代码
Sub getpath()
Range("A2:C1000").ClearContents '清空A2：C1000列
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
2.运行宏（alt+F8），宏的名称为getpath
③ excel 如何用宏取打开的excel文件名
如果你只是想链接引用其他工作簿中某工作表数据的数据，则不是必须把第二个文件打开才可以。只需要在要引用的单元格（当然也可以在你的宏程序中，根据需要改动）把引用地址写好就可以了，类似于
='C:\[Book2.xls]Sheet1'!$A2
④ 如何用excel宏提取文件名生成目录如何用excel宏提取文件名生成目录比如要从C盘提取其所有的文件名（
方法一：
1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入
dir> 1.txt
保存退出
将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）
双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件
打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！
方法二：
在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码：
Sub aaa()
f = Dir("c:\*.*")
han = 1
Do While f > ""
Cells(han, 1).Value = f
han = han + 1
f = Dir
Loop
End Sub
回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行
看看效果吧！
另外可以到http://www.excelhome.net/，看看有没有更适合你的。
⑤ EXCEL2013里自定义命令按钮指定的宏前总是带文件名，怎么能够去掉
可以导出文件，然后用文本编辑器打开，删除文件名相关信息，再导入回去。
⑥ excel宏，以固定单元格数值为文件名，打开相应excel文件
有这么几个问题：
1 MkDir语句中的括号里应为 ("E:\" & fname) '创建文件夹。
——注意引号和&的配合。
2 打开文件夹语句不对。那个open是打开指定文件的语句
3 对象创建后注意关闭（清理后再离场）
测试后的完整代码为：
Sub 创建文件夹()
Dim fname '定义变量
fname = ActiveSheet.Range("a1") '指定表格内容
MkDir ("E:\" & fname) ' '创建文件夹
'Workbooks.Open ("E:\" & fname) '打开文件夹
Set Fs = CreateObject("Scripting.FileSystemObject") '复制指定文件到指定文件夹
Fs.file "d:\scan\aa.xlsx", "e:\" & fname & "\aa.xlsx", True '
Set Fs = Nothing
End Sub