vba對話獲取文件夾路徑

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

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

Ⅱ vba如何設置首次打開文件路徑

1、首先打開vba，並登錄自己的賬號。
2、其次選中地址所在單元格，運行下述代碼即可打開指定的文件夾。
3、最後選中路徑，點擊打開即可。

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

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

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

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

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

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

• 一、所需DOS命令

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

  二、應用實例

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

  

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

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

  三、知識擴展

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

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

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

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

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

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

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

Ⅶ 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窗體內的圖片有提取路徑嗎

方法如下：
統一行高
Dim nm As Integer
For nm=53 To 100 Step 1』Rows(nm).RowHeight =12.75』Next
第二方案，每個sheet激活時發生時開始執行程序』選擇圖片，自動插入圖片，製作好報告
獲得打開的文件夾路徑，若取消選擇則顯示對話框，終止程序
Dim dlgOpen As FileDialog Dim MyPath As String
Set dlgOpen=Application.FileDialog(msoFileDialogFolderPicker) With dlgOpen
.Title ="請選擇報告圖片所在的整體文件夾ByBergHOFF-Kane" If.Show=-1Then
MyPath=SelectedItems(1) Else
MsgBox("你未選擇文件,可以編輯內容 ByBergHOFF-Kane")
End