VBA中如何获取已复制文件的路径

给你个思路:

Public Sub ds()

Dim She As New Shell

Dim Fo As Shell32Folder

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

MsgBox FoItemsItemPath

End Sub

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

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

打开文件如下：

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就开始成为所适用 *** 作平台上的电子制表软件的霸主。

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

2在单元格区域输入一些内容，如下图。

3将模块插入到VBA编辑器中，如下图。

4文件的子访问路径()Dimfiless,tempfiless=Application。GetOpenFilename(，，“打开文件”)如果filess=False，那么MsgBox“你没有选择知道选择文件，程序将退出!”:ExitSubtemp=Split(filess，"\")。

5MsgBox "you choose" & temp(UBound(temp)) & "the path is:" & Chr(10) & filess _& Chr(10) & "the current table path is:" & Chr(10) & thisworkbook "全名，vbokonty+64，“返回路径”结束子。在模块中输入代码并运行它，如下图。

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

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