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

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

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

『叄』 vba提取多層文件夾的*.xls文件,根據獲取到的文件名及路徑逐個打開*.xls文件,去判斷某幾列有多少個數據

• 一、所需DOS命令

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

  二、應用實例

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

  

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

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

  三、知識擴展

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

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

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

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

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

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

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

『肆』 excel在vba中如何用單元格指定路徑，如：sheet1中在A1輸入路徑或者路徑文件，vba中如何讀取該路徑

不知道樓主想表達啥，路徑值在代碼里都是字元值，一個路徑就是一個字元串。比如讀取你的excel文件路徑：
sub test()
a=thisworkbook.path
end sub
其中a就是一字元串，也即是你的excel文件路徑。
再比如你想打開D:\123\456.xls (d盤的123文件夾的456.xls文件)
sub test1()
set book=workbooks.open("D:\123\456.xls")
end sub
其中D:\123\456.xls 就是一字元串。
希望能夠幫到你。

『伍』 如何運用VBA將指定路徑下的某一文件復制到另一指定路徑下

1、首先打開工作表，點擊【開發工具】下的【Visual Basic 】選項。

『陸』 VB查找指定文件夾並獲取文件路徑的代碼

1.首先打開來Excel電子表格，然自後在開發工具中打開VBA編輯器，如下圖。

『柒』 EXCEL怎樣用VBA自動提取文件夾內的文件名

按Alt+F11，打開VBA編輯器，插入一個模塊，把下面的代碼貼進去，按F5執行
Sub t()
Dim s As FileSearch '定義一個文件搜索對專象
Set s = Application.FileSearch
s.LookIn = "c:\" '注意路徑，屬換成你實際的路徑
s.Filename = "*.*" '搜索所有文件
s.Execute '執行搜索
Cells.Delete '表格清空
For i = 1 To s.FoundFiles.Count
Cells(i, 1) = s.FoundFiles(i) '每一行第一列填寫一個文件名
Next
End Sub

『捌』 VBA獲取指定格式的文件路徑

文件 = Dir(ThisWorkbook.Path & "\*.*")
Do While 文件回答 <> ""
If InStr(文件, ".xlsm") > 0 Or InStr(文件, ".txt") > 0 Then
i = i + 1
Cells(i , "A").Value = ThisWorkbook.Path & "\" & 文件
Else
文件 = Dir
Loop

『玖』 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 允許用戶保存一個文件