10

我在与 VBA/Excel 宏和 HTA 一起使用的 VBScript 中遇到问题。问题只是 VBScript，我还有其他两个组件，即 VBA 宏和 HTA 前端工作正常。但在我解释问题之前，我想为你帮助我我必须帮助你理解VBScript的上下文。

因此，基本上所有组件（VBScript、VBA 宏和 HTA）都是我正在构建的工具的一部分，用于自动化一些手动杂务。它几乎是这样的：

A-HTA

~~~~~~~~~~~~

  1. 用户从 HTA/GUI 中选择一些文件。
  2. 在 HTA 的 HTML 中，“SCRIPT”标签中有一些 VBScript，它将用户 4 个输入文件作为参数传递给 VBScript（由 WScript.exe 执行 - 您可以在此处参考注释 #1）
  3. 该脚本，我们从现在开始将其称为 myScript.vbs然后处理 4 个参数，其中 3 个是特定文件，第 4 个是其中包含多个文件的路径/文件夹位置 - （为清楚起见，另请参见注释 #2）

B - myScript.vbs

~~~~~~~~~~~~

  1. myScript.vbs 打开前 3 个参数，它们是 Excel 文件。其中之一是具有我的 VBA 宏的 *.xlsm 文件。

  2. myScript.vbs 然后使用第 4 个参数，它是包含多个文件的文件夹的 PATH，并将其分配给一个变量，以便在调用 GetFolder 时传递给 FileSystemObject 对象，即

    ... 'Other code here, irrelevant for this post
Dim FSO, FLD, strFolder
... 'Other code here, irrelevant for this post
arg4 = args.Item(3)
strFolder = arg4
Set FSO = CreateObject("Scripting.FileSystemObject"
'Get a reference to the folder you want to search
Set FLD = FSO.GetFolder(strFolder)
...

  3. 从这里我创建一个循环，以便我可以顺序打开文件夹中的文件，然后运行我的宏，即

    ...
Dim strWB4, strMyMacro
strMyMacro = "Sheet1.my_macro_name"

'loop through the folder and get the file names
For Each Fil In FLD.Files

    Set x4WB = x1.Workbooks.Open(Fil)
x4WB.Application.Visible = True

x1.Run strMyMacro

x4WB.close
Next 
...

请注意，当前 3 个 Excel 文件打开时（由循环之前的代码控制，这里没有显示，因为我对那部分没有问题）我必须保持它们打开。

文件夹中的文件（作为第四个参数传递）必须按顺序打开和关闭。但是在打开和关闭之间，我需要每次循环迭代并从文件夹中打开一个新文件时运行 VBA/宏（写在之前打开的 3 个 Excel 文件之一中）（我希望你能跟随 - 如果没有请让我知道 ：） ）。

我遇到的问题是文件夹中的文件打开和关闭，打开和关闭，n 次（n = 文件夹中的文件数，自然）而不等待宏运行。这不是我想要的。我在“x1.Run strMyMacro”语句之后尝试了 WScript.sleep 语句，延迟了 10 秒，但无济于事。

有任何想法吗？

谢谢，QF。

笔记：

1 - 为了简单/清晰，这是如何：

    strCMD = cmd /c C:\windows\system32\wscript.exe myScript.vbs <arg1> <arg2> <arg3> <arg4>
    'FYI - This is run by creating a WShell object, wsObj, and using the .run method, i.e. WShell.run(strCMD)

2 HTA 使用一段 JavaScript 来剥离用户的第 4 个输入文件（HTML：INPUT TYPE="file"）并将其传递给 HTA 中的 VBScript。这让我解决了无法在 HTML 中专门选择文件夹的问题。

4

4 回答 4

20

您需要告诉运行等待该过程完成。就像是：

const DontWaitUntilFinished = false, ShowWindow = 1, DontShowWindow = 0, WaitUntilFinished = true
set oShell = WScript.CreateObject("WScript.Shell")
command = "cmd /c C:\windows\system32\wscript.exe <path>\myScript.vbs " & args
oShell.Run command, DontShowWindow, WaitUntilFinished

在脚本本身中，像这样启动 Excel。调试开始时可见：

File = "c:\test\myfile.xls"
oShell.run """C:\Program Files\Microsoft Office\Office14\EXCEL.EXE"" " & File, 1, true
于 2012-04-23T11:39:46.690 回答
5 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
objWMIService.Create "notepad.exe", null, null, intProcessID
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService.ExecNotificationQuery _
    ("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA 'Win32_Process'")
Do Until i = 1
    Set objLatestProcess = colMonitoredProcesses.NextEvent
    If objLatestProcess.TargetInstance.ProcessID = intProcessID Then
        i = 1
    End If
Loop
Wscript.Echo "Notepad has been terminated."
于 2014-10-27T13:23:53.040 回答
1

大概是这样的吧？（未经测试）

Sub Sample()
    Dim strWB4, strMyMacro
    strMyMacro = "Sheet1.my_macro_name"

    '
    '~~> Rest of Code
    '

    'loop through the folder and get the file names
    For Each Fil In FLD.Files
        Set x4WB = x1.Workbooks.Open(Fil)
        x4WB.Application.Visible = True

        x1.Run strMyMacro

        x4WB.Close

        Do Until IsWorkBookOpen(Fil) = False
            DoEvents
        Loop
    Next

    '
    '~~> Rest of Code
    '
End Sub

'~~> Function to check if the file is open
Function IsWorkBookOpen(FileName As String)
    Dim ff As Long, ErrNo As Long

    On Error Resume Next
    ff = FreeFile()
    Open FileName For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0

    Select Case ErrNo
    Case 0:    IsWorkBookOpen = False
    Case 70:   IsWorkBookOpen = True
    Case Else: Error ErrNo
    End Select
End Function
于 2012-04-23T11:29:29.813 回答
0

这可能无法具体回答您的长 3 部分问题，但这个线程很旧，我在今天搜索时发现了这个。这是一种更短的方法：“等到一个过程完成。” 如果您知道进程的名称，例如“EXCEL.EXE”

strProcess = "EXCEL.EXE"    
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = '"& strProcess &"'")
Do While colProcesses.Count > 0
    Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = '"& strProcess &"'")
    Wscript.Sleep(1000) 'Sleep 1 second
   'msgbox colProcesses.count 'optional to show the loop works
Loop

归功于：http ://crimsonshift.com/scripting-check-if-process-or-program-is-running-and-start-it/

于 2018-01-17T19:22:01.330 回答