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

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

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

『叁』 vba提取多层文件夹的*.xls文件,根据获取到的文件名及路径逐个打开*.xls文件,去判断某几列有多少个数据

• 一、所需DOS命令

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

  二、应用实例

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

  

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

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

  三、知识扩展

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

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

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

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

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

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

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

『肆』 excel在vba中如何用单元格指定路径，如：sheet1中在A1输入路径或者路径文件，vba中如何读取该路径

不知道楼主想表达啥，路径值在代码里都是字符值，一个路径就是一个字符串。比如读取你的excel文件路径：
sub test()
a=thisworkbook.path
end sub
其中a就是一字符串，也即是你的excel文件路径。
再比如你想打开D:\123\456.xls (d盘的123文件夹的456.xls文件)
sub test1()
set book=workbooks.open("D:\123\456.xls")
end sub
其中D:\123\456.xls 就是一字符串。
希望能够帮到你。

『伍』 如何运用VBA将指定路径下的某一文件复制到另一指定路径下

1、首先打开工作表，点击【开发工具】下的【Visual Basic 】选项。

『陆』 VB查找指定文件夹并获取文件路径的代码

1.首先打开来Excel电子表格，然自后在开发工具中打开VBA编辑器，如下图。

『柒』 EXCEL怎样用VBA自动提取文件夹内的文件名

按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行
Sub t()
Dim s As FileSearch '定义一个文件搜索对专象
Set s = Application.FileSearch
s.LookIn = "c:\" '注意路径，属换成你实际的路径
s.Filename = "*.*" '搜索所有文件
s.Execute '执行搜索
Cells.Delete '表格清空
For i = 1 To s.FoundFiles.Count
Cells(i, 1) = s.FoundFiles(i) '每一行第一列填写一个文件名
Next
End Sub

『捌』 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

『玖』 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 允许用户保存一个文件