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编辑器。