VBA如何获取当前EXCEL文件的路径

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

2、在单元格区域当中输入一些内容。

3、在VBA编辑器中插入模块。

4、Sub获取文件路径()Dim filess, tempfiless=ApplicationGetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件，程序即将退出！": Exit Subtemp=Split(filess, "\")。

5、MsgBox "你选择的《" & temp(UBound(temp)) & "》的路径为：" & Chr(10) & filess _

& Chr(10) & "当前表路径为：" & Chr(10) & ThisWorkbookFullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码，然后运行。

6、然后单击“执行”按钮，程序d出“选择文件”对话框。选择一个文件后，程序立即d出所选文件的路径，然后d出当前工作簿的路径。

DirectoryInfo dir=new DirectoryInfo("D:\\"); //获取d盘下文件夹及文件

DirectoryInfo[] subDirs=dirGetDirectories(); //获取所有子文件夹

FileInfo[] subFiles=dirGetFiles(); //获取该文件夹中所有文件

如果在HTML里编写VBScript，可以利用document对象获取HTML文件的路径。<script

language="VBScript">documentwrite(documentlocation)</script>

return new File(MyClassclassgetProtectionDomain()getCodeSource()getLocation()toURI()getPath());

通过如上代码你可以获取jar的路径。在秒秒学的Java有相关的知识。

以上就是关于VBA如何获取当前EXCEL文件的路径全部的内容，包括:VBA如何获取当前EXCEL文件的路径、asp.net如何获取一个服务器上一个文件夹的地址、如何用vbs获取网页所在的本地文件夹地址等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！