將窗口句柄傳遞給變量

Question

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 

你在這裏看到什麼錯誤？根據我對VBA的瞭解，我正在盡我所能。預先感謝您的反饋。

Answer 1

• 你沒有帶正確聲明的變量（wn和contacts與被variant S）。
  使用Dim wn As Excel.Window, contacts As Excel.Window, report As Excel.Window
• 你需要使用Set分配的object
Set windows(i) = wn
• 的window對象不具有Cells財產
  目前尚不清楚你實際上是想達到什麼樣的，但作爲一個猜測你可能希望Worksheets集合（workbook），或者可能Application.Workbooks而不是Application.Windows