提取文件名宏程序

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