让您的宏知道它的位置。

havano · 发表于 2006-11-17 17:58:23

假设您构建了一个宏，该宏使用一些INI和数据文件进行输入或输出，位于同一目录中。您已将路径硬编码到DVB文件中，以便宏知道在何处查找这些文件
最终用户决定在网络服务器驱动器上使用宏。但是客户端PC对此驱动器使用不同的驱动器号。此外，IT部门还会更改应用程序的目录名。结果：宏找不到INI和数据文件
这里有一个解决方案：

copy

Public Sub GetMyLocation()
Dim strDVBname As String, strDVBpath As String
strDVBname = VBE.ActiveVBProject.Name & "."
strDVBpath = VBE.ActiveVBProject.BuildFileName
strDVBpath = left(strDVBpath, InStr(strDVBpath, strDVBname) - 1)
Debug.Print strDVBpath
'    e.g. strDVBpath will be "AnyDrive:\AnyDir\AnySubdir"
'    so your macro can access data files in this directory
'    no matter where the directory is created.
End Sub

我希望这对一些人有用。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Dnereb · 发表于 2006-11-19 14:42:05

这样做怎么样:
公共函数getmy location()
getmy location = Replace(VBE。ActiveVBProject.BuildFileName，VBE。ActiveVBProject.Name，" "
结束函数

havano · 发表于 2006-11-19 14:59:16

太美了，Dnereb！
一个小改进:

copy

Public Function GetMyLocation()
GetMyLocation = Replace(VBE.ActiveVBProject.BuildFileName ,VBE.ActiveVBProject.Name & ".DLL", "")
End Function

havano · 发表于 2006-11-19 16:48:34

我认为这个代码可能会得到错误的结果，如果VBE。ActiveVBProject.BuildFileName的子目录等于VBE。ActiveVBProject.Name
小心！

havano · 发表于 2006-11-19 16:56:23

因此，在我的第一个示例中添加了“.”，在我回复Dnereb的帖子时添加了“.DLL”。无论如何，后者是使函数正常工作所必需的。

havano · 发表于 2006-11-19 17:01:40

但是“.DLL”也可以在子目录路径中！例如：C:\TEST.DLL\MyOwnDirectory\TEST.DLL\TEST.DLL

Dnereb · 发表于 2006-11-19 17:13:16

好吧，亚历山大。有什么建议吗？
(一个100%安全的方法当然是找到字符串中最右边的反斜杠，然后从那里开始修剪字符串。)

Dnereb · 发表于 2006-11-19 17:21:39

你完全正确！如果VBA函数只能替代一个函数，我就不和VBA (VB等)一起写了。！！)子串在字符串中正确出现——这个函数很有用。在其他情况下，您必须自己完成该功能！

havano · 发表于 2006-11-22 23:25:51

copy

Public Sub KnowMyPlace()
Dim MyDir As String
MyDir = StrReverse(VBE.ActiveVBProject.BuildFileName)
MyDir = StrReverse(Right(MyDir, Len(MyDir) - InStr(MyDir, "") + 1))
End Sub

让您的宏知道它的位置。

发表回复

精选推荐