Ir para conteúdo

Luiz Antonio Gar

  • Postagens

    2
  • Desde

  • Última visita

  1. Luiz Antonio Gar

    Abrir e Copiar dados

    alguém pode me ajudar!
  2. Luiz Antonio Gar

    Abrir e Copiar dados

    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
×