Salvar arquivos em local especifico
Enviado: 16 Nov 2017 às 10:33
Olá caros colegas, não entendo nada de VBA e estou precisando de uma grande ajuda.
Eu tenho um relatório em tabela dinâmica e foi colocado nela um código VBA que filtra o nome dos vendedores e gera um PDF para cada um deles e salva em meus documentos.
Gostaria de saber como faço para salvar em outro local, exemplo "C:\Users\robinson\Desktop\CAMPANHA 2017".
Outra coisa, é possível enviar esses PDFs para seus respectivos, com PARA, CC, ASSUNTO e frase padrão?
Agradeço desde já!
Segue o código que utilizo.
Eu tenho um relatório em tabela dinâmica e foi colocado nela um código VBA que filtra o nome dos vendedores e gera um PDF para cada um deles e salva em meus documentos.
Gostaria de saber como faço para salvar em outro local, exemplo "C:\Users\robinson\Desktop\CAMPANHA 2017".
Outra coisa, é possível enviar esses PDFs para seus respectivos, com PARA, CC, ASSUNTO e frase padrão?
Agradeço desde já!
Segue o código que utilizo.
Código: Selecionar todos
Sub Gerar_PDF()
Application.ScreenUpdating = False
Dim tdc(500) As Variant
ActiveSheet.PivotTables("Tabela dinâmica1").ClearAllFilters
With ActiveSheet.PivotTables("Tabela dinâmica1")
c = .PivotFields("Ult. Vendedor2").PivotItems.Count
For i = 1 To .PivotFields("Ult. Vendedor2").PivotItems.Count
tdc(r) = .PivotFields("Ult. Vendedor2").PivotItems(i).Name
r = r + 1
Next
End With
' CNPJ RAZÃO -------------------------------------------------------------------
With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Ult. Vendedor")
.PivotItems("").Visible = False
End With
i = 0
For i = 0 To c - 1
ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Ult. Vendedor2"). _
CurrentPage = "(All)"
ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Ult. Vendedor2"). _
CurrentPage = tdc(i)
s = Range("b2").Value + " - CLIENTES INATIVOS"
sSpecialChars = "\/:*?®<>|&@#`©~^$!,'"
For ii = 1 To Len(sSpecialChars)
s = Replace(s, Mid$(sSpecialChars, ii, 1), "")
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
s, Quality:=xlQualityMinimum, IgnorePrintAreas:=True, OpenAfterPublish:=False
Next i
' FIM -------------------------------------------------------------------
ActiveSheet.PivotTables("Tabela dinâmica1").ClearAllFilters
Application.ScreenUpdating = True
End Sub