Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro ao salvar arqu...
 
Notifications
Clear all

Erro ao salvar arquivo já salvo

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,331 Visualizações
RSS
 fcaldeira
(@fcaldeira)
Posts: 0
New Member
Topic starter
 

Pessoal, utilizei o código abaixo para salvar o arquivo com um determinado nome e criar uma pasta caso ela não exista, só que quando executo pela segunda vez a função da erro, O que eu fiz errado? Preciso de uma ajuda para complementar a função.......A condição é a seguinte: se a pasta já existir apenas salvar o arquivo, se a pasta e o arquivo já existirem ignorar toda a sentença e exibir uma mensagem, "arquivo já salvo deseja substitui-lo?" sim/não (sim sobrescreve, não cancela)

Salvar Macro
'
Set linha = CreateObject("Scripting.FileSystemObject")
Set pasta = linha.CreateFolder("c:Avaliação de Desempenho")
CreateFolderDemo = pasta.Path
On Error Resume Next
ActiveWorkbook.SaveCopyAs "C:Avaliação de Desempenho" & [p1] & ".xlsm"
MsgBox "Avaliação salva com sucesso! Arquivo salvo em C:Avaliação de Desempenho"
End Sub

 
Postado : 19/05/2014 12:46 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Talvez eu esteja enganado, mas o windows jamais deixará você salvar uma arquivo com o mesmo nome no mesmo lugar (diretório).

Att

 
Postado : 19/05/2014 12:51 pm
 fcaldeira
(@fcaldeira)
Posts: 0
New Member
Topic starter
 

Boa tarde!!

Talvez eu esteja enganado, mas o windows jamais deixará você salvar uma arquivo com o mesmo nome no mesmo lugar (diretório).

Att

Eu quero ter a opção de sobrescrever o arquivo sim ou não caso ele já exista....

 
Postado : 19/05/2014 12:54 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja o link
http://www.rondebruin.nl/win/s5/win001.htm

Att

 
Postado : 19/05/2014 1:46 pm
 fcaldeira
(@fcaldeira)
Posts: 0
New Member
Topic starter
 

Boa tarde!!

Veja o link
http://www.rondebruin.nl/win/s5/win001.htm

Att

Utilizei a macro a seguir... funciona.. mas se a pasta não existir dá pau.... se eu conseguisse pelo menos fazer a pasta já estava ótimo...

 
Postado : 19/05/2014 2:58 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

veja se consegue utilizar/adaptar

Sub CriarBackup()
'Salva copia do arquivo como backup
    'Cria o caminho
    Arquivo = Range("H2").Value
    Arquivo = Range("H1") + Arquivo
        
        On Error GoTo erro
        
    'Verifica se o diretorio existe, se não existir, cria
        If (Dir(Range("H1"), vbDirectory) = "") Then
            MkDir (Range("H1"))
        End If
    'Verifica se o arquivo já existe, se existir, deleta
        If (Dir(Arquivo) <> "") Then
            Kill Arquivo
        End If
    'Salva copia do arquivo no caminho especificado
        ThisWorkbook.SaveCopyAs Filename:=Arquivo

fim:
        Exit Sub
erro:
            MsgBox "Erro ao criar backup:" & vbCrLf & Err.Description, vbOKOnly + vbCritical, "Atenção"
            Err.Clear
        Resume fim

    End Sub
 
Postado : 20/05/2014 5:44 am
Forum Jump:
  Tópico Anterior
Próximo Tópico