Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Importar dados
 
Notifications
Clear all

Importar dados

 
2024 - VBA & Macros
Post Recente por 871518T 7 anos atrás
10 Posts
4 Usuários
0 Reactions
1,713 Visualizações
RSS
 871518T
(@871518t)
Posts: 5
Active Member
Topic starter
 

Boa tarde gente,
Eu preciso de um macro ou função que importe dados de 2 planilhas iguais em outras maquinas através da rede para uma Terceira planilha na minha maquina,
sou bem leigo em VBA tentei aqui algumas coisas mas sempre da erro, eu precisava disso pro fechamento da empresa, será que alguem pode me ajudar ??

Sub ImportarDados()
Dim wsOrigem    As Worksheet
Dim wsDestino   As Worksheet

    If MsgBox("Confirma Importação de Dados?", vbYesNo + vbQuestion) = vbNo Then GoTo Abortar

    Workbooks.Open Filename:="C:BibliotecaJuniorDownloadsPlanilhas IgProspeccaoSaz.xls"
    
    With Workbooks("ProspeccaoSaz.xls")
        Set wsOrigem = .Worksheets("Plan 1")
        Set wsDestino = ThisWorkbook.Worksheets("Plan 1")
        
        wsOrigem.Range(Cells(2, 1), Cells(wsOrigem.Cells(Rows.Count, 2).End(xlUp).Row, 2)).Copy
        wsDestino.Cells(2, 1).PasteSpecial xlValues
        
        Application.CutCopyMode = False
        
        .Close SaveChanges:=True
    End With
    
    Set wsOrigem = Nothing
    Set wsDestino = Nothing
    
    MsgBox "Importação de Dados Concluída"
    Exit Sub
    
Abortar:
    MsgBox "Importação abortada"

End Sub
 
Postado : 13/03/2018 7:38 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
 With Workbooks("ProspeccaoSaz.xls")
        Set wsOrigem = .Worksheets("Plan 1")
        Set wsDestino = ThisWorkbook.Worksheets("Plan 1")
        wsorigem.select
        wsOrigem.Range(Cells(2, 1), Cells(wsOrigem.Cells(Rows.Count, 2).End(xlUp).Row, 2)).Copy
wsdestino.select
        wsDestino.Cells(2, 1).PasteSpecial xlValues
        
        Application.CutCopyMode = False
        
        .Close SaveChanges:=True
    End With
 
Postado : 13/03/2018 7:59 am
 871518T
(@871518t)
Posts: 5
Active Member
Topic starter
 

Deu o mesmo erro que tava dando, 1004 Erro de definição do objeto.. mas as definições estao conferindo..

 
Postado : 15/03/2018 7:57 am
 LustosaG
(@lustosag)
Posts: 39
Eminent Member
 

Olá, em qual linha apresenta esse erro ?

 
Postado : 15/03/2018 8:47 am
 871518T
(@871518t)
Posts: 5
Active Member
Topic starter
 

Na linha 

Workbooks.Open Filename:="C:BibliotecaImagensProspeccaoSaz.xls"
 
Postado : 15/03/2018 10:51 am
 srobles
(@srobles)
Posts: 231
Estimable Member
 

871518T,

Repare que está faltando a barra inversa "" em C:Biblioteca.

Experimente adicioná-la e execute novamente.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 15/03/2018 11:33 am
 871518T
(@871518t)
Posts: 5
Active Member
Topic starter
 

Erro persiste :/

 
Postado : 15/03/2018 12:32 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Workbooks.Open Filename:="C:BibliotecaImagensProspeccaoSaz.xls"
 
Postado : 15/03/2018 12:59 pm
 srobles
(@srobles)
Posts: 231
Estimable Member
 

871518T,

Bem, já que o erro persiste, creio que seja por erro no caminho informado :

Workbooks.Open Filename:="C:BibliotecaImagensProspeccaoSaz.xls"

E que antes, o caminho era :

Workbooks.Open Filename:="C:BibliotecaJuniorDownloadsPlanilhas IgProspeccaoSaz.xls"

Veja se não é isso que está causando o erro.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 15/03/2018 2:14 pm
 871518T
(@871518t)
Posts: 5
Active Member
Topic starter
 

Eu apenas mudei o arquivo de pasta, e mudei a definição dele no codigo tbm justamente pra nao dar erro.. estou ficando maluco ja de tanto olhar isso e nao conseguir resolver

 
Postado : 16/03/2018 7:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico