vba獲取文件夾路徑教程

『壹』 sokidworks Vba截取路徑的方法

首先打開Excel數據表，在開發工具中打開VBA編輯器。
在單元格區域當中輸入一些內容
在VBA編輯器中插入模塊。
Sub獲取文件路徑()Dim filess, tempfiless=Application.GetOpenFilename(, , "打開文件")If filess=False Then MsgBox "你未選擇文件，程序即將退出！": Exit Subtemp=Split(filess, "\")。
MsgBox "你選擇的《" & temp(UBound(temp)) & "》的路徑為：" & Chr(10) & filess _
& Chr(10) & "當前表路徑為：" & Chr(10) & ThisWorkbook.FullName, vbokonty+64,"返迴路徑"End Sub。在模塊當中輸入代碼，然後運行。
然後單擊「執行」按鈕，程序彈出「選擇文件」對話框。選擇一個文件後，程序立即彈出所選文件的路徑，然後彈出當前工作簿的路徑。

『貳』 如何通過VBA，獲得本文件所在的文件夾路徑。

Subs()
Dimpth$
pth=ThisWorkbook.Path
MsgBox"本文件的路徑為："&pth
EndSub

『叄』 vba提取文件路徑 利用下面的代碼提取出來的路徑如何提起的Excel

摘要 首先打開Excel數據表，在開發工具中打開VBA編輯器。

『肆』 vba代碼如何取得文件路徑

可以用ActiveWorkbook.Path來取得保存到一個變數（字元串變數）中，後面用到時調用該變數即可

『伍』 VBA 如何取得選中文件的路徑謝謝！！！

可以改成：
theSh
=
Application.GetOpenFilename("Txt
Files
(*.txt),
*.txt",
,
,
,
False)'修改部分，TRUE為多選，FALSE為單選
If
VarType(theSh)
=
vbBoolean
Then
MsgBox
"取消"
Else
MsgBox
"有
"
&
UBound(theSh)
&
"
個文本將要被導入~"
End
If
Range("C3").Value
=
theSh』修改部分
End
Sub

『陸』 如何獲取VBA的文件名及其所在目錄的路徑

ThisWorkbook.FullName
——返回VBA代碼所在工作簿文件帶路徑的文件名

『柒』 VBA中怎麼通過打開文件的對話框獲取選擇文件的路徑並在其他模塊中引用該路徑

1.插入一個模塊或在已有的模塊最上面一行定義一個全局變數
比如: Public iFileName As String
2.在這個工作薄的其他模塊中都可以引用這個變數

比如:(先執行一次test1,再執行test2)
Sub test1()
'打開一個選擇文件的對話框
iFileName = Application.GetOpenFilename
End Sub
Sub test2()
If iFileName = "False" Then
MsgBox "沒有選擇文件!"
Else
wz = InStrRev(iFileName, "\")
Path = Left(iFileName, wz)
fname = Right(iFileName, Len(iFileName) - wz)
MsgBox "選擇的文件名為:" & fname & vbCrLf & "路徑為:" & Path
End If
End Sub

『捌』 word vba 獲取文件位置

代碼示例：

Sub showpath()

'1、獲取當前文檔的路徑和文件名

aa = ThisWorkbook.Path '當前文件的路徑

bb = ThisWorkbook.Name '當前文件的名稱

cc = ThisWorkbook.FullName '當前文件的路徑+名稱

'2、在本示例中，EXCEL打開文件對話框，允許用戶選擇一個或多個文件，選中這些文件之後，逐條顯示每個文件的路徑

Dim ingcount As Long

With Application.FileDialog(msoFileDialogOpen) '提供文件對話框，允許用戶打開文件

.AllowMultiSelect = True '允許用戶從文件對話框中選擇多個文件，false表示不允許選擇多個文件

.Show '顯示對話框

For ingcount = 1 To .SelectedItems.Count '從1到選中的文件數目循環

MsgBox .SelectedItems(ingcount) '顯示文件的全路徑

Next ingcount

End With

End Sub

補充：FileDialog說明

'提供文件對話框，返回一個FileDialog對象，該對象代表文件對話框的實例。

語法: expression.FileDialog (FileDialogType)

說明:

'expression 必需。該表達式返回"應用於"列表中的對象之一。

'FileDialogType 必需。MsoFileDialogType類型，文件對話框的類型。

MsoFileDialogType可以為以下常量之一:

msoFileDialogFilePicker 允許用戶選擇文件

msoFileDialogFolderPicker 允許用戶選擇一個文件夾

msoFileDialogOpen 允許用戶打開文件, 用EXCEL打開

msoFileDialogSaveAs 允許用戶保存一個文件

『玖』 Excel中VBA提取文件夾名稱的方法

文章介紹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列了。

關於上面的vba提取文件名的代碼，請在實際使用時，根據需要修改提取文件名的路徑（F:\office教程網\*.*），以及存放在C列的位置（Cells(i, 3)）。

『拾』 vba獲取路徑下所有文件名和對應的文件路徑，並且顯示到下面表格中。怎麼做

• 一、所需DOS命令

  dir [drive:][path] /b > [drive:][path]filename

  二、應用實例

  如下圖，在D盤中，有一個名稱為「TQIPC」的文件夾，這個文件夾裡面，存放了很多的照片！

  

• 看到了沒有，文件夾中的照片名稱，自動就顯示在excel表格中了！

  該dos命令非常強大，用好dos命令，可省去我們很多的功夫。

  三、知識擴展

  下面，再給大家一個例子，即，自動根據照片(根據人物名稱)，建立文件夾。

  如果某個文件夾下面，您存放的是某些人物的照片，並且，每個人物的照片，都使用其名字來命名；這個時候，如何要自動根據人物的自動建立其對應的文件夾，也相當方便！

  操作的方法是，先根據上述的方法，獲取所有人物的照片的名稱，生成EXCEL文件；

  然後，在人物名稱列前面，插入一列，並輸入MD；

  接下來，使用查找替換功能，將excel文件中的人物名稱，去掉擴展名(只保留名字)；

  最後，將excel的內容，復制粘貼到記事本中，現在，我們就得到了形如：「MD人物名稱」這樣的命令格式了。(md 文件名稱，該命令格式，是使用來建立文件夾的命令，上述的操作，都是為此做准備！)

  將記事本文件保存成為形如：124.bat格式的文件，最後，雙擊此文件，文件夾名稱就自動建立好了！