pablomoreiragv Postado Agosto 11, 2010 Denunciar Share Postado Agosto 11, 2010 Alguém sabe me dizer porque que o arquivo não está caindo dentro da pasta criada? O que está faltando? Segue código abaixo.Sub Backup() Dim MyFilePath$ MyFilePath$ = "\BACKUP - RD" Dim MeuDir MeuDir = Me.TextBox1 With Application .ScreenUpdating = False .DisplayAlerts = False On Error Resume Next '<< Se a folder existe MkDir MyFilePath '<< se não cria uma nova ThisWorkbook.SaveCopyAs FileName:=MyFilePath & MeuDir & "REMESSA DE DOCUMENTOS - Backup " & _ Day(DateSerial(Year(Date), Month(Date), Day(Date))) & " de " & _ MonthName(Month(DateSerial(Year(Date), Month(Date), Day(Date)))) & " de " & _ Year(DateSerial(Year(Date), Month(Date), Day(Date))) & ".xls" MsgBox "Pronto" End With End Sub Pablo Moreira Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
pablomoreiragv
Alguém sabe me dizer porque que o arquivo não está caindo dentro da pasta criada? O que está faltando? Segue código abaixo.
Sub Backup()
Dim MyFilePath$
MyFilePath$ = "\BACKUP - RD"
Dim MeuDir
MeuDir = Me.TextBox1
With Application
.ScreenUpdating = False
.DisplayAlerts = False
On Error Resume Next '<< Se a folder existe
MkDir MyFilePath '<< se não cria uma nova
ThisWorkbook.SaveCopyAs FileName:=MyFilePath & MeuDir & "REMESSA DE DOCUMENTOS - Backup " & _
Day(DateSerial(Year(Date), Month(Date), Day(Date))) & " de " & _
MonthName(Month(DateSerial(Year(Date), Month(Date), Day(Date)))) & " de " & _
Year(DateSerial(Year(Date), Month(Date), Day(Date))) & ".xls"
MsgBox "Pronto"
End With
End Sub
Pablo Moreira
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.