Ir ao conteúdo

Posts recomendados

Postado

Bom dia.

 

Tenho uma macro que me permite salvar minha planilha em PDF.

 

O único problema é que ele sempre salva a planilha na última pasta que salvei qualquer coisa.

Gostaria que salvasse o PDF na própria pasta onde o excel esta, independente de onde o excel esteja (vou enviar para diversar pessoas).

 

Citação

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
    Sheets("Score Card").Select
    Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets("Score Card").Range("D6").Value, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Sheets("Score Card").Select
    Range("B2:P62").Select
End Sub

 

Postado

Segue sua macro com as alterações, veja se é isso exatamente o  que precisa

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
Sheets("Score Card").Select
Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets("Score Card").Range("D6").Value, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Score Card").Select
Range("B2:P62").Select
End Sub

Tambem aqui:  https://goo.gl/dwJy2b

Postado

Segue a correão: 

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
Sheets("Score Card").Select
Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets("Score Card").Range("D6").Value, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Score Card").Select
Range("B2:P62").Select
End Sub

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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 comunidades 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...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!