小编Ped*_*par的帖子

任何人都可以找到任何错误？出于某种原因,当我添加last2时,它给出了na对象定义的错误.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim src As Workbook
' Abrir EXCEL
Set src = Workbooks.Open  
("U:\Mecânica\Produção\Manutenção_teste\TOA\manTOA.xlsm", True, False)
WS_Count = src.Worksheets.Count
For o = 1 To WS_Count
 src.Worksheets(o).Unprotect password:="projmanutencao"
Next o

last = src.Worksheets("Manutencao").Range("A65536").End(xlUp).Row
folha = manutencaoexp.Label27.Caption
last2 = src.Worksheets("saidas").Range("A65536").End(x1Up).Row
    ' Escrever Registos
If manutencaoexp.ComboBox4 = "" Then
MsgBox "Introduzir todos os dados"
GoTo fim
Else
   src.Worksheets("Manutencao").Cells(last + 1, 1) = Now()                                  'data
   src.Worksheets("Manutencao").Cells(last + 1, 2) = manutencaoexp.Label28.Caption          'nº equipamento
   src.Worksheets("Manutencao").Cells(last + 1, 3) = manutencaoexp.ComboBox5 …