Salvar automaticamente - excel - vba

ExcelBA · 25 de julho de 2016

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!

Basole · 26 de julho de 2016

@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