提取文件名宏程序

A. excel 如何用宏取打开的excel文件名

如果你只是想链接引用其他工作簿中某工作表数据的数据，则不是必须把第二个文件打开才可以。只需要在要引用的单元格（当然也可以在你的宏程序中，根据需要改动）把引用地址写好就可以了，类似于
='C:\[Book2.xls]Sheet1'!$A2

B. 如何用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/，看看有没有更适合你的。

C. excel用公式函数提取文件名的方法

在 Excel 中可能会有特殊的情况需要用到公式函数提取文件名的时候。具体该怎么做呢?下面是我带来的关于excel 用公式函数提取文件名的 方法 ，希望阅读过后对你有所启发!

公式提取文件名步骤1：点开始菜单，就能看到上面的界面，选择“运行”!你点了运行程序后，在里面输入“cmd”点击确定会进入命令提示符串口

公式提取文件名步骤2：打个比方说，文件在C盘里面的111文件夹，要读取里面的文件的文件名字

公式提取文件名步骤3：利用cd命令到达要读取文件名的文件夹，用法是这样的：命令为“cd c:111”

公式提取文件名步骤4：然后会看到下面的这个情况：

公式提取文件名步骤5：然后输入命令“dir /b>d:1.xls”然后回车

公式提取文件名步骤6：到D盘就能看到一个名称为1.xls的文件

D. 如何利用vba代码批量提取文件名及修改日期到Excel表

程序代抄码：

OptionExplicit

SubYgB()
Dimp,i,fn
i=1
p="d:doc"
fn=Dir(p&"*.*")
Whilefn<>""
Cells(i,1)=fn
Cells(i,2)=FileDateTime(p&fn)
i=i+1
fn=Dir
Wend
EndSub

运行示例：

E. 用EXCEL VBA获取指定目录下的文件名(包括文件夹名)

1、首先利用快捷键“Windows键+R”打开“运行”窗口

F. vba提取文件名到excel

文章介绍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
Loop
End Sub

4.关闭VBE窗口，回到工作表中，可以在C列看到F盘“office教程网”文件夹下面所有的文件名全部罗列在C列了。

G. 如何用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