Vba exportar excel para outro excel  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Vba exportar excel para outro excel

Mensagempor JNEXCEL » Qui Jan 18, 2018 6:59 am

Bom dia!

Por favor, alguém conhece algum código vba para exportar uma planilha para outra planilha em outra pasta diferente da original?

Exemplo: eu tenho uma planilha que será chamada CONTROLE DE ANIMAIS, e nela eu vou ter um botão "clique aqui para exportar para outra planilha", quando o usuário clicar nesse botão a planilha será exportada.

Anexo, seguem os arquivos contendo mais detalhes.


muito obrigado a todos pela atenção.
Você não está autorizado a ver ou baixar esse anexo.
JNEXCEL
Membro
Membro
 
Mensagens: 273
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 204 times
Have thanks: 4 times

{ SO_SELECT }

Re: Vba exportar excel para outro excel

Mensagempor Romanha » Qui Jan 18, 2018 9:02 am

Bom dia!

Jnexcel,

Utilizei este codigo na planilha aqui no meu trabalho e funciona perfeitamente.
Código: Selecionar todos
Sub importar()

'Fonte:https://www.rondebruin.nl/win/section3.htm
    Dim SourceRange As Range
    Dim DestRange As Range
    Dim DestWB As Workbook
    Dim DestSh As Worksheet
    Dim Lr As Long
       
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    'Altere o nome do arquivo (2 *) e o nome do caminho / arquivo para o seu arquivo
    If bIsBookOpen_RB("nome do caminho") Then
        Set DestWB = Workbooks("nome do caminho")
    Else                           ' Aqui o caminho deve ser igual ao camilho onde esta sua planilha de importação.
        Set DestWB = Workbooks.Open("C:\Users.....")
    End If
    'se deseja copiar mais de 400 linhas altere o campo range (A2:BV400)
    Set SourceRange = ThisWorkbook.Sheets("File List").Range("A2:BV400")
    ' aqui e o nome da planilha onde os arquivos serão importados
    Set DestSh = DestWB.Worksheets("File List")

    Lr = LastRow(DestSh)
    Set DestRange = DestSh.Range("A" & Lr + 1)
    'Fazemos DestRange o mesmo tamanho do SourceRange e usamos o Valor
    'propriedade para dar DestRange os mesmos valores
    With SourceRange
        Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
    End With
    DestRange.Value = SourceRange.Value

    DestWB.Close savechanges:=True

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub
  Function LastRow(sh As Worksheet)
    On Error Resume Next
    LastRow = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            LookAt:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function

Function LastCol(sh As Worksheet)
    On Error Resume Next
    LastCol = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            LookAt:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Column
    On Error GoTo 0
End Function

Function bIsBookOpen_RB(ByRef szBookName As String) As Boolean
' Rob Bovey
    On Error Resume Next
    bIsBookOpen_RB = Not (Application.Workbooks(szBookName) Is Nothing)
End Function
Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.

" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"

Atenciosamente.

Jason Romanha

For this post the author Romanha thanked:
JNEXCEL (Sex Jan 19, 2018 6:57 am)
Romanha
Membro
Membro
 
Mensagens: 105
Registrado em: Qui Nov 10, 2016 7:16 am
Localização: Vila Velha ES
Has thanked: 18 times
Have thanks: 17 times

Re: Vba exportar excel para outro excel

Mensagempor JNEXCEL » Qui Jan 18, 2018 1:19 pm

não consegui :( :(

por favor, você poderia me ajudar?

muito obrigado.
Você não está autorizado a ver ou baixar esse anexo.
JNEXCEL
Membro
Membro
 
Mensagens: 273
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 204 times
Have thanks: 4 times

Re: Vba exportar excel para outro excel  [Resolvido]

Mensagempor avgsantos » Qui Jan 18, 2018 7:11 pm

Boa noite, Jnexcel

Segue um exemplo do meu trabalho.

avgsantos
Você não está autorizado a ver ou baixar esse anexo.

For this post the author avgsantos thanked:
JNEXCEL (Sex Jan 19, 2018 6:55 am)
avgsantos
Membro
Membro
 
Mensagens: 27
Registrado em: Dom Jul 03, 2016 8:31 pm
Has thanked: 3 times
Have thanks: 7 times

Re: Vba exportar excel para outro excel

Mensagempor klarc28 » Qui Jan 18, 2018 8:16 pm

Quando se referir ao arquivo, diga "pasta de trabalho".
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
JNEXCEL (Sex Jan 19, 2018 6:57 am)
klarc28
Membro
Membro
 
Mensagens: 968
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 404 times

Re: Vba exportar excel para outro excel

Mensagempor JNEXCEL » Sex Jan 19, 2018 7:20 am

Bom dia!

Muito obrigado a todos pela atenção e colaboração nessa dúvida.

avgsantos, código.

MAGNÍFICO

Muito obrigado!
JNEXCEL
Membro
Membro
 
Mensagens: 273
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 204 times
Have thanks: 4 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante