0

我知道我本可以在 Google 上搜索，但我对此已经生疏了，以至于我不确定我应该搜索哪些术语。在这里听到您的建议会有所帮助。

例子：

Sub Macro1()
'
' Macro1 Macro
'

'
    Windows("FL_bounces.csv").Activate
    Windows("auto_dealers_FL.csv").Activate
    Windows("FL_bounces.csv").Activate
    Windows("auto_dealers_FL.csv").Activate
End Sub

除非我不知道打开的窗口的名称。

编辑#2：

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim wn, contacts, report As Excel.Window
    Dim windows(1 To 100) As Excel.Window
    Dim i As Integer

    i = 1
    For Each wn In Application.windows
        windows(i) = wn
        i = i + 1
    Next wn

    If IsEmailValid(windows(1).Cells(1, 1)) = True Then
        report = windows(1)
        contacts = windows(2)
    Else
        contacts = windows(1)
        report = windows(2)
    End If


End Sub

你觉得这个修改有什么问题？

4

3 回答 3

2

这将列出立即窗格中所有当前打开的窗口：

Sub ListWindows()
Dim wn As Excel.Window
For Each wn In Application.Windows
    Debug.Print wn.Caption
Next wn
End Sub

或者，如果您想激活它们，如您的示例代码中所示

Sub ActivateWindows()
Dim wn As Excel.Window
For Each wn In Application.Windows
    wn.Activate
    MsgBox wn.Caption & " Window Activated"
Next wn
End Sub
于 2013-03-15T04:54:02.833 回答
1

试试 AutoIT。您需要参考 AutoIT dll。这是您可以下载 autoit dll http://www.autoitscript.com/site/autoit/的链接

AutoIt 中的变体数据类型本身支持窗口句柄 (HWND)。窗口句柄是窗口每次创建时分配给窗口的特殊值。当您有句柄时，您可以在任何使用标题/文本约定的函数调用中使用它来代替标题参数。使用窗口句柄的好处是，如果您打开了应用程序的多个副本 - 它们具有相同的标题/文本 - 您可以在使用句柄时唯一地识别它们。当您为标题参数使用窗口句柄时，文本参数将被完全忽略。

WinGetHandle、WinList 和 GUICreate 等各种函数都会返回这些句柄。重要的是要注意窗口句柄不属于数字或字符串——它是它自己的特殊类型。

Public Sub TestingAutoIT()
    Dim autoItObj As AutoItX3
    Set autoItObj = New AutoItX3

    With autoItObj    
        .WinActivate ("A Window Name")        
    End With

    Set autoItObj = Nothing
End Sub
于 2013-03-15T05:58:33.063 回答
0

今天我找到了VBA Express 发布的解决方案。它将列出活动表上所有打开的窗口。

请注意，“窗口”不一定是用户通常所想的……有些窗口是许多窗口的集合，就像 Windows 看到的那样。

于 2018-08-27T14:37:13.077 回答