vba中文件完整路徑

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

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

② 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

③ vba打開文件後如何獲得打開文件的路徑

S=activeworkbook.Path & "\" & activeworkbook.Name
或
S=workbooks("test.xls").Path & "\" & workbooks("test.xls").Name

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

• 一、所需DOS命令

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

  二、應用實例

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

  

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

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

  三、知識擴展

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

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

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

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

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

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

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

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

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

⑥ 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如何導入一個文件夾里的文件絕對路徑(包含擴展名)到excel里

Sub MMM()

Dim myPath$, myFile$, i&

Application.ScreenUpdating = False

myPath = "D:\新建文件夾" & "\"

myFile = Dir(myPath & "*.*")

Do While myFile <> ""

i = i + 1

Cells(i, 1) = myPath & myFile

myFile = Dir

Loop

Application.ScreenUpdating = True

End Sub

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

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

⑨ VBA中ComboBox開啟多選後如何在下拉列表中顯示完整路徑和文件名

1.
先去某個文件夾（已知路徑）里找所有文件的文件名，把路徑和文件名保存在一個數組（可以是動態數組）或者List里；---------遍歷文件夾的代碼網上有很多，網路上應該也有。
2.
給下拉列表裡載入數組里的每個文件路徑時，檢查是否已經存在（判斷字元串相同），並給出提示，用Msgbox
的高級功能提示供用戶選擇；---------這個應該不難吧？呵呵...
再看看別人怎麼說的。