[求助]VBA怎么获取自己的路径?

jxlsp 发表于 2008-10-12 10:14:00

VB可用App.Path可以获取自己的路径,请问VBA的代码是什么呢?

王咣生 发表于 2008-10-12 19:17:00

转贴:'取得当前应用程序路径 Private Function GetDvbPath() As String     On Error Resume Next     Err.Clear         Dim strFilePath As String     Dim strFileName As String         strFileName = VBE.ActiveVBProject.FileName     If Err Then         strFilePath = ""     Else         Dim pos As Integer         pos = VBA.InStrRev(strFileName, "\\", -1, vbTextCompare)         strFilePath = VBA.Left(strFileName, pos - 1)     End If     GetDvbPath = strFilePath     End Function

jxlsp 发表于 2008-10-13 08:54:00

非常感谢版主

robbin840311 发表于 2008-10-17 09:05:00

学习了。

wuyunpeng888 发表于 2008-10-26 14:35:00

我试了怎么不好用

lioney 发表于 2009-4-29 08:49:00

Private Function GetDvbPath() As String     On Error Resume Next     Err.Clear         Dim strFilePath As String     Dim strFileName As String         strFileName = ThisDrawing.VBE.ActiveVBProject.FileName     If Err Then         strFilePath = ""     Else         Dim pos As Integer         pos = VBA.InStrRev(strFileName, "\", -1, vbTextCompare)         strFilePath = VBA.Left(strFileName, pos - 1)     End If     GetDvbPath = strFilePath     End Function我作了点改动，在VBA里通过了测试。返回的路径类似：C:\aaa\bbb

lioney 发表于 2009-4-29 14:03:00

少写了一点,是ThisDrawing.Application.VBE.ActiveVBProject.FileName

页: [1]

明经CAD社区's Archiver

[求助]VBA怎么获取自己的路径?