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

Sub s()

    Dim pth$

    pth = ThisWorkbookPath

    MsgBox "本文件的路径为：" & pth

End Sub

1点开始菜单，就能看到上面的界面，选择“运行”！点了运行程序后，在里面输入“cmd”点击确定会进入命令提示符串口。 2打个比方说，文件在C盘里面的111文件夹，要读取里面的文件的文件名字。 3利用cd命令到达要读取文件名的文件夹，用法是这样的：命令为“cd c:\111”。 4然后会看到下面的这个情况： 5然后输入命令“dir /b>d:1xls”然后回车。 6到D盘就能看到一个名称为1xls的文件。 7打开就是了。

给你个思路:

Public Sub ds()

Dim She As New Shell

Dim Fo As Shell32Folder

Set Fo = SheBrowseForFolder(0, "", 0)

MsgBox FoItemsItemPath

End Sub

记得在引用里面将这个打勾,否则会报错

你要获取的相对路径，总有一个相对的东西，下面的代码假设相对本文件路径来写的：

p1="C:AAA\BBB\CCC1\DDD\EEE\FFFxlsx"

p2=ThisWorkBookPath

p3=""

if left(p1,len(p2))=p1 then

    p3=right(p1,len(p1)-len(p2))

    '如果路径p1的前面部分与p2完全一致，相对路径为后面部分

else

    p3=p1

    '否则，相对路径就是绝对路径

end if

msgbox "相对路径：" & p3

打开文件如下：

WorkbooksOpen ("C:\对账单\对帐单xlsx")

这里你可以把“C:\对账单\”换成你的绝对路径，

你可以用：a = ThisWorkbookPath

a = ThisWorkbookPath

WorkbooksOpen ("" & a & "&" \ "&对帐单xlsx")

来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码：

WorkbooksOpen ("" & a & "&" \ A\"&bxlsx")

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh *** 作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了50版之后，Excel就开始成为所适用 *** 作平台上的电子制表软件的霸主。

以上就是关于如何通过VBA，获得本文件所在的文件夹路径。全部的内容，包括:如何通过VBA，获得本文件所在的文件夹路径。、Excel 如何用VBA取出已知路径中的最后的文件名、VBA中如何获取已复制文件的路径等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！