Quais são os benefícios de definir objetos como "Nada"

Question

Jun 27, 2018, 04:37 PM

Quais são os benefícios de definir objetos como "Nada"

Eu notei que algumas pessoas vão usarSet Object = Nothing nos procedimentos de fechamento. Pude descobrir por que isso é útil para instâncias do Access, mas nenhuma resposta foi satisfatória quando se trata de fazer isso no Excel. Portanto,Qual é exatamente o benefício de definir objetos como Nothing?

Adicionei-o ao meu código como um exemplo para apoiar esta pergunta, mas isso é apenas um desperdício de espaço? Se é uma boa prática, por quê?

Quanto ao código, não há problemascom ousem Set = Nothing. Estou capturando dados de uma exportação do sistema que possui colunas excessivas das quais não precisamos. Para reduzir a quantidade de iterações de copiar / colar, estou capturando todos os intervalos com uma união, com exceção de dois. A ordem das duas últimas colunas precisa ser alterada, motivo pelo qual fui forçado a copiar / colar essas separadamente.

With CurrentBook.ActiveSheet

    Dim LRow2 As Long
    LRow2 = .Range("BG" & .Rows.Count).End(xlUp).Row

    Dim Range1 As Range: Set Range1 = .Range("A2:C" & LRow2)
    Dim Range2 As Range: Set Range2 = .Range("F2:F" & LRow2)
    Dim Range3 As Range: Set Range3 = .Range("H2:H" & LRow2)
    Dim Range4 As Range: Set Range4 = .Range("M2:M" & LRow2)
    Dim Range5 As Range: Set Range5 = .Range("P2:P" & LRow2)
    Dim Range6 As Range: Set Range6 = .Range("S2:S" & LRow2)
    Dim Range7 As Range: Set Range7 = .Range("V2:V" & LRow2)
    Dim Range8 As Range: Set Range8 = .Range("X2:X" & LRow2)
    Dim Range9 As Range: Set Range9 = .Range("AD2:AD" & LRow2)
    Dim Range10 As Range: Set Range10 = .Range("AR2:AX" & LRow2)
    Dim Range11 As Range: Set Range11 = .Range("AY2:AY" & LRow2)
    Dim Range12 As Range: Set Range12 = .Range("AZ2:AZ" & LRow2)

End With

Dim CopyRange As Range: Set CopyRange = Union(Range1, Range2, Range3, Range4, Range5, Range6, Range7, Range8, Range9, Range10)
CopyRange.Copy
ws.Range("A2").PasteSpecial xlPasteValues

    Range12.Copy
    ws.Range("S2").PasteSpecial xlPasteValues

        Range11.Copy
        ws.Range("T2").PasteSpecial xlPasteValues

'''''''''''''''
''''Closing''''
'''''''''''''''

Closing:
CurrentBook.Close False
ws.Range("A1").Select

Application.ScreenUpdating = True
Application.DisplayAlerts = True

Set MyFile = Nothing: Set ws = Nothing: Set CurrentBook = Nothing
Set Range1 = Nothing: Set Range2 = Nothing: Set Range3 = Nothing: Set Range4 = Nothing: Set Range5 = Nothing
Set Range6 = Nothing: Set Range7 = Nothing: Set Range8 = Nothing: Set Range9 = Nothing:
Set Range10 = Nothing: Set Range11 = Nothing: Set Range12 = Nothing
Set CopyRange = Nothing

Exit Sub

leaveComments