Ir ao conteúdo
  • Cadastre-se
Leo P Costa

RESOLVIDO Copiar aquivo com data diferentes

Recommended Posts

Boa noite. Possuo um código que copia uma pasta de trabalho, ela funciona normalmente, porém gostaria de criar com as datas do mês tirando o final de semana. Segue meu código que cria com a data 01 até 31.

Sub CopyFolders()Dim dia As Byte    For dia = 1 To 31FileCopy "F:\Relatorio Diario Barbacena - 2015.xlsm", "F:\ARQUIVOS LOJA\RELATORIOS LOJAS\BARBACENA\2015\JUNHO\Relatorio Diario Barbacena - " & (Format(dia, "0#")) & "-06-2015.xlsm"    Next diaEnd Sub

Neste código ele cria os arquivos Relatorio Diario Barbacena - 01-06-2015 até 31-06-2015, mas preciso eliminar as datas que seriam os finais de semana refente aquele mês.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Neste código ele cria os arquivos Relatorio Diario Barbacena - 01-06-2015 até 31-06-2015,

Provavelmente o seu código vai apresentar erro pois o mês de junho tem 30 dias e não 31 como está no código.

 

mas preciso eliminar as datas que seriam os finais de semana refente aquele mês.

Acrescentei no seu código o comando para não processar as datas correspondentes aos sábados e domingos de jun/15. Veja baixo.

Sub CopyFolders() Dim dia As Byte   For dia = 1 To 31     If Weekday(Format(dia & "-6-2015", "dd-mm-yyyy"), 1) <> 1 And Weekday(Format(dia & "-6-2015", "dd-mm-yyyy")) <> 7 Then      FileCopy "F:\Relatorio Diario Barbacena - 2015.xlsm", "F:\ARQUIVOS LOJA\RELATORIOS LOJAS\BARBACENA\2015\JUNHO\Relatorio Diario Barbacena - " & (Format(dia, "0#")) & "-06-2015.xlsm"     End If    Next diaEnd Sub

obs. em lugar de colocar mês e ano no código e precisar alterar a cada mudança, sugiro que você coloque mês e ano em uma célula e coloque no código um comando para buscar a informação naquela célula, assim você não será obrigado a mexer no código.

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Sub CopyFolders() Dim dia As Byte   For dia = 1 To 31     If Weekday(Format(dia & "-6-2015", "dd-mm-yyyy"), 1) <> 1 And Weekday(Format(dia & "-6-2015", "dd-mm-yyyy")) <> 7 Then      FileCopy "F:\Relatorio Diario Barbacena - 2015.xlsm", "F:\ARQUIVOS LOJA\RELATORIOS LOJAS\BARBACENA\2015\JUNHO\Relatorio Diario Barbacena - " & (Format(dia, "0#")) & "-06-2015.xlsm"     End If    Next diaEnd Sub

obs. em lugar de colocar mês e ano no código e precisar alterar a cada mudança, sugiro que você coloque mês e ano em uma célula e coloque no código um comando para buscar a informação naquela célula, assim você não será obrigado a mexer no código.

 

 

 

Desculpa pela demora da resposta. Muito obrigado pela sua ajuda, atendeu perfeitamente o que precisava, em questão do mês e o ano que você deu a dica, eu já havia pensado e arrumado o meu código.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×