none
Erro VBA RRS feed

  • Pergunta

  • Olá tenho uma duvida,

    Sempre que eu chego na linha do código, (Set WNew = ActiveWorkbook)

    acusa o seguinte erro, (erro em tempo de execução "424" o objeto é obrigatório)

    segue linhas de comandos abaixo,

    Private Sub btExecuta_Click()


    Application.ScreenUpdating = False


    'Definição das variáveis

    '--------------------------------------------------------------------------

    Dim W            As Worksheet

    Dim WNew         As Workbook

    Dim ArqParaAbrir As Variant

    Dim A            As Integer

    Dim NomeArquivo  As String

    'Coleta de dados para tratamento

    '--------------------------------------------------------------------------

    ArqParaAbrir = Application.GetOpenFilename("Aquivo do Excel (*.xlsx), *.xl*", _

                    Title:="Escolha o arquivo a ser importado", _

                    MultiSelect:=True)

                    

    If Not IsArray(ArqParaAbrir) Then

        

        If ArqParaAbrir = "" Or ArqParaAbrir = False Then

        

            MsgBox "Processo abortado, nenhum arquivo selecionado", vbOKOnly, "Processo abortado"

            Exit Sub

            

        End If

        

    End If


    'Inicio da Importação de dados

    '--------------------------------------------------------------------------


    Set W = Sheets("Planilha1")


    W.UsedRange.EntireColumn.Delete

    W.Select


    'Loop para importação dos dados

    '--------------------------------------------------------------------------


    For A = LBound(ArqParaAbrir) To UBound(ArqParaAbrir)


        NomeArquivo = ArqParaAbrir(A)

        

        Apllication.Workbooks.Open (NomeArquivo)

        Set WNew = ActiveWorkbook

        

        ActiveSheet.Range("a1").CurrentRegion.Select

        Section.Copy Destination:=W.Cells(W.Rows.Count, 1).End(xlUp).Offset(1, 0)

        

        Application.DisplayAlerts = False

        

            ActiveWorkbook.Close savechanges:=False

            

        Application.DisplayAlerts = True

        

        W.Cells(W.Rows.Count, 1).End(xlUp).Offset(1, 0).Select

        

    Next A



    Application.ScreenUpdating = True


    MsgBox "Processo concluído com sucesso..."


    End Sub

    Como posso solucionar esse erro?

    quinta-feira, 31 de outubro de 2019 22:29