Copiar aquivo com data diferentes

[Leo P Costa]

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.

[Visitante]

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.

 

[Leo P Costa]

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.