vba文件夾路徑
① vba怎麼通過文件夾名找到這個文件夾的路徑
這種運用基本很少見吧 不符合正常邏輯，
只知道文件夾名，那直接照windows里搜索就可以達到效果了 何必費勁編寫代碼來完成這個，有點舍近求遠的味道。
另外一種情況是Excel文件所在的文件夾，這樣的情況找起文件夾路徑來比較容易
thisworkbook.path就知道了
② 如何運用VBA將指定路徑下的某一文件復制到另一指定路徑下
1、我們需要批量提取新建文件夾里的文件完整路徑，打開批量提取文件名的excel文件。
③ vba workbooks.open打開相對文件路徑
摘要 打開文件如下：
④ 如何用VBA復制整個文件夾包括子目錄
Sub Files(Path As String, afterPath)
'Path：原文件夾路徑；afterPath：目標文件夾路徑
Dim Spath As String
Set fs = CreateObject("Scripting.FileSystemObject")
Spath = Dir(Path, vbDirectory)
Do While Len(Spath)
If Spath <> "." And Spath <> ".." Then
fs.CopyFolder Path, afterPath
Spath = Dir()
End If
Loop
End Sub
————————————————
版權聲明：本文為CSDN博主「前端小菜鳥007」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/weixin_41844140/article/details/103188537
⑤ 如何通過VBA，獲得本文件所在的文件夾路徑。
Subs()
Dimpth$
pth=ThisWorkbook.Path
MsgBox"本文件的路徑為："&pth
EndSub
⑥ VBA中怎麼遍歷所選路徑中所有文件夾及其子文件夾(多個子文件)，並返回所有的最底層的文件夾路徑
答：執行"獲取所有文件夾"，按提示操作。文件夾清單會顯示在工作表的AB列中。
Sub獲取所有文件夾()
DimDirectoryAsString
WithApplication.FileDialog(msoFileDialogFolderPicker)
.InitialFileName=Application.DefaultFilePath&""
.Title="請選擇一個文件夾"
.Show
If.SelectedItems.Count=0Then
ExitSub
Else
Directory=.SelectedItems(1)
EndIf
EndWith
Cells.ClearContents
CallRecursiveDir(Directory)
EndSub
PublicSubRecursiveDir(ByValCurrDirAsString)
DimDirs()AsString
DimNumDirsAsLong
DimFilesizeAsDouble
DimTotalFolders,SingleFolder
Cells(1,1)="目錄名"
Cells(1,2)="日期/時間"
Range("A1:B1").Font.Bold=True
SetTotalFolders=CreateObject("Scripting.FileSystemObject").GetFolder(CurrDir).SubFolders
Cells(WorksheetFunction.CountA(Range("A:A"))+1,1)=CurrDir
Cells(WorksheetFunction.CountA(Range("B:B"))+1,2)=FileDateTime(CurrDir)
IfTotalFolders.Count<>0Then
ReDimPreserveDirs(0ToNumDirs)AsString
Dirs(NumDirs)=SingleFolder
NumDirs=NumDirs+1
Next
EndIf
Fori=0ToNumDirs-1
RecursiveDirDirs(i)
Nexti
EndSub
⑦ 用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
⑧ 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文件
打開文件如下：Workbooks.Open ("C:\對賬單\對帳單.xlsx")這里你可以把「C:\對賬單\」換成你的絕對路徑，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&對帳單.xlsx")來獲取你當前表的絕對路徑，然後再打開，因為不知道你的具體情況，如果有問題可以hai我 如果當前文件夾下還有A文件夾可以用代碼：Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統的電腦編寫的一款電子表格軟體。直觀的界面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的個人計算機數據處理軟體。在1993年，作為Microsoft Office的組件發布了5.0版之後，Excel就開始成為所適用操作平台上的電子製表軟體的霸主。
⑩ vba提取文件路徑 利用下面的代碼提取出來的路徑如何提起的Excel
摘要 首先打開Excel數據表，在開發工具中打開VBA編輯器。