Ir ao conteúdo
  • Cadastre-se
ExcelBA

Salvar automaticamente - excel - vba

Recommended Posts

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!

Editado por dif
usar o botão de CODE para postar o código

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

 

  • Curtir 1

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

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

×