VBScript Create and Show UserForm

我已经编写了一些Excel VBA，现在我正在测试VBScript。我正在尝试创建一个表单/窗口，一段时间后我设法创建了以下代码：

Dim ExApp
ExApp = CreateObject("Excel.Application")
'ExApp.Application.Visible = True
Dim Workbook
Set Workbook = ExApp.Workbooks.Add
Dim myForm
Set myForm = Workbook.VBProject.VBComponents.Add(3)
Workbook.VBProject.VBComponents.Add(1).CodeModule.AddFromString "Function getForm()" & vbNewLine & "Set getForm = " & myForm.Name & vbNewLine & "End Function"
Dim userForm
Set userForm = ExApp.Run("getForm")
'VBA.UserForms.Add(myForm.Name).Show

它

目前有效，但创建 sub 并调用/运行它的方法似乎不是最好的。

如果我能调用VBA.UserForms/UserForms那么使用行VBA.UserForms.Add(myForm.Name).Show(在 VBA 中工作(会更好，但我无法弄清楚如何，因为VBA不是 VBS 中的对象或类似的东西。

我真的找不到太多关于这方面的信息。

由于您正在创建 Excel 应用程序对象，我假设您打算使用 Excel 外部的 .vbs 文件创建表单。VBScript 限制了您可以使用的 GUI 数量，除非您深入了解 COM 对象 - 上面的注释中 omegastripes 链接到的一个例子就是其中之一。但是omegastripes确实首先提到了"HTA"，我发现这是一个非常简单的替代方案(如果你已经熟悉HTML(。这是取自 https://technet.microsoft.com/en-us/library/ee692768.aspx

<head>
     <title>Operating System Version</title>
     <HTA:APPLICATION 
          APPLICATIONNAME="Operating System Version"
          SCROLL="yes"
          SINGLEINSTANCE="yes"
     >
</head>
<script language="VBScript">
    Sub GetOSVersion
       strComputer = "."
           Set objWMIService = GetObject("winmgmts:\" & strComputer &  "rootcimv2")
           Set colOperatingSystems = objWMIService.ExecQuery _
               ("Select * from Win32_OperatingSystem")
           For Each objOperatingSystem in colOperatingSystems
               Msgbox objOperatingSystem.Caption & " " & _
                   objOperatingSystem.Version
           Next
    End Sub
</script>
<body>
<input type="button" value="Operating System" name="run_button"  onClick="GetOSVersion">
</body>

将该代码另存为"test.hta"，然后在文件资源管理器中双击它。

相关内容

最新更新

热门标签：