有没有办法在我的桌面上运行 .lnk 文件并等待它完成？

Posted 2023-04-19

【中文标题】有没有办法在我的桌面上运行 .lnk 文件并等待它完成？

【英文标题】：Is there any way to run a .lnk file on my desktop and wait for it to complete?

【发布时间】：2019-08-27 22:07:36

【问题描述】：

我的桌面上有几个 .lnk 文件，它们从我在数据库中使用的其他文件中获取数据。这些文件将数据复制到剪贴板，然后我将其粘贴到显示的表单中。我想在 Access VBA 中执行此操作，而不是跳转到桌面并单击文件。

【问题讨论】：

Analyse .LNK files 将它们转换为 VBA。

【参考方案1】：

您可以使用WScript 来执行.LNKfiles。

Sub ExecuteLink(ByVal Path As String)
Const dQuote As String = """"

With CreateObject("Wscript.shell")
    .Run dQuote & Path & dQuote, 4, True
End With
End Sub

但您仍然需要粘贴剪贴板数据（也可以是automated）。

取而代之的是获取数据（从查询？）到剪贴板，在 VBA 中获取数据并将其插入到表单中。

如果您无法自动插入所选字段，您可以使用context menu entry 选择控件并执行 VBA 代码。

【讨论】：

感谢您的 Wscript。这解决了我一半的问题。下一篇：如何等待,lnk文件中隐藏的可执行文件结束？

bWaitOnReturn 是真的，它应该这样做，但使用 vba 代替 lnk 也可以解决这个问题。

【参考方案2】：

由于这变得越来越复杂，我将开始一个新的更简单的线程，使用 Access VBA 运行“Microsoft Solitaire Collection”。