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
的高级功能提示供用户选择；---------这个应该不难吧？呵呵...
再看看别人怎么说的。