excel的宏獲取文件路徑

㈠ Excel 宏抽取文件到指定位置

基本方法
快速選中全部工作表
右鍵單擊工作窗口下面的工作表標簽，在彈出的菜單中選擇「選定全部工作表」命令即可（）。

快速啟動Excel
如果想在啟動系統自動運行Excel，可以這樣操作: 1.雙擊「我的電腦」圖標，進入Windows目錄，依次打開「Start Menu\Programs\啟動」文件夾; 2.打開Excel所在的文件夾，用滑鼠將Excel圖標拖到「啟動」文件夾，這時Excel的快捷方式就被復制到「啟動」文件夾中，下次啟動Windows就可快速啟動Excel了。 如果Windows系統已啟動，你可用以下方法快速啟動Excel: 方法一:單擊「開始→文檔」命令里的任一Excel工作簿即可。 方法二:用滑鼠從「我的電腦」中將Excel應用程序拖到桌面上，然後從快捷菜單中選擇「在當前位置創建快捷方式」，以後啟動時只需雙擊快捷方式即可。

快速刪除選定區域數據
如果用滑鼠右鍵向上或向左(反向)拖動選定單元格區域的填充柄時，沒有將其拖出選定區域即釋放了滑鼠右鍵，則將刪除選定區域中的部分或全部數據(即拖動過程中變成灰色模糊的單元格區域，在釋放了滑鼠右鍵後其內容將被刪除)。

給單元格重新命名
Excel給每個單元格都有一個默認的名字，其命名規則是列標加橫標，例如D3表示第四列、第三行的單元格。如果要將某單元格重新命名，可以採用下面兩種方法: 1.只要用滑鼠單擊某單元格，在表的左上角就會看到它當前的名字，再用滑鼠選中名字，就可以輸入一個新的名字了。 2.選中要命名的單元格，單擊「插入→名稱→定義」命令，顯示「定義名稱」對話框，在「在當前工作簿中的名稱」框里輸入名字，單擊「確定」按鈕即可（）。 注意:在給單元格命名時需注意名稱的第一個字元必須是字母或漢字，它最多可包含255個字元，可以包含大、小寫字元，但是名稱中不能有空格且不能與單元格引用相同。

㈡ 如何用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/，看看有沒有更適合你的。

㈢ excel錄制的宏，文件在哪裡

1.按「工具-宏-錄制宏」後，你在EXCEL中的後續操作都會被EXCEL用代碼的方式記錄，直回到按「停止錄制」為止。答比如需要將「選定的單元格」內自動填入一段文字，如「ABCD」，可按下面步驟操作：先選中任意一個單元格，再按「工具-宏-錄制宏」。

㈣ 如何在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的宏命令中怎樣修改文件的路徑

Sub GetF()
FileN = Application.GetOpenFilename()
If FileN <> False Then
Workbooks.Open (FileN)
End If
End Sub

㈦ VB製作的EXCEL載入宏.DLL如何獲取當前EXCEL文件的路徑及名稱

設計器代碼，主要是open 事件代碼。

PublicWithEventsXlAppAsExcel.Application

PrivateSubAddinInstance_OnConnection(ByValApplicationAsObject,.ext_ConnectMode,ByValAddInInstAsObject,custom()AsVariant)
SetXlApp=Application
EndSub

PrivateSubAddinInstance_OnDisconnection(.ext_DisconnectMode,custom()AsVariant)
SetXlApp=Nothing
EndSub

PrivateSubXlApp_WorkbookOpen(ByValWbAsExcel.Workbook)
路徑=Wb.FullName
名稱=Wb.Name
EndSub

㈧ [Macro, VBA] Excel 宏如何取得文件路徑

ThisWorkbook.FullName可返迴路徑及文件名
ThisWorkbook.Path可返迴路徑

㈨ 如何用excel宏在該Excel文件所在目錄下創建指定文件

Sub 宏建立文件夾()
'此宏用於根據已經存在的工作表「A列為~1000，B列為公司名稱」，在此文件目錄下創建相應的文件夾放在「文件目錄」文件夾中
Dim X As Integer, ZM As String, MM As String, LJ As String, P As String, MX As String

ZM = "文件目錄"

LJ = ThisWorkbook.Path '當前文檔的路徑

P = LJ & "\" & ZM

If Dir(P, vbDirectory) <> "" Then
MsgBox "文件夾存在，請刪除"

Else

MsgBox "文件夾不存在!,系統將創建一個名為" & "的文件夾"
MkDir P
Shell "EXPLORER.EXE " & P '打開文件夾《文件目錄》
For X = 4 To 1000
ZM = "文件目錄"
MM = Cells(X, 2)
LJ = ThisWorkbook.Path
P = LJ & "\" & ZM
MX = P & "\" & MM
If Cells(X, 1) = "" Then GoSub 100
MkDir MX '創建明細文件夾

Next X
End If

㈩ 如何用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