其实要求很简单。
我做的vba文件有一个窗体，窗体要显示图片，但是因为这个程序要给朋友用，（文件和图片打包发给他们）又没法统一告诉他们要放到什么地方用。所以无法确定图片的确切路径。
但是可以保证所需要的图片一定和这个excel文件在同一个文件夹中。所以想先通过语言找到excel文件所在的文件夹。赋值给“文件路径”这个变量。
然后通过类似 "文件路径\001.jpg" 这样的方法来保证对方无论把我发送的文件夹放在什么地方都可以正确的打开图片。
网上用的都是一些查找功能。不太明白怎么用。望高人指教。
Sub s()
Dim pth$
pth = ThisWorkbook.Path
MsgBox "æ¬æ件çè·¯å¾ä¸ºï¼" & pth
End Sub
Dim pth$
pth = ThisWorkbook.Path
MsgBox "æ¬æ件çè·¯å¾ä¸ºï¼" & pth
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-02-10
Sub qq()
rpath = "e:\" '源文件目录
dpath = "e:\123\" '目标目录
s = Dir(rpath & "*.txt")
Do While s <> ""
FileCopy rpath & s, dpath & s
s = Dir
Loop
End Sub
rpath = "e:\" '源文件目录
dpath = "e:\123\" '目标目录
s = Dir(rpath & "*.txt")
Do While s <> ""
FileCopy rpath & s, dpath & s
s = Dir
Loop
End Sub
第2个回答 2011-02-09
word文件 ActiveDocument.path
execl文件 ActiveWorkbook.path
execl文件 ActiveWorkbook.path
第3个回答 2011-02-09
ActiveWorkbook.path &"\001.jpg"
第4个回答 2011-02-10
=ActiveWorkbook.Path & "\001.jpg"
