Este fórum ficará ativo até 15/Jun/2019. LEIA AQUI.

Ir para conteúdo
  • Cadastre-se
Luiz Antonio Gar

Abrir e Copiar dados

Mensagem Recomendada

Boa noite,

 

Sou novo na área de VBA, estou com pequeno problema.
Tenho um planilha (Vendas) que manipulo varias informações,  no sistema gera um base na qual utilizo para alimentar minha planilha principal. Mas este sistema gera um arquivo em extensão .EXCEL  e com algumas variáveis. 

1 - Gera com nome variáveis

2- Gera arquivo em 30 em 30 min.

Resumindo preciso de um código que identifique o ultimo arquivo salvo pelo sistema, e consiga abrir um arquivo que não é padrão para o Excel.
No meu código  eu consigo identifica o ultimo arquivo salvo, mas qdo vai abrir da erro.

Segue meu código e o arquivo gerado.

Sub AbreMaisRecente2()

    Const Diret As String = "C:\Users\luiz.silva\Desktop\Cadastro\Janeiro"
    Set arqSys = New FileSystemObject
    Set minhaPasta = arqSys.GetFolder(Diret)
    dataArq = DateSerial(1900, 1, 1)
    For Each objArq In minhaPasta.Files
        If objArq.DateLastModified > dataArq Then
            dataArq = objArq.DateLastModified
            nomeArq = objArq.Name
            'nomeAba = ActiveSheet.FullName
        End If
     Next objArq
   
    'Abrir a ultima planilha salva.
     Workbooks.Open nomeArq

     
    'Especifica o nome e a aba do arquivo de origem, que deseja copiar os dados.
    Set wsOrigem = Workbooks(nomeArq).ThisWorkbook.Sheets("Relatorio1")

    'Especifica a aba no arquivo de destino, que deseja colar os dados.
    Set wsDestino = ThisWorkbook.Sheets("vr")
    Set arqSys = Nothing
    Set minhaPasta = Nothing
     
    'Realiza o procedimento de copiar e colar os dados, no intervalo que desejar.
    'Neste caso está sendo copiado todos os dados da planilha, exceto a primeira linha.
    With wsOrigem
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A2:AC20000").Select
    Selection.Copy
    Windows(nomeArq).Activate
    Range("A2").Select
    Range("A2:E1000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    End With
    
    'Especifica o nome da planilha de origem e fecha.
    Workbooks().Close
    ActiveWorkbook.Save
End Sub
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...