用戶窗體運行時錯誤'424'：需要的對象Excel VBA

Question

我有一個用戶窗體並點擊它應該訪問或打開一個用戶窗體的按鈕。但每次代碼獲取該部分，

運行時錯誤 '424'： 所需的對象

彈出。這裏是我的代碼：

If CheckSheet(TextBoxValue) = True Then 
     Sheets(TextBoxValue).Select 
     UserForm.Show 
    Else 
     Set Worksheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)) 
     Worksheet.Name = TextBoxValue 

     Dim label As Control 
     For Each label In UserForm.Controls 
      If TypeName(label) = "Label" Then 
       With ActiveSheet 
        i = i + 1 

        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
        .Cells(lastRow, i).Value = label.Caption 
       End With 
      End If 
     Next 

     UserForm.Show 
    End If 

每次它獲取到部分與UserForm.Show和For Each label In UserForm.Controls

我檢查形式的拼寫已經多次，這是大同小異。

Answer 1

你可能有這樣的事情在腦海： -

Sub TestCode() 

    Dim Ws As Worksheet     ' "Worksheet" is a reserved word 
    Dim MyForm As UserForm1    ' "UserForm" is a reserved word 
    Dim MyLabel As Control    ' "Label" is a reserved word 
    Dim C As Long      ' better name for a column than "i" 

    Set MyForm = New UserForm1 
    If GetSheet(Ws) Then 
     For Each MyLabel In MyForm.Controls 
      If TypeName(MyLabel) = "Label" Then 
       With Ws     ' true, Ws is the ActiveSheet but 
             ' always use the same name for the same sheet 
        C = C + 1 

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
        .Cells(LastRow, C).Value = MyLabel.Caption 
       End With 
      End If 
     Next 
    End If 
    MyForm.Show 
End Sub 

Private Function GetSheet(Ws As Worksheet) As Boolean 
    ' return True if Ws didn't exist 

    Dim Ws As Worksheet 

    On Error Resume Next 
    Set Ws = Worksheets(TextBoxValue) 
    If Err Then      ' Err = doesn't exist 
     Set Ws = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)) 
     Ws.Name = TextBoxValue 
     GetSheet = True 
    End If 
End Function 

Private Function TextBoxValue() As String 
    TextBoxValue = "MySheetName" 
End Function 

爲了測試一個詞是「保留」的話，在你的VB編輯器，然後按F1選擇它。如果MS Office使用它，不要爭論。