• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

luishmafernandes

copiar para folha xls

2 mensagens neste tópico

Bom dia,

Tenho uma conjunto de ficheiros xls e quero copiar o conteudo deles para uma única folha xls.

Todos os ficheiros começam na célula B19 e acabam na AW19.

Agradeço a ajuda

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Experimenta este....

Sub Test()

' Portugal-a-Programar

MsgBox "Clicar OK para aceder ao explorer."



    Dim wbSource As Excel.Workbook
    Dim wsSource As Worksheet
    Dim wsOutput As Worksheet
    Dim strSelectedFile As String
    Dim outputrow As Long
    
    
    Const strOutputSheet As String = "Sheet1"
    
    Set wsOutput = ThisWorkbook.Worksheets(strOutputSheet)
    strSelectedFile = Application.GetOpenFilename()
    
    'Se cancelado a selecção do ficheiro então sair do processo
    
    If strSelectedFile = "False" Then
        Exit Sub
    End If
    
    Set wbSource = Workbooks.Open(strSelectedFile)
    
    outputrow = 1
    For Each wsSource In wbSource.Worksheets
        wsSource.UsedRange.Copy
        With wsOutput
            .Range("A" & outputrow).PasteSpecial xlPasteAll
        End With
        
        outputrow = outputrow + wsSource.UsedRange.Rows.Count
    Next
    
    wbSource.Close False
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora