Question

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

其实要求很简单。
我做的vba文件有一个窗体，窗体要显示图片，但是因为这个程序要给朋友用，（文件和图片打包发给他们）又没法统一告诉他们要放到什么地方用。所以无法确定图片的确切路径。
但是可以保证所需要的图片一定和这个excel文件在同一个文件夹中。所以想先通过语言找到excel文件所在的文件夹。赋值给“文件路径”这个变量。
然后通过类似 "文件路径\001.jpg" 这样的方法来保证对方无论把我发送的文件夹放在什么地方都可以正确的打开图片。
网上用的都是一些查找功能。不太明白怎么用。望高人指教。

Answer 1

Sub s()
    Dim pth$
    pth = ThisWorkbook.Path
    MsgBox "本文件的路径为：" & pth
End Sub

Answer 2

Sub qq()
rpath = "e:\" '源文件目录
dpath = "e:\123\" '目标目录
s = Dir(rpath & "*.txt")
Do While s <> ""
FileCopy rpath & s, dpath & s
s = Dir
Loop
End Sub

Answer 3

word文件 ActiveDocument.path
execl文件 ActiveWorkbook.path

Answer 4

ActiveWorkbook.path &"\001.jpg"

Answer 5

=ActiveWorkbook.Path & "\001.jpg"