个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
26
4
(最终编辑:我最终整理的有效代码在下面，这可能是该线程中的最终回复。:-))
我正在尝试编写可以在独立的 VBScript(.vbs 文件)、.hta 文件和 VBA(例如，在 Excel 文件中)中工作的通用复制和粘贴代码。为此，我需要一些方法让代码本身告诉它正在运行的引擎。
到目前为止，我听到的最好的想法是测试某些对象是否存在，但是在 VBA 中，这在编译时会失败(所以我不能用 On Error 绕过它)，所以没有成功。试图找出它正在运行的文件的名称最终并不可行。这是根据代码运行在三个脚本引擎中的哪一个而做不同的事情之一。
我很想有这样简单的东西，但不知道用什么来填写:
编辑:到目前为止，大多数响应都涉及检查可能不存在的对象，这在带有 Option Explicit 的 VBA 中完全不起作用(它会引发编译时错误，因此 On Error 不起作用，并且关闭 Option Explicit 不是一个选项)。是否有其他一些回旋处/开箱即用的方式来找出这里需要什么？
Option Explicit
'--- Returns a string containing which script engine this is running in,
'--- either "VBScript", "VBA", or "HTA".
Function ScriptEngine()
If {what goes here?} Then ScriptEngine="VBS"
If {what goes here?} Then ScriptEngine="VBA"
If {what goes here?} Then ScriptEngine="HTA"
End Function
最佳答案
要求Option Explicit的限制在 VBA 实现中使这比其他情况更困难(没有它是单线)......具有讽刺意味的是，它也成为解决方案的关键。
如果您不将自己限制为单个功能，则可以通过执行以下操作来摆脱它:
Dim hta
Sub window_onload()
hta = True
End Sub
Function HostType()
On Error Resume Next
If hta Then
HostType = "HTA"
Else
Dim foo
Set foo = foo
If Err.Number = 13 Then
HostType = "VBA"
Else
HostType = "VBS"
End If
End If
End Function
window_onload事件处理程序运行，设置
hta可变为
True .那是第一次测试。第二个“测试”是关于
Set foo = foo 行抛出的错误。 .这是 VBA 中的类型不匹配，它被解释为试图
Set一个
Variant至
Empty ，这不是兼容的类型。同一行代码在 VBScript 中引发错误 424(需要对象)，因为它不是强类型语言。这意味着 VBA 的类型检查被跳过并尝试实际执行分配(失败)。剩下的只是弄清楚它是如何抛出并返回结果的。
Option Explicit
Dim hta
Sub Test()
Debug.Print HostType 'VBA
End Sub
Sub window_onload()
hta = True
End Sub
Function HostType()
On Error Resume Next
If hta Then
HostType = "HTA"
Else
Dim foo
Set foo = foo
If Err.Number = 13 Then
HostType = "VBA"
Else
HostType = "VBS"
End If
End If
End Function
WSCript.Echo HostType
Dim hta
Sub window_onload()
hta = True
End Sub
Function HostType()
On Error Resume Next
If hta Then
HostType = "HTA"
Else
Dim foo
Set foo = foo
If Err.Number = 13 Then
HostType = "VBA"
Else
HostType = "VBS"
End If
End If
End Function
<HTML>
<BODY>
<script type="text/vbscript">
Dim hta
Sub Test()
MsgBox HostType
End Sub
Sub window_onload()
hta = True
End Sub
Function HostType()
On Error Resume Next
If hta Then
HostType = "HTA"
Else
Dim foo
Set foo = foo
If Err.Number = 13 Then
HostType = "VBA"
Else
HostType = "VBS"
End If
End If
End Function
</script>
<button onclick="vbscript:Test()">Click me</button>
</BODY>
</HTML>
Option Explicit，上面引用的单行不需要就是这样:
Function HostString()
HostString = Application & document & WScript
End Function
String 的默认属性。 .在 VBScript 中，这将返回“Windows 脚本宿主”。在 VBA 中，它将返回主机的名称(即 Excel 中的“Microsoft Excel”)。在 HTA 中，它将返回“[object]”。
关于excel - 我的代码如何确定它是作为 VBScript、.HTA 还是 VBA 运行的？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/54679157/
26
4
0
我正在使用下面的脚本来调用另一个脚本。问题是我必须将 WScript.Arguments 检索到的参数传递给我正在调用的第二个脚本。有人可以告诉我该怎么做吗。 Dim objShell Set obj
我正在使用下面的脚本来调用另一个脚本。问题是我必须将我通过 WScript.Arguments 检索的参数传递给我正在调用的第二个脚本。有人可以告诉我该怎么做吗。 Dim objShell Set o
我有一个非常简单的 vbscript 代码: Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Prog
我需要将名称基于日期的文件移动到另一个文件夹。 文件结构为: 来源: \\network_location\folder\Filename_09-11-2012.txt 目的地: C:\Dump\Fi
我有一个关于 VBScript 中变量作用域的问题。我知道有以下关键字(来自 autoitscript.com ): Dim = 局部作用域，如果变量名在全局不存在(在这种情况下它重用全局变量!) G
我正在尝试在 VBScript 中运行以下代码但它没有编译最后一条语句。是不是因为VBScript不允许命名参数？ Filename_Argument = WScript.Arguments(0) S
在VBScript中，我需要确保用户输入一个整数。 这是我现在所拥有的： WScript.Echo "Enter an integer number : " Number = WScript.StdI
使用这些信息，我学会了here和here。 我在下面创建了短代码。 当我运行代码并有意识地输入任务计划程序库的“\”文件夹中存在的任务时，我收到“任务不存在” msgbox。 我尝试在传递给函数的变量
我试图仅用VBScript编写一个小的脚本供家庭使用，该脚本在Macrium Reflect中进行预定备份之前运行。 我被困在一个看似很小的问题上，这是在物理断开网络驱动器(即未连接电缆)时的错误处理
我阅读了 Eric Lippert 关于 VBScript 中默认属性语义的文章:http://blogs.msdn.com/b/ericlippert/archive/2005/08/30/4580
我正在尝试使用 VBScript 过滤二维数组，但 VBScript 的内置“过滤器”函数仅适用于单维数组。我使用的是“rs.GetRows()”数组，那么是否有一个可以处理二维数组的简单函数？ 编辑
尝试在 HP-UFT 中运行时，下面的 VBScript 代码让我感到困惑，因为第一个语句打印 True 而不是 False (这似乎不合逻辑)，而第二个打印 False (这似乎合乎逻辑) 代码:
我刚刚了解到 $ 需要转义字符。 VBScript 中还有哪些特殊字符？ 还有一个 bool 函数可以用来判断一个字符是否是特殊字符？ 最佳答案 嗯？ WScript.Echo "$" 输出 $ 而不
我需要将批处理文件转换为 vbscript，但我对两者都不熟悉。如果我能理解批处理文件中发生的事情，我就可以很容易地计算出 vbscript。问题是批处理文件运行一些 cscript 命令，其语法应该
已结束。此问题正在寻求书籍、工具、软件库等的推荐。它不满足Stack Overflow guidelines 。目前不接受答案。 我们不允许提出寻求书籍、工具、软件库等推荐的问题。您可以编辑问题，以便
长期以来，人们一直在批处理文件中嵌入和执行 VBScript。但是我看到的所有已发布的解决方案(在最初提出这个问题时)都涉及编写临时 VBS 文件。例如:Embed VBScript inside W
如何检查文件夹中是否存在任意名称的文件？我还想忽略子文件夹。 谢谢。 编辑: 我想我已经明白了，但也感谢任何贡献...... If Folder.Files.Count > 0 Then 'Do
我对编程很陌生，我想制作一个程序，从 Vb 脚本的列表中随机选择一个名称或句子。 这是列表: Jacob James Jason Caleb Ashlee John 程序需要从该列表中选择一个随机名称
如何检查文件夹中是否存在任意名称的文件？我还想忽略子文件夹。 谢谢。 编辑: 我想我已经明白了，但也感谢任何贡献...... If Folder.Files.Count > 0 Then 'Do
我需要一个 Vbscript，它可以从我的 PC 打开一个图像文件，并在几分钟后自动关闭。我计划通过命令提示符运行脚本，非常感谢任何帮助。 最佳答案 使用 HTML Application 可能更容易
我是一名优秀的程序员,十分优秀！