Ir ao conteúdo
  • Cadastre-se
ExcelBA

Salvar automaticamente - excel - vba

Posts recomendados

Pessoal, boa noite.

Preciso de ajuda. No código abaixo onde insiro o endereço para salvar em uma pasta específica? No caso, uma pasta de rede:

F:\Materiais\Requisições\...


 

Sub Salvando()
  Dim Nome As String
Dim SDate As String
Nome = Range("B1").Value
SDate = Now
If Nome <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("M8").Value = Range("M8").Value + 1
MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
End If
End Sub

Desde já, muito obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

@ExcelBA seja bem vindo ao forum. 

voce precisa acrescentar o path (diretorio) ao nome do seu arquivo.

Então ficaria assim: 

 

Sub Salvando()
    Dim Nome As String, strPath As String
    Dim SDate As String

    Nome = Range("B1").Value

    If Nome <> vbNullString Then
        Nome = IIf(InStr(Range("B1").Value, "\") = 0, "\" & Range("B1").Value, Range("B1").Value)
        SDate = Now

        strPath = "F:\Materiais\Requisições" & Nome & ".pdf"

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
                                        strPath, Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                        True
        Range("M8").Value = Range("M8").Value + 1
        MsgBox "O arquivo " & strPath & vbNewLine & "Foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

    Else
        MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
    End If

End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Basole, muito obrigado!!!

 

Ficou perfeito!!!

 

Abs!!

adicionado 0 minutos depois

@Basole , muito obrigado!

 

Ficou perfeito!

Abs!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Este tópico está parado há muito tempo. Certifique-se que a sua mensagem tem a ver com o tema sendo discutido. Obrigado.

Junte-se à conversa

Você pode postar agora e cadastrar-se depois. Se você tem uma conta, faça o login para postar.

Visitante
Responder

×   Você colou conteúdo com formatação.   Restore formatting

  Só é possível ter até 75 emoticons.

×   O link foi automaticamente convertido para mostrar o conteúdo.   Clique aqui para mostrá-lo como link comum

×   Seu texto anterior foi restaurado.   Limpar o editor

×   You cannot paste images directly. Upload or insert images from URL.






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

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!