问我的Excel VBA代码中的方法或数据成员问题

EN

Option Explicit
Sub TrainingHoursMacro()

Dim wbTHMacro As Workbook, wsRegulares As Worksheet, wsRegularesDemitidos As Worksheet, wsTempActivos As Worksheet, wsTempJA As Worksheet, wsTempFit As Worksheet, _
wsTempDemitidos As Worksheet, wsPS As Worksheet, wsResultados As Worksheet, wsDLList As Worksheet, wssheet As Worksheet
Dim wbRegularesBruto As Workbook, wsMovimentacao As Worksheet, wsDemitidos As Worksheet
Dim wbTemporariosBruto As Workbook, wsTemporariosAtivos As Worksheet, wsJAAtivos As Worksheet, wsAprendizesFit As Worksheet
Dim wbPresenceSystem As Workbook, wsTPCC As Worksheet
Dim wbFlexUTrainingHours As Workbook, wsHours As Worksheet, wsFlexU As Worksheet
Dim rcell As Range

Set wbTHMacro = Workbooks("Training Hours Macro.xlsm")
Set wsRegulares = wbTHMacro.Sheets("Regulares")
wsRegulares.Cells.ClearContents

Set wbRegularesBruto = Workbooks.Open(Filename:="H:\BX-HR\BX-INDUSTRIAL RELATIONS\HR REPRESENTATIVES\PRIVATE\HRSSC\Brazil\Training Hours Macro\Regulares Bruto.xls")
If Not wbRegularesBruto Is Nothing Then

Set wssheet = wbRegularesBruto.Sheets("Movimentacao")
    wssheet.Cells.Copy wsRegulares.Range("A1")
        Set wssheet = wbRegularesBruto.Sheets("Demitidos")
Set wsRegularesDemitidos = wbTHMacro.Sheets("Regulares Demitidos")
    wssheet.Cells.Copy wsRegularesDemitidos.Range("A1")
        wbRegularesBruto.Close False
Else
    Exit Sub
            End If

Set wbTemporariosBruto = Workbooks.Open(Filename:="H:\BX-HR\BX-INDUSTRIAL RELATIONS\HR REPRESENTATIVES\PRIVATE\HRSSC\Brazil\Training Hours Macro\Temporarios Bruto.xlsx")
If Not wbTemporariosBruto Is Nothing Then

Set wssheet = wbTemporariosBruto.Sheets("Temporarios Ativos")
    Set wsTempActivos = wbTHMacro.Sheets("Temp Activos")
    wssheet.Cells.Copy wsTempActivos.Range("A1")
Set wssheet = wbTemporariosBruto.Sheets("JA Ativos")
    Set wsTempJA = wbTHMacro.Sheets("Temp JA")
    wssheet.Cells.Copy wsTempJA.Range("A1")
Set wssheet = wbTemporariosBruto.Sheets("Aprendizes FIT")
    Set wsTempFit = wbTHMacro.Sheets("Temp Fit")
    wssheet.Cells.Copy wsTempFit.Range("A1")
Set wssheet = wbTemporariosBruto.Sheets("Demitidos")
    Set wsTempDemitidos = wbTHMacro.Sheets("Temp Demitidos")
    wssheet.Cells.Copy wsTempDemitidos.Range("A1")
        wbTemporariosBruto.Close False
Else
    Exit Sub
            End If

Set wbPresenceSystem = Workbooks.Open(Filename:="H:\BX-HR\BX-INDUSTRIAL RELATIONS\HR REPRESENTATIVES\PRIVATE\HRSSC\Brazil\Training Hours Macro\Presence System Bruto.xls")
If Not wbPresenceSystem Is Nothing Then

Set wsPS = wbTHMacro.Sheets("PS")

    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "CC"
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "MO"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "38697263859 "

       For Each rcell In Range("A2:A" & Range("A" & Rows.Count).End(3)(1).Row)
    rcell.Value = Left(rcell, Len(rcell) - 1)
    'rcell.Value = Trim(rcell)
Next rcell

    Cells.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.RowHeight = 15
    Range("A1").Select
    Selection.AutoFilter

For Each wssheet In ActiveWorkbook.Worksheets
    If Left(wssheet.Name, 27) = "TreimentosPorCentroDeCustro" Then
    wssheet.Activate
    End If
    ActiveSheet.Name = "TPCC"
    Exit For
Next wssheet

Set wssheet = wbPresenceSystem.Sheets("TPCC")
    Set wsPS = wbTHMacro.Sheets("PS")
    wssheet.Cells.Copy wsPS.Range("A1")
    wbPresenceSystem.Close False
Else
    Exit Sub
            End If

Set wbFlexUTrainingHours = Workbooks.Open(Filename:="H:\BX-HR\BX-INDUSTRIAL RELATIONS\HR REPRESENTATIVES\PRIVATE\HRSSC\Brazil\Training Hours Macro\Flex U Training Hours.xls")
If Not wbFlexUTrainingHours Is Nothing Then

For Each wssheet In ActiveWorkbook.Worksheets
    If Left(wssheet.Name, 29) = "Training_Hours_12_37_24_PM 1 " Then
    wssheet.Activate
    End If
    ActiveSheet.Name = "Hours"
    Exit For
Next wssheet

Set wssheet = wbFlexUTrainingHours.Sheets("Hours")
    Set wsFlexU = wbTHMacro.Sheets("Flex U")
    wssheet.Cells.Copy wsFlexU.Range("A1")
        wbFlexUTrainingHours.Close False
Else
    Exit Sub
            End If

End Sub