☰

在 .vbs 文件中创建相对路径

tag-icon • tag-icon microsoft-excel
在 .vbs 文件中创建相对路径

我有一个由 Latex 生成的 pdf 文件，其中包含打开 excel 文件 (excel 2003) 的超链接。我在 Latex 论坛上发布了一个问题 在此处输入链接描述 这样我就可以让每个链接在特定的单元格上打开 excel 文件；但没有人能给我答案。我在 brettdj 的回答中找到了 在此处输入链接描述

它使用 vbs 文件打开 excel 文件中的特定单元格。问题是文件位置（在 strFileName = 中）是绝对的，所以当我将 vbs 和 excel 文件带到另一个文件夹时

或连接到另一台计算机时，链接不起作用；并显示“未找到文件”的消息。

有没有办法做到这一点，或者使 excel 文件的路径相对于 vbs 文件所在的位置；这样当 vbs

并且 Excel 文件被移动到另一个位置该文件仍然可以打开。

我发布了这个问题 在此处输入链接描述 但我没得到答案

答案1

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim CurrentDirectory
CurrentDirectory = objFSO.GetAbsolutePathName(".")

我将 VBS 保存为C:\Users\Jonno\Documents\test.vbs- 它给出了输出C:\Users\Jonno\Documents。要使用它，请输入类似

strFileName = CurrentDirectory & "\test.xlsx"

相关内容