VBA-如何在OLE对象窗口上设置焦点（IBM DOORS）

我正在用VB编写一个用于excel的脚本，我正在用OLE在DOORS中运行一个DXL脚本。DOORS脚本创建了一个弹出窗口，我希望在创建它时将焦点放在它上面

目前我引用了DOORS对象，但我似乎无法找到如何设置窗口的焦点。这可能是我必须在dxl中做的事情，但我想知道是否有一种方法可以在VB方面做到这一点

到目前为止，我已经：

Public Sub DoThing()
    Const DxlFilepath As String = "C:\FilePath"

    Dim DOORSObj As Object

    'Double check the user wants to do this
    vbCreateList = MsgBox("Current list will be lost. Please confirm to proceed? (Note: Parent folder must be selected in DOORS popup)", vbOKCancel, "Do thing")
    If (vbCreateList = vbCancel) Then
        Exit Sub
    End If

    'Get access to the DOORS application database
    Set DOORSObj = CreateObject("DOORS.Application")
    DOORSObj.result = "OK"
    DOORSObj.runFile (DxlFilepath)

End Sub

---

提前感谢

如果DOORS对象不公开此功能，那么实现此功能的唯一方法可能是使用API函数。看看和，如果DOORS对象没有公开这个功能，那么唯一的方法就是使用API函数。看一看，然后。