在ppt中用VBA怎么取得当前PPT的路径地址

可以通过ActivePresentation对象的Path属性获取路径地址

1）新建一个PPT,插入一个命令按钮，保存为PPTM格式文件。右键单击按钮，查看代码：

2）编辑按钮事件代码如下：

Private Sub CommandButton1_Click()

    MsgBox ActivePresentationPath

End Sub

3）回到PPT视图，按F5进入播放状态，单击按钮，即会跳出消息框提示文件路径

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出当前工作簿的路径，如下图。

lnk文件是二进制文件，结构比较复杂，建议参考百度文库中的“lnk文件格式解析”一文（见：>

这种运用基本很少见吧 不符合正常逻辑，

只知道文件夹名，那直接照windows里搜索就可以达到效果了 何必费劲编写代码来完成这个，有点舍近求远的味道。

另外一种情况是Excel文件所在的文件夹，这样的情况找起文件夹路径来比较容易

thisworkbookpath就知道了

给你个思路:

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

举个例子，打开在Sheet1表中的A1中指定的路径下和A2中指定的已有文件：

Sub 打开指定文件()

Dim OpenFName$, FileSource$

OpenFName = Sheets("Sheet1")Range("A2") '读取在Sheet1表中的A2中的文件名，样式如 AXLS

FileSource = Sheets("Sheet1")Range("A1") '读取在Sheet1表中的A1中的路径，样式如 D:\

WorkbooksOpen Filename:=FileSource + OpenFName '打开在Sheet1表中的A1中指定的路径下和A2中指定的文件，样式如 在：D:\AXLS

End Sub

以上就是关于在ppt中用VBA怎么取得当前PPT的路径地址全部的内容，包括:在ppt中用VBA怎么取得当前PPT的路径地址、VB查找指定文件夹并获取文件路径的代码、请教各位用vba，如何通过文件快捷方式获取文件的目标路径谢谢！！！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！