vba获取文件夹路径教程

‘壹’ sokidworks Vba截取路径的方法

首先打开Excel数据表，在开发工具中打开VBA编辑器。
在单元格区域当中输入一些内容
在VBA编辑器中插入模块。
Sub获取文件路径()Dim filess, tempfiless=Application.GetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件，程序即将退出！": Exit Subtemp=Split(filess, "\")。
MsgBox "你选择的《" & temp(UBound(temp)) & "》的路径为：" & Chr(10) & filess _
& Chr(10) & "当前表路径为：" & Chr(10) & ThisWorkbook.FullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码，然后运行。
然后单击“执行”按钮，程序弹出“选择文件”对话框。选择一个文件后，程序立即弹出所选文件的路径，然后弹出当前工作簿的路径。

‘贰’ 如何通过VBA，获得本文件所在的文件夹路径。

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

‘叁’ vba提取文件路径 利用下面的代码提取出来的路径如何提起的Excel

摘要 首先打开Excel数据表，在开发工具中打开VBA编辑器。

‘肆’ vba代码如何取得文件路径

可以用ActiveWorkbook.Path来取得保存到一个变量（字符串变量）中，后面用到时调用该变量即可

‘伍’ VBA 如何取得选中文件的路径谢谢！！！

可以改成：
theSh
=
Application.GetOpenFilename("Txt
Files
(*.txt),
*.txt",
,
,
,
False)'修改部分，TRUE为多选，FALSE为单选
If
VarType(theSh)
=
vbBoolean
Then
MsgBox
"取消"
Else
MsgBox
"有
"
&
UBound(theSh)
&
"
个文本将要被导入~"
End
If
Range("C3").Value
=
theSh’修改部分
End
Sub

‘陆’ 如何获取VBA的文件名及其所在目录的路径

ThisWorkbook.FullName
——返回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

‘捌’ 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 允许用户保存一个文件

‘玖’ Excel中VBA提取文件夹名称的方法

文章介绍excel中使用vba提取文件名的操作步骤。根据需要自行修改vba提取文件名的路径和存放单元格即可。
在excel中使用VBA编写代码，可以轻松的提取某个文件夹下面的所有文件名。
比如笔者在F盘下面建立了一个文件夹，文件夹的名称是：office教程网，现在想将“office教程网”这个文件夹下面的所有文件名提取出来放在当前工作表的C列。
具体的vba提取文件名的操作如下：
1.按下ALT+F11，打开VBE编辑器。
2.执行“插入——模块”，插入模块1。

3.在右边的代码编辑窗口，复制下面的代码，然后单击“绿色箭头”或者快捷键F5键，运行代码。
Private Sub vba提取文件名()
Dim FileName As String
Dim i As Long
FileName = Dir("F:\office教程网\*.*")
i = 0
Range("C:C").ClearContents
Do While FileName > ""
i = i + 1
Cells(i, 3) = FileName
FileName = Dir
Loop
End Sub

4.关闭VBE窗口，回到工作表中，可以在C列看到F盘“office教程网”文件夹下面所有的文件名全部罗列在C列了。

关于上面的vba提取文件名的代码，请在实际使用时，根据需要修改提取文件名的路径（F:\office教程网\*.*），以及存放在C列的位置（Cells(i, 3)）。

‘拾’ vba获取路径下所有文件名和对应的文件路径，并且显示到下面表格中。怎么做

• 一、所需DOS命令

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

  二、应用实例

  如下图，在D盘中，有一个名称为“TQIPC”的文件夹，这个文件夹里面，存放了很多的照片！

  

• 看到了没有，文件夹中的照片名称，自动就显示在excel表格中了！

  该dos命令非常强大，用好dos命令，可省去我们很多的功夫。

  三、知识扩展

  下面，再给大家一个例子，即，自动根据照片(根据人物名称)，建立文件夹。

  如果某个文件夹下面，您存放的是某些人物的照片，并且，每个人物的照片，都使用其名字来命名；这个时候，如何要自动根据人物的自动建立其对应的文件夹，也相当方便！

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

  然后，在人物名称列前面，插入一列，并输入MD；

  接下来，使用查找替换功能，将excel文件中的人物名称，去掉扩展名(只保留名字)；

  最后，将excel的内容，复制粘贴到记事本中，现在，我们就得到了形如：“MD人物名称”这样的命令格式了。(md 文件名称，该命令格式，是使用来建立文件夹的命令，上述的操作，都是为此做准备！)

  将记事本文件保存成为形如：124.bat格式的文件，最后，双击此文件，文件夹名称就自动建立好了！